Her bir bilgi gönderiminde IndyTCPClient yaratmak içinde bir tek bilgi göndermek ve kapatmak zorundayım.(Yoksa alet anlamıyor).Makine ister Win98 isterse de Win2000 olsun paketleri 6 şar 6 şar gönderiyor. Ama bazen makineyi kapatıp açılınca düzeliyor(PING atmada bir fark yok). Fakat cihazı değiştirmek fark yaratmıyor
Not : Her gönderimde aynı IP ve aynı PORT'a gönderim yapıyorum.
program kodum :
procedure SendAStr (const SendStr: String);
var IDTCP : TIdTCPClient;
begin
IDTCP := TIdTCPClient.Create(Self);
IDTCP.Host:= STSendIP.Caption ;
IDTCP.Port:= StrToInt(STSendPort.Caption);
IDTCP.Connect;
try
IDTCP.WriteLn(SendStr);
IDTCP.WriteLn('');
finally
IDTCP.Disconnect ;
IDTCP.Free ;
end;
end;