Prüfen, ob Bild im Internet erreichbar

[DeddyH]

Delphi-Quellcode:

uses WinInet;

...

function IsUrlValid(const sUrl: string): Boolean;
var hInet, hConnect: HINTERNET;
    StatusCode, dummy, bufLen: DWORD;
begin
  Result := False;
  hInet := InternetOpen(PChar(Application.Title),
                        INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY,
                        nil,
                        nil,
                        0);
  if Assigned(hInet) then
    try
      hConnect := InternetOpenUrl(hInet,
                                  PChar(sUrl),
                                  nil,
                                  0,
                                  INTERNET_FLAG_NO_UI,
                                  0);
      if Assigned(hConnect) then
        try
          dummy := 0;
          bufLen := SizeOf(StatusCode);
          if HttpQueryInfo(hConnect,
                           HTTP_QUERY_STATUS_CODE or HTTP_QUERY_FLAG_NUMBER,
                           @StatusCode,
                           bufLen,
                           dummy) then
                //Statuscode 200 = alles OK
            Result := StatusCode = 200;
        finally
          InternetCloseHandle(hConnect);
        end;
    finally
      InternetCloseHandle(hInet);
    end;
end;

Ich hoffe, ich habe nichts vergessen oder zuviel gelöscht.