Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   xmlhttprequest redirect behandeln (https://www.delphipraxis.net/168157-xmlhttprequest-redirect-behandeln.html)

youuu 8. Mai 2012 11:00

xmlhttprequest redirect behandeln
 
Hi, wie kann ich bei einen xmlhttprequest den redirect behandeln. Bislang erhalte ich immer nur "Zugriff verweigert"

Delphi-Quellcode:
Var
  ContentTyp: String;
  req: IXMLHTTPRequest;
Begin
  try
    req := CreateRequestObject;
    req.open('GET', url, False, EmptyParam, EmptyParam);
    req.setRequestHeader('Cache-Control', 'No');
    req.setRequestHeader('User-Agent', 'Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.16) Gecko/20110319 Firefox/3.6.16;)');
    req.send(EmptyParam{leerer Body}); // Anfrage an Server senden und Antwort abwarten

    ContentTyp := req.getAllResponseHeaders;

    // Status auswerten
    if not (req.status in [200, 201, 204, 300, 301]) then begin
      Result := False;
    end;
  except
    on E: Exception do begin
      Result := False;
    end
  end;

SubData 8. Mai 2012 11:20

AW: xmlhttprequest redirect behandeln
 
Wenn du Zugriff verweigert erhälst, dann ist das kein Redirect sondern Zugriff verweigert. Ein Redirect erhält ein Moved ;-)

youuu 8. Mai 2012 11:28

AW: xmlhttprequest redirect behandeln
 
Hm, das ist komisch.
Ich habe mir die Webseite angesehen, Sie wurde wirklich umgeleitet, dann habe ich das gleiche mit der umgeleiteten Webseite versucht und dort ging es.
Daher nahm ich dies an, das der redirect nicht behandelt wurde.

Edit:
Also es liegt definitive am redirect.

Der Fehler kommt hier zustande

Zitat:

req.send(EmptyParam{leerer Body}); // Anfrage an Server senden und Antwort abwarten
und geht dann direkt in die Exception rein.


Wie kann ich IXMLHTTPRequest ein redirect beibringen?


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:42 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz