Blackberry MEP + IMEI reader

[kique007]

im trying to do mr nico...

[tresloukadu]

hey the code is great. I just had to register the dll blackberry radio on windows with the command regsrv32 and thats it. Another thing that i made is error handling here:

Try
      // Connect to phone
      Connection.Connect('USB', 300, 19200, '');
    except
     on E: exception do
      ShowMessage('Please connect your blackberry.');
    End;

and in the last part of the code i put:

Try
    Connection.Disconnect;
    except
    // do nothin
    End;

thats now if bb is not connect weird messages wont appear.

[darmiles]

Originally Posted by tresloukadu

hey the code is great. I just had to register the dll blackberry radio on windows with the command regsrv32 and thats it. Another thing that i made is error handling here:

Try
      // Connect to phone
      Connection.Connect('USB', 300, 19200, '');
    except
     on E: exception do
      ShowMessage('Please connect your blackberry.');
    End;

and in the last part of the code i put:

Try
    Connection.Disconnect;
    except
    // do nothin
    End;

thats now if bb is not connect weird messages wont appear.

not work in delphi

where the place can i put this? correct

[y3kt]

You have to insert it when making a connection and on disconnect, just replace all those lines with the ones present there, luck

[orbita]

Originally Posted by y3kt

You have to insert it when making a connection and on disconnect, just replace all those lines with the ones present there, luck

yes, you right, but if he use without declare class, and make connection to interface will not work.

some like this

var
myobject: *****adioObj;

begin

myobject:= *****adioObj.Create(Form1);

if myobject.DefaultInterface.QueryInterface(IID_IConn ection,Connection)=S_OK then
begin

// Connect to phone
try
Connection.Connect('USB', 300, 19200, '');

e.t.c e.t.c.

hope will help

This library not work for new Blackberry.

[angel25dz]

Originally Posted by kique007

some one have done in c# languaje?

I think no, i'm searching this library for c# since long time !!

[y3kt]

Originally Posted by orbita

yes, you right, but if he use without declare class, and make connection to interface will not work.

some like this

var
myobject: *****adioObj;

begin

myobject:= *****adioObj.Create(Form1);

if myobject.DefaultInterface.QueryInterface(IID_IConn ection,Connection)=S_OK then
begin

// Connect to phone
try
Connection.Connect('USB', 300, 19200, '');

e.t.c e.t.c.

hope will help

This library not work for new Blackberry.

I haven't tried that myself, actually i haven't use my code since long ago i still want to be able to read that info without rimradiocom dll, have the idea but don't have the time to test it. If i ever get to do it i will let you all know about, not big deal but i think many around here will be interested in this.
Luck!

[fr3nsis]

i have successfull used win32 api (thanks to victor) for comunicate with bb

[31/01/2011 15.11.55] BPIN:241BXXXX
[31/01/2011 15.11.56] TRYING 'CALTASK CONFIG'
[31/01/2011 15.11.56] OPENING 'RIM CALTASK' CHANNEL
[31/01/2011 15.11.56] CHANNEL OPENED OK
[31/01/2011 15.11.57] IMEI:35692001XXXXX
[31/01/2011 15.11.57] BSN:170600XXXX
[31/01/2011 15.11.58] ASY-11454-001
[31/01/2011 15.11.58] MEP-06041-007
[31/01/2011 15.11.58] CFG-10993-018
[31/01/2011 15.11.58] SFI-12484-020
[31/01/2011 15.11.58] APP-13152-006
[31/01/2011 15.11.58] PRD-11929-043
[31/01/2011 15.11.58] VSM-06361-001 (RIM BLACKBERRY ) ( VID 1)

@angel25dz
i have used dll with vb.net so you can use it with c#
if i found source on my pc i will post it

[angel25dz]

Originally Posted by fr3nsis

i have successfull used win32 api (thanks to victor) for comunicate with bb



@angel25dz
i have used dll with vb.net so you can use it with c#
if i found source on my pc i will post it

thanks fr3nsis, it will be usefull for me

