Ich habe aber das Gefühl das trotzdem bei jedem Redirect das FWorkEndevent ausgelöst wird. Oder ist das nicht korrekt?
.. da bin ich mir nicht 100%ig sicher.
Bei jedem Redirect wird ja auch eine Information zum Client zurückgeschickt (die neue
URL)
es ist durchaus nachvollziehbar das dadurch (wenn die Information komplett beim Client angekommen ist) ein WorkEnd Event ausgelöst wird.
Aber sollte HandleRedirect dieses nicht vermeiden?
Delphi-Quellcode:
procedure TDownloadThread.Execute;
var
IdHTTP: TIdHTTP;
begin
IdHTTP := TIdHTTP.Create(
nil);
try
idHTTP.HandleRedirects := true;
// hast Du das eingefügt?
IdHTTP.OnWorkBegin := FWorkBeginEvent;
//FWorkBeginEvent;
IdHTTP.OnWork := FWorkEvent;
IdHTTP.OnWorkEnd := FWorkEndevent;
FCode := IdHTTP.Get(
URL);
finally
IdHTTP.Free;
end;
Synchronize(ShowCode);
end;
Grüße
Klaus