Konzept für Indy Protokoll bzw. Übermittlung.

[Thomas83]

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.