Blackberry MEP + IMEI reader

[smartmod.de]

Hi,

I already posted this in BB section but I think it is better here:

Can anybody provide me with a custom Blackberry MEP + IMEI reader with our logo in it? Or give me hints how to write this little piece of software?
Both win and mac would be great, but win is more important!

Also, I am very interested in any source code to learn how to communicate with a blackberry handset.

Best regards,
sm

[octavyus]

here the my READER






B.R

[smartmod.de]

Thank you, but this doesn't seem to work. Nothing happens after I click the button...

[octavyus]

Originally Posted by smartmod.de

Thank you, but this doesn't seem to work. Nothing happens after I click the button...

firts conect your phone; after click in the button and you can full Imei info and Mep data





B.R

[smartmod.de]

Originally Posted by octavyus

firts conect your phone; after click in the button and you can full Imei info and Mep data





B.R

That's exactly how I tried but I just got empty IMEI and MEP 0000000... I will try again later.

I wrote you a PM. Any chance you could provide me with the source?

Thanks!

[boucettay]

go 4shared and do a search
mep reader..there are lot
on FG support there is too
on Unlock code providers web page U find too
on this forum, use search botton and u find also
...etc

BR,

[smartmod.de]

Originally Posted by boucettay

go 4shared and do a search
mep reader..there are lot
on FG support there is too
on Unlock code providers web page U find too
on this forum, use search botton and u find also
...etc

BR,

I know about all the MEP readers available. That isn't the point of this thread. The point is, that we want our own MEP reader, custom-made for our online-shop.
That's why I need the source or at least a working reader without the Furious logo in it or something similar.

[boucettay]

Originally Posted by smartmod.de

I know about all the MEP readers available. That isn't the point of this thread. The point is, that we want our own MEP reader, custom-made for our online-shop.
That's why I need the source or at least a working reader without the Furious logo in it or something similar.

U mean no other PUB..!
so perhaps with POst #2 + THIS U get my attached file !

[y3kt]

This soft is not working for me. I tried to do something like that once, even though i never finished it i can give you what i did in Delphi so you can use it and then research to finish it.

procedure TForm1.Button1Click(Sender: TObject);
var
  PropName: WideString;
  deviceEnum: IDevices;
  deviceMgr: IDeviceManager;
  deviceProps: IDeviceProperties;
  deviceProp: IDeviceProperty;
  NumDev: Cardinal;
  PropVal: OleVariant;
begin
  CoInitializeEx(NIL, COINIT_MULTITHREADED);
  deviceMgr := CoDeviceManager.Create;
  deviceMgr.Get_Devices(deviceEnum);
  deviceEnum.Get_Count(NumDev);
  if NumDev > 0 then
  begin
    deviceEnum.Item(0, device);
    device.Get_Properties(deviceProps);
    // GUID
    deviceProps.Get_Item(0, deviceProp);
    deviceProp.Get_Name(PropName);
    deviceProp.Get_Value(PropVal);
    ListBox1.Items.Add(PropName + ': ' + String(PropVal));
    // BBPIN
    deviceProps.Get_Item(2, deviceProp);
    deviceProp.Get_Name(PropName);
    deviceProp.Get_Value(PropVal);
    ListBox1.Items.Add(PropName + ': ' + IntToHex(PropVal,6));
  end;
end;

Here you have GUID and BBPIN, this is what i needed so the purpose of that application i started was not about mep reading, but you can still use it or at least you have some starting point

To read IMEI you have the function get_IMEI() from RIMRadioDriver.dll which returns a String, i never used it but i know it exists.

To read MEP i will have to look how to do it, if i find it i will tell you so you can have all info.

If someones have this already done and want to share it, then good.
Luck!

[smartmod.de]

Originally Posted by y3kt

This soft is not working for me. I tried to do something like that once, even though i never finished it i can give you what i did in Delphi so you can use it and then research to finish it.

procedure TForm1.Button1Click(Sender: TObject);
var
  PropName: WideString;
  deviceEnum: IDevices;
  deviceMgr: IDeviceManager;
  deviceProps: IDeviceProperties;
  deviceProp: IDeviceProperty;
  NumDev: Cardinal;
  PropVal: OleVariant;
