Problem mit IdHTTP Exception 'HTTP/1.1 302 Moved Temporarily

[emsländer]

Moin,

hab da so ein mittelprächtiges Problem. Dieses kleine Ding wird aufgerufen, um eine Webseite im gewissen Turnus zu ziehen. Alle x-Mal (keine Regelmäßigkeit) kommt es zu o.g. Fehlermeldung.

Hat da jemand eine Idee?

Delphi-Quellcode:

unit online;

interface

  function weblesen(sURL : string) : ansistring;

implementation

uses main,classes, sysutils, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
             IdHTTP, IdAntiFreezeBase, IdAntiFreeze;

function weblesen(sURL : string) : ansistring;
  var  sstream : Tstringstream;
       httpcon : TIdHTTP;
       antifreeze : TIdAntiFreeze;
begin
  result := '';
  sstream := tstringstream.Create('');
  try
    antifreeze := TIdAntiFreeze.Create(nil);
    httpcon := TIdHTTP.create;
    antifreeze.Active := true;
    HttpCon.Get(sURL,sstream);
    result := utf8towidestring(sstream.DataString);
  except
    httpcon.Disconnect;
  end;
  antifreeze.Active := false;
  freeandnil(httpcon);
  freeandnil(antifreeze);
  freeandnil(sstream);
end;
end.

Gruss

EL

[Klaus01]

Guten Abend,

gibt es bei den Indys nicht eine Option HandleRedirect o.ä.

Grüße
Klaus

[shmia]

Property HandleRedirects auf True setzen, dann folgt die Komponente der neuen URL.

Delphi-Quellcode:

httpcon.HandleRedirects := true;

Hier noch die Erklärung zum Status 302 bzw. 307:
http://de.wikipedia.org/wiki/HTTP-St...XX_-_Umleitung

[emsländer]

Zitat:

Zitat von shmia

Property HandleRedirects auf True setzen, dann folgt die Komponente der neuen URL.

Delphi-Quellcode:

httpcon.HandleRedirects := true;

Hier noch die Erklärung zum Status 302 bzw. 307:
http://de.wikipedia.org/wiki/HTTP-St...XX_-_Umleitung

Danke!


Gruss

EL