Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   url existiert? (https://www.delphipraxis.net/61860-url-existiert.html)

mr.unbekannt 27. Jan 2006 12:38


url existiert?
 
hallo dpler!

ich suche eine Funktion mit der man gucken kann ob eine bestimmte url existiert, wenn zum beispiel der server down ist! bitte um shcnelle antwort! mein prog hängt sich imemr dnan auf! wenns geht mit idhttp oder urlmon!

mr.unbekannt

malo 27. Jan 2006 12:48

Re: url existiert?
 
Hier im Forum suchenPing

Skullschildi 27. Jan 2006 12:50

Re: url existiert?
 
Du könntest auch probieren mit idhttp
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  fn: TFileName;
  fs : TFileStream;
begin
  fn := 'C:\download.htm';                    // Datei, in der gespeichert werden soll
  fs := TFileStream.Create(fn, fmCreate);     // Übertragungsleitung für die Datei
  try
    try
      IdHTTP1.Get('http://www.google.de', fs); // Herunterladen der Datei, mit der die Domain
                                               // verknüpft ist, über den Kanal fs
    except
    end;
  finally
    FreeAndNil(fs);                           //den Kanal freigeben
  end;
end;
eine datei von der URL runterzuladen. wenn das nicht klappt, ist der server down oder das Verzeichnis existiert nicht

marabu 27. Jan 2006 12:55

Re: url existiert?
 
Hi,

die Methode Head() prüft ohne Übertragung der Datei.

Grüße vom marabu

mr.unbekannt 27. Jan 2006 14:22

Re: url existiert?
 
ic h habe mir die 2 funktionne mal angeguckt (head und ping) ping is net so gut, weil könnte isch ja die ip ändern und head, hört sich zwar net shcelcht an, weiß aber net wie ich die anwenden soll, weil ich doch das mit einer if then anweisung mahcne muss, als wenn die url besteht dann weitermachen! bite um schnelle antwort!

marabu 27. Jan 2006 18:04

Re: url existiert?
 
Um auf alle Eventualitäten gefasst zu sein musst du diesen Code noch etwas ausbauen:

Delphi-Quellcode:
// uses WinInet, idHTTP;

function UrlExists(sUrl: String; bAllowRedirects: Boolean = false): Boolean;
begin
  with TidHTTP.Create(nil) do
  try
    HandleRedirects := bAllowRedirects;
    Head(sUrl);
    Result := Response.ResponseCode = HTTP_STATUS_OK;
  finally
    Free;
  end;
end;
marabu

mr.unbekannt 28. Jan 2006 00:53

Re: url existiert?
 
danke erstmal für die antwort, werde sie nacher mal testen, aber sieht gut aus!

mr.unbekannt 28. Jan 2006 10:15

Re: url existiert?
 
naja sieht gut aus, nur der sagt, wenn es nicht existiert readtmeout! und das muss ich noch irgendwie umlenken können!

mr.unbekannt 28. Jan 2006 10:32

Re: url existiert?
 
das mit dem readtimout kriege ich net hin, also wenn die siete net da ist, sagt er readtimeout!

maynard 28. Jan 2006 10:52

Re: url existiert?
 
Tach...

Die eigentliche Frage war ja, ob die URL tatsächlich existiert .. und das kannst kannst du nur über einen DNS - Sever herausfinden. Ping usw. ist Unsinn denn das funzt eben nicht wenn der Server down is!

MfG


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:49 Uhr.
Seite 1 von 3  1 23      

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 by Thomas Breitkreuz