Com-Port veya Tcp-IP haberleşme

[bgoktas]

Arkadaşlar bu konuda anlatılanlar bana yabancı olduğundan biraz ağır geldi. Ben şunu öğrenmek istiyorum,

Elimde com'dan haberleşen ve içinde çekilen barkodlu kartın tarih ve saat bilgisini tutan bir terminalim var.

-bunu bilgisayarımla haberleştirmek için asyn32 comport toolunu formuma koydum.

-comport ayarınıda yaptım 9600,n,8,1 gibi

terminalden veri almak için read, okunan bilgiyi silmek için remove, saat öğrenmek için tr , saat değiştirmek için tw gibi komutlar var. bunları bir buton clik olayına nasıl yazarım. + topladığım bilgileri nasıl görürüm.

[mege]

viewtopic.php?p=16575#16575

burdaki örnek bence yeterince açık. eğer asynpro kullanır iseniz ilgili kodlar sayfanın altında

Kod: Tümünü seç

Butona bunu koyarsın 
ApdComPort1.OutPut := 'READ'+#13+#0; 
CharCntReceived:=0;

gelen verinin uzunluğu sabittir büyük ihtimal veya * + @gibi bir işaretle bitiyordur..

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var LastCount,I : integer;
begin

LastCount:= Count;

for I := 1 to LastCount do
 begin
  cRcvBuffer[CharCntReceived]:= ApdComPort1.GetChar;
  inc(CharCntReceived);
 end;
if CharCntReceived = 5 then 
 showmessage(cRcvBuffer);
veya 
if cRcvBuffer[CharCntReceived] = '*' then 
 showmessage(cRcvBuffer); gibi

end;