Thema: Delphi Problem mit TIdHTTP

Einzelnen Beitrag anzeigen

scp

Registriert seit: 31. Okt 2003
1.120 Beiträge
 
Delphi 7 Personal
 
#6

Re: Problem mit TIdHTTP

  Alt 10. Okt 2004, 22:06
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;
  Mit Zitat antworten Zitat