1.) Fehler beim Erfassen von Daten,
und wie kann ein Server Daten vom Client bekommen ?
Ich kann weder Daten bekommen, noch senden.
Delphi-Quellcode:
uses idTCPServer, idComponent, idTCPComponent, idTCPClient,..;
[...]
// Diese Prozedur sollte doch die Daten (hier: 'TESTZEILE') ab-
// fangen und in ein EditFeld schreiben.
// Geht aber nicht, da kommt ein Connection-Refuse ERROR
procedure TForm1.idTCPServer1Execute(ATh...);
begin
Form1.Edit1.Text := AThread.Connection.ReadLn;
end;
// Client sendet 'TESTZEILE' an Schnittstelle
procedure send_zeichenkette;
begin
// Client initialisiert Server-Schnittstelle und connected
idTCPClient1.Host := '127.0.0.1';
idTCPClient1.Port := 5500;
idTCPClient1.Connect;
// Nicht senden, wenn nicht verbunden
if idTCPClient1.Connected = false then exit;
// Sollte TESTZEILE versenden
try
idTCPClient1.OpenwriteBuffer;
try
idTCPClient1.WriteLn ('TESTZEILE');
finally
idTCPClient1.CloseBuffer;
end;
finally
idTCPClient1.Disconnect;
end;
end;
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]