|
|
 |
|
Welcome to the GSM-Forum forums. You are currently viewing our boards as a guest which gives you limited access to view most discussions and access our other features. By joining our free community you will have access to post topics, communicate privately with other members (PM), respond to polls, upload content and access many other special features. Registration is fast, simple and absolutely free so please, join our community today! If you have any problems with the registration process or your account login, please contact contact us. |
| |||||||
| Register | FAQ | Donate | Forum Rules | ★. iPhone Unlock .★ | -= JTAG BOOM =- | Search | Today's Posts | Mark Forums Read |
| GSM Programming & Reverse Engineering Here you can post all Kind of GSM Programming and Reverse Engineering tools and Secrets. |
 |
| | LinkBack | Thread Tools | Display Modes |
01-09-2013, 09:44
| #2 (permalink) | |
| Insane Poster  Join Date: Apr 2012
Posts: 76
Member: 1750849 Status: Offline Thanks: 14
Thanked 2 Times in 2 Posts
| Quote:
| |
 |
| The Following User Says Thank You to van.Ghulam For This Useful Post: |
|
01-10-2013, 18:10
| #5 (permalink) | |
| Freak Poster Join Date: Oct 2010
Posts: 149
Member: 1422878 Status: Offline Thanks: 51
Thanked 66 Times in 22 Posts
| Quote:
Code: procedure TForm2.Button1Click(Sender: TObject);
var
RRO: *****adioObj;
Connection: IConnection;
IMEI: IReadIMEI;
StrImei: WideString;
SwPartList: IGetSwPartList;
PartList: PSafeArray;
pl: WideString;
BBPIN: IReadBBPIN;
i : integer;
begin
RRO := *****adioObj.Create(Form2);
if RRO.DefaultInterface.QueryInterface(IID_IConnection, Connection) = S_OK then
begin
Connection.Connect('USB', 300, 19200, '');
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;
end; BR Helpinterchange | |
| |
|
01-11-2013, 00:11
| #6 (permalink) |
| Junior Member Join Date: Jan 2013
Posts: 1
Member: 1866547 Status: Offline Thanks: 0
Thanked 0 Times in 0 Posts
|  For sale: Iphone 5, blackberry porsche design p9981 with arabic / english keypad Our products are original brand new sealed in the box with complete accessories comes with 1 year international warranty by the manufacturers and 90 days return policy. Below is the shortlist of our product offer for sale at cheap and affordable prices New release Blackberry TK Victory PRICE : 700 USD = 2,570 AED = 2,630 SAUDI RIYALS = 269 oMAN RIYALS Blackberry Porsche Design P'9981PRICE : 800 USD = 2,950 AED = 3,000 SAUDI RIYALS = 300 oMAN RIYALS Blackberry Porsche Design P'9981 :500USD =3,037.95 EGP Blackberry Blade designPRICE : 550 USD = 2,000 AED = 2,050 SAUDI RIYALS = 210 oMAN RIYALS Apple iPad 3 Wi-Fi + 4GPRICE : 600 USD = 2,200 AED = 230 OMANI RIAL Apple iPhone 5 64GB:500USD =2,300AED = 250 OMANI RIal Interested buyers should contact Mr Abdulsalam Iqram via our direct email below: Emails: abuhila123@gmail.com Skype: digitalmobileworld Your satisfaction is our desire !!! |
| |
|
| Bookmarks |
| Thread Tools | |
| Display Modes | |
| |
Linear Mode
