Hast du eventuell einen Denkfehler bei der Verwendung von IdHTTP?
Du verarbeitest ja im OnWork den HTTPO.ResponseText, dieser gibt aber nur den Status (z.B. "HTTP/1.1 200 OK") zurück. Wenn du den
HTML-Quelltext bzw. den Inhalt der heruntergeladenen Dastei in einem String haben willst, dann geht das z.B. so:
Delphi-Quellcode:
procedure TMainServer.SBSearchClick(Sender: TObject);
var
HPacket : TPacketHead;
ContentStr : String; //Hier
begin
if not Initialize then exit;
SetFilters;
DisplayRules;
Case CBEGames.ItemIndex of
0..8 : LoadMasterList(HPacket,nil);
9..11 : begin
HTTPO.Tag := CBEGames.ItemIndex;
ContentStr := HTTPO.Get(MasterFilter.QueryMaster); //Und hier
Case HTTPO.Tag of
9 : LoadMasterList(HPacket,QueryMain.FUTSList(ContentStr))
else LoadTigerList(QueryMain.FCSTiger(ContentStr))
end;
end
end
end;