Thanks Remy
I've done the following with success :
Concerning the threadlist, with IdHTTPServer1.SessionList I don't see how I can lock the list. Please can you help me ?
I've done the following with success :
Code:
procedure TForm1.IdHTTPServer1SessionStart(Sender: TIdHTTPSession);
begin
Sender.Content.Create;
Sender.Content.AddPair('phase','1');
end;
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
phase : string;
begin
if ARequestInfo.Session <> nil then phase := ARequestInfo.Session.Content.Values['phase'];
....
end;
Concerning the threadlist, with IdHTTPServer1.SessionList I don't see how I can lock the list. Please can you help me ?