Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Funktion URLExists? (https://www.delphipraxis.net/97077-funktion-urlexists.html)

hathor 4. Aug 2007 20:49

Re: Funktion URLExists?
 
http://www.uni-muenster.de/Jura.itm/...Januar2006.pdf
kann trotz Tippfehler geladen werden.
Begründung:

Zitat bei 3 Fehlern:

Nicht gefunden

Obwohl unser Server in der Lage ist, kleinere Tippfehler zu korrigieren, konnte die angeforderte Information nicht gefunden werden. Der Verweis, dem Sie gefolgt sind, ist überholt oder falsch oder der Server wurde so konfiguriert, dass Sie nicht darauf zugreifen können.
Probieren Sie, einfach die Adresse abzukürzen, indem Sie alles nach dem letzten, vorletzten, drittletzten usw. Schrägstrich weglassen.

Das heisst: Der Server ist sehr fehlertolerant....

DGL-luke 4. Aug 2007 21:13

Re: Funktion URLExists?
 
Zitat:

Zitat von wicht
Da es aber viele Response-Codes gibt, musst du da auch genau schauen, was als OK gilt und was nicht.

OK = 2xx ;-)

PeterPanino 4. Aug 2007 22:00

Re: Funktion URLExists?
 
Leider funktioniert IsUrlValid (von hathor genannt) bei FTP nicht. Wie könnte also eine universelle UrlExists-Funktion aussehen?

Der Ansatz von marabu ist ja schon sehr vielversprechend:

Delphi-Quellcode:
function UrlExists(const url: string): Boolean;
begin
  if AnsiStartsText('ftp', url) then
    Result := FTPExists(url)
  else
  if AnsiStartsText('http', url) then
    Result := HTTPExists(url)
  else
    raise Exception.Create(S_WRONG_URL);
  end;
end;

hathor 4. Aug 2007 23:09

Re: Funktion URLExists?
 
Example of FtpFindFirstFile and InternetFindNextFile:

http://www.cryer.co.uk/brian/delphi/...stnextfile.htm


FTP programming with the WinInet API:

http://www.cryer.co.uk/brian/delphi/...#HttpQueryInfo


Vielleicht bringt uns das weiter?

PeterPanino 5. Aug 2007 00:44

Re: Funktion URLExists?
 
Gibt es nicht Standardantworten, die FTP-Server zurückgeben, wenn eine angeforderte Datei nicht existiert?

PeterPanino 5. Aug 2007 01:03

Re: Funktion URLExists?
 
Liste der Anhänge anzeigen (Anzahl: 1)
Jetzt hab ich's!!! -> Die JEDI-Komponente TJvUrlListGrabber macht alles das, was ich wollte!

Wenn die Datei auf dem FTP-Server nicht existiert, kommt bei OnError folgende Meldung:
Zitat:

550 Could not get file size.
550 Failed to open file.
(S. angehängtes Bild FtpError.gif)

Jetzt müsste ich nur noch wissen, ob diese Codes Standard bei allen FTP-Servern sind. Auf der Seite FTP Status-Codes werden die Rückgabecodes für den Microsoft Internet Information Server (IIS) beschrieben. Gelten die nur für den IIS oder allgemein für alle FTP-Server?

Klaus01 5. Aug 2007 09:44

Re: Funktion URLExists?
 
Vielleicht schaut Du einmal in die FTP RFC959, dort findest Du die ReturnCodes.

Grüße
Klaus


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

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