Merhaba bir ip adresine bu veriyi göndermem gerekiyor, hercules test uygulamasında deneme yapıyorum gönderiyor(uygulama tek $ işareti yerine çift $$ koymamı belirtiyor).
Delphide bu şekilde deneme yapıyorum bağlandığında serverdan $SEND$ komutu geliyor fakat server'a verinin gitmediğini gözlemliyorum.
Delphide bu şekilde deneme yapıyorum bağlandığında serverdan $SEND$ komutu geliyor fakat server'a verinin gitmediğini gözlemliyorum.
procedure TForm1.Button1Click(Sender: TObject); begin IdTCPClient1.Host := ''; IdTCPClient1.Port :=; TThread.CreateAnonymousThread( procedure() begin try IdTCPClient1.Connect; TThread.Synchronize(TThread.CurrentThread, procedure() begin end); finally TThread.Synchronize(TThread.CurrentThread, procedure() begin end); end; end).Start; end;
procedure TForm1.Button2Click(Sender: TObject);
var
DataToSend: string;
begin
DataToSend :=
'data' +
#10#13;
if IdTCPClient1.Connected then
begin
IdTCPClient1.IOHandler.Write(DataToSend);
end
else
begin
Memo1.Lines.Add('ERROR: You aren''t connected!');
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject); begin if not(IdTCPClient1.Connected) then Exit; if IdTCPClient1.IOHandler.InputBufferIsEmpty then Exit; Memo1.Lines.Add(IdTCPClient1.IOHandler.InputBufferAsString()); end;
Muharrem ARSLAN