begin
  CoInitializeEx(NIL, COINIT_MULTITHREADED);
  deviceMgr := CoDeviceManager.Create;
  deviceMgr.Get_Devices(deviceEnum);
  deviceEnum.Get_Count(NumDev);
  if NumDev > 0 then
  begin
    deviceEnum.Item(0, device);
    device.Get_Properties(deviceProps);
    // GUID
    deviceProps.Get_Item(0, deviceProp);
    deviceProp.Get_Name(PropName);
    deviceProp.Get_Value(PropVal);
    ListBox1.Items.Add(PropName + ': ' + String(PropVal));
    // BBPIN
    deviceProps.Get_Item(2, deviceProp);
    deviceProp.Get_Name(PropName);
    deviceProp.Get_Value(PropVal);
    ListBox1.Items.Add(PropName + ': ' + IntToHex(PropVal,6));
  end;
end;

Here you have GUID and BBPIN, this is what i needed so the purpose of that application i started was not about mep reading, but you can still use it or at least you have some starting point

To read IMEI you have the function get_IMEI() from RIMRadioDriver.dll which returns a String, i never used it but i know it exists.

To read MEP i will have to look how to do it, if i find it i will tell you so you can have all info.

If someones have this already done and want to share it, then good.
Luck!

Thank you!

Since I am very new to the programming thing: Is there anything else I need to get this demo code up and running in Delphi? Any components I need to use?

Do you still have the project file?

Thanks!

[y3kt]

hi, there is no need to use other components besides the one that comes with delphi, add a button a listbox to your project and in the button click event add the code provided. You will need to import the activex library BBDEVMGRLib in order to use the interfaces that communicate with the BlackBerry. To import this libraries just go to Component-->Import component, select Type Library and import BlackBerry Dev1.0 Type Library and everything should work.
Luck!

[y3kt]

Hi again, i just found what i needed and now i can get mep information from phone just add this to my previous OnClick event.
In vars:

RRO: *****adioObj;
  Connection: IConnection;
  IMEI: IReadIMEI;
  StrImei: WideString;
  SwPartList: IGetSwPartList;
  PartList: PSafeArray;
  pl: WideString;
  BBPIN: IReadBBPIN;

and in code add:

RRO := *****adioObj.Create(Form1);
    if RRO.DefaultInterface.QueryInterface(IID_IConnection, Connection) = S_OK then
    begin
      Connection.Connect('USB', 300, 19200, '');
      // BBPIN (New)
      if (Connection.IsConnected = 1) and (RRO.DefaultInterface.QueryInterface(IID_IReadBBPIN, BBPIN) = S_OK) then
      begin
        ListBox1.Items.Add('BBPIN: ' + IntToHex(BBPIN.Execute,6));
      end;
      // IMEI
      if (Connection.IsConnected = 1) and (RRO.DefaultInterface.QueryInterface(IID_IReadIMEI, IMEI) = S_OK) then
      begin
        IMEI.Execute(StrImei);
        ListBox1.Items.Add('IMEI: ' + StrImei);
      end;
      // PartList
      if (Connection.IsConnected = 1) and (RRO.DefaultInterface.QueryInterface(IID_IGetSwPartList, SwPartList) = S_OK) then
      begin
        SwPartList.Execute(PartList);
        for i:=0 to PartList.rgsabound[0].cElements-1 do
        begin
           SafeArrayGetElement(PartList, i, pl);
           ListBox1.Items.Add(pl);
        end;
      end;
      Connection.Disconnect;
    end;
    RRO.Free;

Now you have everything ready to work as you wish.
For this part of code to work you have to import type library named RIMRadioCOM 1.3 Type Library.
If you don't need GUID to show at all, then first part isn't needed.
I hope this helps you, if you don't understand something just ask
Luck!

PS: This is the first time i achieve this, tried almost a year ago and gave up. Code may have unneeded parts but at least is working fast and without errors.

[y3kt]

So, finally you would get something like this
Luck!

[nickyr]

i just download your program and it dosent work with mi BB ..

[y3kt]

You need to have rimradiocomm.dll registered in your system in order to get functionality, luck