GSM-Forum

GSM-Forum (https://forum.gsmhosting.com/vbb/)
-   GSM Programming & Reverse Engineering (https://forum.gsmhosting.com/vbb/f83/)
-   -   Blackberry MEP + IMEI reader (https://forum.gsmhosting.com/vbb/f83/blackberry-mep-imei-reader-937691/)

smartmod.de 02-26-2010 23:01

Blackberry MEP + IMEI reader
 
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 02-27-2010 06:27

1 Attachment(s)
here the my READER


http://img705.imageshack.us/img705/2057/mepreader.png



B.R

smartmod.de 02-28-2010 00:30

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

octavyus 03-02-2010 00:42

Quote:

Originally Posted by smartmod.de (Post 5495435)
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


http://img155.imageshack.us/img155/7...lbbereymep.png


B.R

smartmod.de 03-03-2010 09:50

Quote:

Originally Posted by octavyus (Post 5505135)
firts conect your phone; after click in the button and you can full Imei info and Mep data


http://img155.imageshack.us/img155/7...lbbereymep.png


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 03-03-2010 15:16

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 03-03-2010 16:46

Quote:

Originally Posted by boucettay (Post 5513875)
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 03-03-2010 22:13

1 Attachment(s)
Quote:

Originally Posted by smartmod.de (Post 5514464)
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 03-07-2010 03:45

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.

Code:

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 03-07-2010 23:15

Quote:

Originally Posted by y3kt (Post 5533325)
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.

Code:

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 03-08-2010 02:10

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 03-08-2010 07:08

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:
Code:

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

and in code add:
Code:

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 03-09-2010 03:34

1 Attachment(s)
So, finally you would get something like this :)
Luck!

nickyr 03-29-2010 04:58

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

y3kt 03-29-2010 12:53

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


All times are GMT +1. The time now is 08:23.


vBulletin Optimisation provided by vB Optimise (Pro) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
- GSM Hosting Ltd. - 1999-2023 -

Page generated in 0.21540 seconds with 6 queries

SEO by vBSEO