Agan2 master delphi .... ane minta tolong dong. Ane baru nih di forum ini. Tapi lagi kesulitan dengan komponen tcomport. Ane lagi coba ngebaca data dari gsm modem (Wavecom) dengan pake component tcomport. Kalo dicoba pake hyperterminal semuanya bisa kebaca dan AT commandnya juga bisa diperintah. begitu juga kalo pakai aplikasi yang ada di help tcomport (miniterminal). Tapi kenapa ya kalo pake eventnya tcomport (onrxchar) kok ga ada yang muncul data stringnya?? apakah ada propertinya yang mesti disetting lagi ?? udah beberapa hari nih coba2 settingnya tapi belum menampakkan tanda2 kehidupan ... hikss... jadi apakah ada pencerahan dari para agan master delphi ?? Terima kasih sebelumnya. Newbie.

1. yg mesti kamu setting (disesuaikan dengan modem) : baudrate, parity, flowcontrol, databits, dll 2. gmn koding yg udah kamu tulis....bisa ditampilkan di sini???

Program bacanya sama seperti yang diexample tcomport seperti dibawah ini : procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var Str: String; begin ComPort1.ReadStr(Str,count); Listbox1.items.add(str); end; lalu pas program di jalankan, tak ada string yang masuk ke listbox (masih kosong). Sampai ane coba pake example bawaan tcomport yaitu aplikasi miniterm.exe aplikasi ini gsm modem merespon dengan baik semua perintah AT Command. dan program diatas ane sisipin di component tcomport untuk melihat hasil string proses, tapi tetap aja kosong. knapa ya gan ??? pusing juga nih ...

Perintah AT Com nya.....??

Hampir semua perintah AT Com. dari yang simple (AT, ATI3, AT+CMGL="ALL", dll...) Kira2 kenapa ya ?? semoga ada yang bisa kasih pencerahan nih ... dah mendung terus dari kemarin ... :cry:

Dulu pernah pake ComPort juga sih....tapi dah lupa,hehehehehe... dah di send perintah AT COM nya..?? Comport1.SendString('ATE1'#13); baru di add string.... Lagi buat program apa?

perintah Comport1.SendString('ATE1'#13); sudah dicoba, tapi data string dari gsm modem belum diterima juga. padahal pake aplikasi sample (miniterm.exe) baik-baik aja. sampe script dibawah ini : procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var Str: String; begin ComPort1.ReadStr(Str,count); Listbox1.items.add(str); end; ditempel di method-nya rxchar miniterm.exe tapi ga muncul juga. kalo baca testimoni program2 yang sejenis datanya sdh muncul, knp diprogram ane ga muncul2 yaa ?? ane lagi buat progam sms reminder buat dikantor ...

@andraones: perintah Comport1.SendString('ATE1'#13); sudah dicoba, tapi data string dari gsm modem belum diterima juga. padahal pake aplikasi sample (miniterm.exe) baik-baik aja. sampe script dibawah ini : procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var Str: String; begin ComPort1.ReadStr(Str,count); Listbox1.items.add(str); end; ditempel di method-nya rxchar miniterm.exe tapi ga muncul juga. kalo baca testimoni program2 yang sejenis datanya sdh muncul, knp diprogram ane ga muncul2 yaa ?? ane lagi buat progam sms reminder buat dikantor ...

coba pake code buat baca string di buffernya

repeat s := comport1.ReadString; edit1.text:=edit1.text+s; until (pos(sOK, s) > 0) or (pos(sERROR, s) > 0) or (SecondsBetween(waktu,now) > 180);

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); 
var 
Str: String; 
begin 
ComPort1.ReadStr(Str,count); 
Listbox1.items.add(str); 
end; 

Kayaknya ada yang menarik dari fungsi ini, tapi karena saya tidak menggunakan Tcomport, mungkin metode pemeriksaan ini bisa digunakan. comport1.ReadStr(Str,count) yang dibaca oleh comport itu str yang mana? seluruh str yang ada di buffer, atau str terakhir? terus count itu fungsinya untuk apa? coba dilakukan debug, misalnya :

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); 
var 
  Str: String; 
begin 
  ComPort1.ReadStr(Str,count); 
  Listbox1.items.add('count='+inttostr(count)+'--> data='+str); 
end; 

1. Perhatikan listboxnya. kalau countnya 0, jelas tidak ada strnya. tapi kalau countnya ada, berarti ada problem sama strnya. 2. Perhatikan juga, apakah countnya bertambah terus, atau berubah-ubah tidak pasti. 3. Kalau seandaniya countnya terus bertambah, berarti str yang dibaca dari comport itu merupakan keseluruhan buffernya. Untuk itu bisa dilakukan pengecekan lanjutan dengan membuat code berikut :

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); 
var 
  Str: String; 
begin 
  ComPort1.ReadStr(Str,count); 
  Listbox1.items.text:=Str;
end; 

coba perhatikan, apakah ada yang tampil di listbox. Kira-kira seperti itu metode pemeriksaan yang bisa dianjurkan. tks.

Ane sudah cek stringnya. Sama seperti diatas pake lisbox untuk melihat apakah data stringnya sudah masuk/diterima. Tapi ternyata sama sekali tidak ada data stringnya. makanya ane jadi bingung nih ...