hi all,
I' ve tried to make communication with the GSM modem via usb port and I use
synapse to communicate with my gsm modem. At the time I use the example code
from the synapse to communicate with my modem, it did not work
This is my code:
function sms(tujuan,isi_pesan:string):Boolean;
const
bps:integer=115200;
bits:integer=8;
parity:char='N';
MentariSmsc:string= '62816124';
var
hp:TBlockSerial;
tmpATCmd:string;
begin
write('Koneksi ke device.....');
hp:=TBlockSerial.Create;
try
hp.Connect(lport);
Sleep(2000);
hp.config(bps,bits,parity,SB1,false,false);
hp.ATCommand('AT');
if (hp.LastError <> 0) or (not hp.ATResult) then
writeln('Gagal',hp.LastError);
Exit;
hp.ATConnect('ATDT+420971200111');
if (hp.LastError <> 0) or (not hp.ATResult) then
Exit;
finally
Writeln('Serial Port will be freed...');
hp.free;
Writeln('Serial Port was freed successfully!');
sleep(2000);
end;
end;
I ' ve get error message is Connection Error (Error code: 9997)
just for information GSM modem I use Sony Ericson k 510 and compiler Lazarus
if anyone can expland ? pls.......
------------------------------------------------------------------------------
Throughout its 18-year history, RSA Conference consistently attracts the
world's best and brightest in the field, creating opportunities for Conference
attendees to learn about information security's most important issues through
interactions with peers, luminaries and emerging and established companies.
http://p.sf.net/sfu/rsaconf-dev2dev
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
