Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi file exist indy 9 (https://www.delphipraxis.net/103556-file-exist-indy-9-a.html)

himitsu 21. Nov 2007 17:01

Re: file exist indy 9
 
Du kannst ja für weitere Tipps auch mal in Luckie's BookmarkChecker reinschauen.
http://www.michael-puff.de/Programme...cker/index.php

ferby 24. Nov 2007 00:19

Re: file exist indy 9
 
Hallo,

ich habe jetzt doch bei einigen Links Problemme.

Zum Beispiel bei der URL

http://www.csam-europe.com

wird eine 404 Meldung von INDY zurückgegeben, obwohl es die URL gibt....
warum? wie kann ich das verhindern?

Klaus01 24. Nov 2007 09:09

Re: file exist indy 9
 
Zitat:

Zitat von ferby
... bei einigen Links Problemme.

Zum Beispiel bei der URL

http://www.csam-europe.com

wird eine 404 Meldung von INDY zurückgegeben, obwohl es die URL gibt....
warum? wie kann ich das verhindern?

Guten Morgen,

hast Du HandleRedirects auf true gesetzt?
Wenn Du die URL einmal anklickst, wirst Du in der Adressleiste eine andere URL finden.
-> die URL wurde weitergeleitet.

Grüße
Klaus

ferby 24. Nov 2007 09:26

Re: file exist indy 9
 
Morgen,

ja hab ich jetzt auf true gesetzt, geht aber leider trotzdem nicht...
an was kann es noch liegen???

ferby 24. Nov 2007 17:19

Re: file exist indy 9
 
Zitat:

Du kannst ja für weitere Tipps auch mal in Luckie's BookmarkChecker reinschauen.
http://www.michael-puff.de/Programme...cker/index.php

Da ich nicht weiter wußte habe ich mir jetzt mal das Projekt von Luckie angeguckt und der machts zimlich gleich wie ich:

Delphi-Quellcode:
procedure CheckBookmark(IdHTTP: TIdHTTP; const Link: string; var ResponseCode:
  Integer; var
  ResponseString: string);
begin
  try
    IdHTTP.Head(Link);
    ResponseCode := IdHTTP.ResponseCode;
    ResponseString := IdHTTP.ResponseText;
  except
     // bei einer Exception könnte IdHTTP.ResponseText leer sein
     // dann wird die Exception-Message als ResponseString zurückgeliefert
     // (z.B. wenn eine Firewall den Port 80 geblockt hat)
     on E:Exception do
     begin
       ResponseCode := IdHTTP.ResponseCode;
       ResponseString := IdHTTP.ResponseText;
       if ResponseString = '' then
          ResponseString := E.Message;
     end;
  end;
end;

Aber auch hier wird ein 404 Fehler ausgelößt....
weiß jemand Rat?


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:15 Uhr.
Seite 2 von 2     12   

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