| Author |
Message |
andraones |
| Location: |
|
Post subject: (Ask) TComport
 Posted: 31/Aug/2010 14:20
|
|
onBeginner
Joined: 31-Aug-2010
Posts: 5
Status: Offline
|
|
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. |
|
|
| |
|
|
|
 |
|
mas_kofa |
| Location: New York Arto |
|
|
Post subject:
Posted: 01/Sep/2010 06:32
|
|
onElite
Joined: 18-Mar-2006
Posts: 1700
Location: New York Arto
|
|
|
|
|
|
|
andraones |
| Location: |
|
|
Post subject:
Posted: 01/Sep/2010 13:38
|
|
onBeginner
Joined: 31-Aug-2010
Posts: 5
Status: Offline
|
|
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 ... |
|
|
| |
|
|
|
|
|
phyto |
| Location: |
|
|
Post subject:
Posted: 02/Sep/2010 23:48
|
|
onBeginner
Joined: 10-Aug-2010
Posts: 4
Status: Offline
|
|
| Perintah AT Com nya.....?? |
|
|
| |
|
|
|
|
|
andraones |
| Location: |
|
|
Post subject:
Posted: 03/Sep/2010 15:52
|
|
onBeginner
Joined: 31-Aug-2010
Posts: 5
Status: Offline
|
|
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 ...  |
|
|
| |
|
|
|
|
|
phyto |
| Location: |
|
|
Post subject:
Posted: 04/Sep/2010 18:44
|
|
onBeginner
Joined: 10-Aug-2010
Posts: 4
Status: Offline
|
|
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? |
|
|
| |
|
|
|
|
|
andraones |
| Location: |
|
|
Post subject:
Posted: 05/Sep/2010 23:49
|
|
onBeginner
Joined: 31-Aug-2010
Posts: 5
Status: Offline
|
|
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 ... |
|
|
| |
|
|
|
|
|
aandrie77 |
| Location: |
|
|
Post subject:
Posted: 07/Sep/2010 16:18
|
|
onConfident
Joined: 27-Jan-2007
Posts: 28
Status: Offline
|
|
|
andraones wrote:
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
Quote:
repeat
s := comport1.ReadString;
edit1.text:=edit1.text+s;
until (pos(sOK, s) > 0) or (pos(sERROR, s) > 0) or (SecondsBetween(waktu,now) > 180);
|
|
|
| |
|
|
|
|
|
theodorusap |
| Location: |
|
|
Post subject:
Posted: 19/Sep/2010 11:06
|
|
onNovice
Joined: 08-Dec-2009
Posts: 9
Status: Offline
|
|
code : pascal 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 :
code : pascal 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 :
code : pascal 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. |
|
|
| |
|
|
|
|
|
andraones |
| Location: |
|
|
Post subject:
Posted: 20/Sep/2010 12:50
|
|
onBeginner
Joined: 31-Aug-2010
Posts: 5
Status: Offline
|
|
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 ... |
|
|
| |
|
|
|
|
|
aandrie77 |
| Location: |
|
|
Post subject:
Posted: 23/Sep/2010 10:54
|
|
onConfident
Joined: 27-Jan-2007
Posts: 28
Status: Offline
|
|
|
andraones wrote:
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 ...
sudah coba pake code ini :
Quote:
repeat
s := comport1.ReadString;
edit1.text:=edit1.text+s;
until (pos(sOK, s) > 0) or (pos(sERROR, s) > 0) or (SecondsBetween(waktu,now) > 180);
[/quote] |
|
|
| |
|
|
|
|
|
|
