Habe es jetzt so gelöst....
Die Procedure OnExecute vom Server sieht so aus:
pseudocode
Delphi-Quellcode:
begin
if fNichtLauschen then exit;
AThread.Connection.ReadTimeOut := 20;
try
AThread.Connection.ReadBuffer(header,sizeof(header));
except
on e : EidReadTimeout do exit;
end;
... //weiter bearbeitung
end;
möchte ich einen Befehl absenden und ware auf eine antwort
pseudocode
Delphi-Quellcode:
begin
fNichtLauschen := true;
sleep(21);
SendeHeaderToClient(header,i);
SendeDatenToClient(daten,i);
SendeSummeToClient(summe,i);
s := LesenAntwort;
fNichtLauschen := false;
end;
was meint ihr?
funktioniert alles wunderbar bekomme keinen fehler und alle daten werden richtig versendet.