about using win api's, I never tried with BB (just Nokia and LG) when i find time i'll trie to do it....

[y3kt]

Originally Posted by fr3nsis

i have successfull used win32 api (thanks to victor) for comunicate with bb



@angel25dz
i have used dll with vb.net so you can use it with c#
if i found source on my pc i will post it

Thats exactly what i want to do, i have a sample for other phones, so i guess with BlackBerrys i will need little modification luck

[fr3nsis]

Imports RIMRADIOCOMLib

public sub readInfo

Dim connection As IConnection = New RIMRadioObj
Dim imei as IreadImei = New RIMRadioObj
Dim str as string=""

connection.Connect("USB", 300, 19000, "")
If connection .GetStatus =ConnectionStatus.CONN_STATUS_CONNECTED
imei.Execute(str)
textbox1.text=str
else
textbox1.text="Phone not connected"
end if
end sub

[angel25dz]

I loaded this DLL : Interop.RIMRADIOCOMLib.dll in visual studio 2008 and it work fine with C#

[fr3nsis]

Originally Posted by Usmann

Has Anyone Got This Working?
If So Can You Share Source Please

Also Does It Work With New Blackberrys Such As Torch + Bold 9780?

Thanks

Source code is here...what do you want ?



Sent from my HTC Desire using Tapatalk

[y3kt]

I am trying to connect directly to BlackBerry, i have read many things by now and have this piece of code to get a valid handle with path to device, but for some reason it is not working, can anybody take a look at this code and give any opinion?

function TForm1.GetDevicePath: THandle;
var
   BytesReturned           : DWORD;
   LPGUID                  : TGUID;
   DeviceInfo              : HDEVINFO;
   DeviceInterfaceData     : TSPDeviceInterfaceData;
   DetailData              : PSPDeviceInterfaceDetailData;
begin
  LPGUID := GUID_DEVINTERFACE;
  DetailData := nil;
  GetDevicePath := INVALID_HANDLE_VALUE;
  LoadSetupApi;
  
  DeviceInfo := SetupDiGetClassDevs(@LPGUID, nil, 0, DIGCF_PRESENT or DIGCF_DEVICEINTERFACE);

  if not(DeviceInfo = Pointer(INVALID_HANDLE_VALUE)) then
  begin
    
    DeviceInterfaceData.cbSize := SizeOf(TSPDeviceInterfaceData);

    if not SetupDiEnumDeviceInterfaces(DeviceInfo, nil, LPGUID, 0, DeviceInterfaceData)  then
    begin
       if SetupDiGetDeviceInterfaceDetail(DeviceInfo, @DeviceInterfaceData, nil, 0, BytesReturned, nil) then
       begin
          DetailData := AllocMem(BytesReturned);

         if DetailData =  Pointer(INVALID_HANDLE_VALUE) then
          begin
             SetupDiDestroyDeviceInfoList(DeviceInfo);
             GetDevicePath:=INVALID_HANDLE_VALUE;
          end;
          DetailData.cbSize:= SizeOf(TSPDeviceInterfaceDetailData);

          if SetupDiGetDeviceInterfaceDetail(DeviceInfo, @DeviceInterfaceData, DetailData,
                                             BytesReturned, BytesReturned, nil) = false  then
          begin
             FreeMem(DetailData);
             GetDevicePath:=INVALID_HANDLE_VALUE;
          end;

         if DetailData.DevicePath = '' then
          begin
             SetupDiDestroyDeviceInfoList(DeviceInfo);
             FreeMem(DetailData);
          end;

          GetDevicePath := CreateFile(DetailData.DevicePath, GENERIC_WRITE or GENERIC_READ,
                                      FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING,
                                      FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED, 0 );
          FreeMem(DetailData);
       end;
    end;
  end;
  UnloadSetupApi;
end;

It is compiling well, but it never returns a valid handle, maybe i am using wrong GUID?

Any help would be appreciated, thanks

[fr3nsis]

Look my post about bb connection and you find solution ... I'm with phone so atm I can't link it

Sent from my HTC Desire using Tapatalk