delphi 7 bir web sayfasının faal olup olmadığını sorgulamak

[gimil]

Arkadaşlar Merhabalar,

Delphi 7 ile bir web sayfasının çalışıp çalışmadığını kontrol etmek istiyorum. webbrowser kontrolü ile denedim ama bir yol bulamadım. Amacım sayfa görüntülenemiyor uyarısı veren linkleri tespit etmek. Yardımlarınız için şimdiden teşekkür ederim.

[conari]

viewtopic.php?f=2&t=10611

[Lord_Ares]

şöyle bir kod ile sitenin aktif olup olmadığını anlayabiliyoruz.Belki işine yarayabilir.
Fonkisyonumuz

Kod: Tümünü seç

implementation
 Uses WinInet;
{$R *.dfm}
     Function SiteAktif( URL:String ):Boolean;
    Var
      hSession, hUrl: HInternet;
    begin
      hSession := InternetOpen(pchar(url),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
      try
        hURL := InternetOpenURL(hSession, PChar(URL), nil,0,0,0);
      finally
        InternetCloseHandle(hSession);
        internetCloseHandle(hURL);
      end;
      Result := Boolean(hURL <> Nil);
    end;

Kullanım şekli

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
 Var
  Url : String;
begin
  url := Edit1.text;
  If SiteAktif( URL ) then ShowMessage('Site Aktif')
                      else ShowMessage('Site Pasif')
end;

[gimil]

Değerli yanıtlarınız çok teşekür ederim