Hi,
im Client musst Du um einen String zu empfangen einen Timer einfügen, der dann etwa folgendes enthält:
(Bsp in
Indy 10)
Delphi-Quellcode:
procedure TForm1.TimerGetMessage(Sender: TObject);
var
Msg : String;
begin
if not TCPClient.Connected then exit;
// hier wird der gesendete String ausgelesen
Msg := TCPClient.iohandler.ReadLn('', 5);
end;
beim Server sendest du die Anfrage des clients gleich im onexecute zurück...
Delphi-Quellcode:
procedure TForm1.tcpServerExecute(AContext: TIdContext);
var
Msg : String;
begin
// AnfrageString vom Clienten
Msg := AContext.Connection.iohandler.ReadLn;
// Antwort als String zum Client schicken
if Msg='XYZ' then Aconnection.IOHandler.WriteLn('Meine Antwort');
end;
Tschö
Ralf