Ich habe jetzt
hier von hathor eine Funktion gefunden, die schnell ist
Delphi-Quellcode:
function IsUrlValid(
const url:
string): boolean;
var
hInet: HINTERNET;
hConnect: HINTERNET;
infoBuffer:
array [0..512]
of char;
dummy: DWORD;
bufLen: DWORD;
okay: LongBool;
reply:
String;
begin
hInet := InternetOpen(PChar(application.title),
INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY,
nil,
nil,0);
hConnect := InternetOpenUrl(hInet,PChar(
url),
nil,0,
INTERNET_FLAG_NO_UI,0);
if not Assigned(hConnect)
then
//----------------------------------------------------------
// If we couldn't open a connection then we know the url
// is bad. The most likely reason is that the url is bad,
// but it could be because of an unknown or badly specified
// protocol.
//----------------------------------------------------------
result := false
else
begin // Create a request for the url.
dummy := 0;
bufLen := Length(infoBuffer);
okay := HttpQueryInfo(hConnect,HTTP_QUERY_STATUS_CODE,
@infoBuffer[0],bufLen,dummy);
if not okay
then
// Probably working offline, or no internet connection.
result := False
else
result := infoBuffer= '
200';
InternetCloseHandle(hConnect);
end;
InternetCloseHandle(hInet);
end;
Ich werd nacher (wenn der die Liste abgearbeitet hat) mal schauen, ob die richtig funktioniert hat.
Zitat von
Sherlock:
Was ist, wenn das Bild bei jemandem steht, der keine direkten Links zulässt? Und dann bei jedem Link auf eines seiner Bilder plötzlich sowas hier liefert?
http://72.249.127.184/media/no_hotlinking.jpg
Das merkt das Programm aber nicht, oder?
Nein... aber ich kann dir versprechen, dass soetwas nicht kommt... die Bilder sind auf meinem Server
