url existiert?

[mr.unbekannt]

naja, die url funktioniert normalerweise, is nur die frage, ob sie gerad eonline ist! undd a hätte ich gerne ne funktion die mir entweder ja oder nein sagt!

[marabu]

Na gut - hier noch eine Variante, die auch socket Fehler kapselt:

Delphi-Quellcode:

function UrlCheck(sUrl: String; bAllowRedirects: Boolean = false): Integer;
begin
  with TidHTTP.Create(nil) do
  try
    try
      HandleRedirects := bAllowRedirects;
      Head(sUrl);
      Result := Response.ResponseCode;
    finally
      Free;
    end;
  except
      Result := GetLastError;
  end;
end;

begin
  if UrlCheck('http://www.delphipraxis.net', true) = 200 
    then ShowMessage('!')
    else ShowMessage('?');
end;

Grüße vom marabu

[mr.unbekannt]

nu sagt er "host not found" wenn es die addy net gibt, was ja ist, wenn der net onlie ist, aber der sollte ja nur das "?" zeigen und net diese fehelrmeldung! wo is der fehler? man muss den doch einfach sagen können, das er die fehlermeldung net rausgibt!

[dahead]

wenn ich dich richtig verstehe, musst du in marabus code den befehl "Result := GetLastError" auskommentieren (im try..except block).

[mr.unbekannt]

naja, ich will einfach eine routine, die mir sagt, ob eine url online ist, bzw. sie existiert oder nicht, ohne jegliche fehlermeldungen! und ohne ein prog, was ne weile hängt!

[marabu]

Also gegen das "ne Weile hängen" kannst du nicht wirklich was tun. Du musst dem Internet schon etwas Zeit lassen, um auf die Head-Anfrage zu antworten. Dass aber bei dir eine Fehlermeldung kommt, das liegt wohl eher daran, dass du in der IDE testest und in den Debug-Optionen das Anhalten bei exceptions eingestellt hast.

marabu

[Privateer3000]

Hallöchen,
ich will diesen etwas älteren Beitrag mal aufgreifen da ich ein ähnliches Problem habe.
Ich habe den Snippet von Marabu ausprobiert und Delphi meldet:
"Ungültiges Argument zum Codieren des Datums"
Was zum Henker hat das zu bedeuten?

Grüße

[mjustin]

Zitat von Privateer3000:

Hallöchen,
Ich habe den Snippet von Marabu ausprobiert und Delphi meldet:
"Ungültiges Argument zum Codieren des Datums"
Was zum Henker hat das zu bedeuten?

In welcher Quelltext-Zeile tritt der Fehler auf? Welche Indy Version wird verwendet? (Aktuell ist 10.6)

[Privateer3000]

Der Compiler bleibt hier stehen:
Result := Response.ResponseCode;

Indy scheint etwas älter zu sein.
Geht das gleiche mit anderen Mitteln?

[mjustin]

Zitat von Privateer3000:

Der Compiler bleibt hier stehen:
Result := Response.ResponseCode;

Indy scheint etwas älter zu sein.

Das läßt sich sehr schnell korrigieren:

* aktuelle Indy Version herunterladen (von http://indy.fulgan.com/ZIP/),
* nicht in der IDE als Packages installieren, sondern nur im Projekt den Suchpfad anpassen so dass er <Indy>\Lib\Core, <Indy>\Lib\Protocols und <Indy>\Lib\System enthält.