also jeder thread erzeugt seine eigene instanz von idhttp
die execute methode sieht wie folgt aus:
type
TMyThreads = class(TThread)
....
Delphi-Quellcode:
procedure TMyThreads.Execute;
begin
while not Terminated do
begin
if WaitForSingleObject(WorkPool.Semaphore, INFINITE) = WAIT_OBJECT_0 then
begin
Job:= WorkPool.GetNextJob;
if Job<>szNoJobAvail then
begin
while Lunch = false do
Application.ProcessMessages;
end;
end;
end;
end;
ich denke aber das es irgendwo an den methoden get() und post() hängen muss,
denn sobald die methode lunch() gestartet wurde muss diese auch durchlaufen
werden, nur wird der durchlauf irgendwo ausgebremst