Hmm..
Meines Wissens ist jeder Aufruf von HTTPServerCommandGet bereits ein eigener Thread..
Für das Problem mit Warten, bis anderer Thread fertig empfehle ich mal so: TCriticalSection
Eine CriticalSection global in deinem HTTP-Server erzeugen und dann in jedem HTTPServerCommandGet:
(Nur so herunter getippt..)
Delphi-Quellcode:
var
CS : TCriticalSection; // z.B. im initialization erstellt...
procedure TfrmMain.HTTPServerCommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo;
AResponseInfo: TIdHTTPResponseInfo);
begin
CS.Acquire;
try
ANTWORTEN_ERZEUGEN(AContext, ARequestInfo, AResponseInfo);
finally
CS.Release;
end;
end;
So führt der erste Thread das ANTWORTEN_ERZEUGEN aus und alle anderen warten (durch Acquire) bis er fertig ist.
Wenn diese fertig ist (Release), kommt der nächste dran....
Durch die Globale Verwendung ist zu mindestens der gleichzeitige Zugriff aus den Threads auf ANTWORTEN_ERZEUGEN verhindert..
Jedoch dürfte es hier noch Probleme mit HauptThread geben, da wir ja immer noch der (nicht über TCriticalSection) erzeugten und vom Formular verwendeten Report haben.
Somit würde ich diesen nicht auf dem Formular platzieren, sondern davon losgelöst in einem eigenen Thread, der auch nur per globaler CriticalSection darauf zugreift...