ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽﾊりすｿｽｿｽｿｽｿｽ 2005/03/09(ｿｽｿｽ) 18:30:23

ｿｽｿｽｿｽｿｽURLｿｽｿｽpｿｽﾓゑｿｽｿｽAｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽｿｽｿｽﾆ托ｿｽｿｽﾝゑｿｽｿｽｿｽURL(ｿｽｿｽｿｽｿｽｿｽNｿｽ謔ｪｿｽｿｽｿｽｿｽﾌゑｿｽ)ｿｽﾈのゑｿｽｿｽ調べゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾍ難ｿｽｿｽﾉ問いｿｽﾜゑｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽﾐ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽﾉゑｿｽｿｽｿｽ 2005/03/09(ｿｽｿｽ) 18:59:45

ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
uses wininet;ｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽLｿｽｿｽｿｽbｿｽVｿｽｿｽｿｽｿｽｿｽcｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾊでゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽB

function ExistsUrl(const Url: String): Boolean;
var
  hInet, hFile: HINTERNET;
begin
  hInet :=  InternetOpen('WinInet',
  INTERNET_OPEN_TYPE_PRECONFIG,
    nil,
    nil,
    0);

  hFile := InternetOpenUrl(
    hInet,
    PCHAR(Url),
    nil,
    0,
    INTERNET_FLAG_RELOAD,
    0);
  Result := (hFile <> nil);

  InternetCloseHandle(hFile);
  InternetCloseHandle(hInet);

end;

pppi 2005/03/09(ｿｽｿｽ) 19:16:14

function ExistURL(URLString : string) : boolean;
  var vIdHTTP : TIdHTTP;
begin
  // Delphiｿｽtｿｽｿｽｿｽｿｽindy ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽg
  Result := False;
  vIdHTTP := TIdHTTP.Create;
  try
    try
      vIdHTTP.Head(URLString);
      Result := True;
    except
      on EIdUnknownProtocol do
       begin
         // ｿｽsｿｽｿｽｿｽﾈプｿｽｿｽｿｽgｿｽRｿｽｿｽ
       end;
      on EIdHTTPProtocolException do
       begin
         // ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
       end;
      else
       begin
        // ｿｽﾈんだろうｿｽｿｽ
       end;
     end;
  finally
    vIdHTTP.Free;
  end;
end;

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