web adresinin çalıştığını kontrol etmek

[hsngoktas]

Merhaba
Delphi7 de web adresinin çalıştığını nasıl kontrol edebilirim?

[conari]

INDY ile ping atabilirsiniz. Sitede örnekleri olabilir.dönen sonuca göre anlamlar verebilirsiniz.

[khanco]

Kod: Tümünü seç

function CheckUrl(url: string): boolean;
var
  hSession, hfile, hRequest: hInternet;
  dwindex, dwcodelen: dword;
  dwcode: array[1..20] of char;
  res: pchar;
begin
  if pos('http://', lowercase(url)) = 0 then
    url := 'http://' + url;
  Result := false;
  hSession := InternetOpen('InetURL:/1.0',
    INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if assigned(hsession) then
  begin
    hfile := InternetOpenUrl(
      hsession,
      pchar(url),
      nil,
      0,
      INTERNET_FLAG_RELOAD,
      0);
    dwIndex := 0;
    dwCodeLen := 10;
    HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE,
      @dwcode, dwcodeLen, dwIndex);
    res := pchar(@dwcode);
    result := (res = '200') or (res = '302');
    if assigned(hfile) then
      InternetCloseHandle(hfile);
    InternetCloseHandle(hsession);
  end;

sanırım işini görür. ama aynı servere arka arkaya bakarsan server banlayabilir.

[denizfatihi]

khanco merhaba function rica etsem biraz açıklarmısın,

hSession, hfile, hRequest: hInternet;
yıkardaki satırda hata veriyor uses kısmına bir şey mi eklememiz gerekiyor,

[seho]

s.a

uses kısmına Wininet eklemeniz gerekiyor.

http://www.experts-exchange.com/Program ... 17035.html

Bu adresten de bakabilirsin.

İyi çalışmalar.