Delphidən linkin varlığını yoxlama alqoritmi

Salam, deməli, sual belədir:
Delphi üzərindən müəyyən bir linkin (məsələn, google.com, cavablar.net, cavablar.az, cavablar.com) varlığını necə yoxlaya bilərəm?!

Məntiqə görə təqribən bu cür olmalıdır, ancaq nəticə yanlışdır.

if FileExists(‘http://google.com’) then ShowMessage(‘Link var!’) else ShowMessage(‘Link yoxdur!’);

Kod hissəsi necə yazılsa (söz yox ki, müvafiq operator FileExists olmayacaq), daha doğru olar?

Sualı verdi: Mehman Elxanoglu (25/04/2012)

Qısa keçid.

Verilmiş cavablar və yazılan şərhlər (5 cavab var)

Onar Alili

(17:09, 03/05/2012 ) #14346

Salam.

uses Ping;
...
const ADP_IP = '74.125.232.49'; (* https://www.google.az/ *)
begin
 If  Ping.Ping(ADP_IP) then 
   ShowMessage('Google.az Online');
end;

bu kod ile saytın ip ping atırıq əgər sayt aktivdirsə ShowMessage ile göstəririk.

Uğurlar

Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

Mehman Elxanoglu

(11:45, 07/05/2012 ) #15023

Əslində sualımı başdan başqa cür verməliydim. Əslində məni maraqlandıran sual belədir:
Tutaq ki, hər hansı saytın serverində müəyyən faylın varlığını yoxlamaq istəyirəm və serverdəki faylın həcmi də 1 QB-dan artıqdır, yəni fərz edək ki, http://FilanSayt.com/İlk_qovluq/Sonraki_qovluq/Mene_lazim_olan_fayl.exe faylını RAM-a yerləşdirmədən varlığını öyrənmək istəyirəm, onda müvafiq kod necə olacaq?!

function fileExists(const url: String): Bool;
var http: TIdHTTP; answer: Bool;
begin
  answer:=True;
  http:=TIdHTTP.Create(nil);

  try
    http.Get(url);
  except
    on E: EIdHTTPProtocolException do answer:=False;
  end;

  FreeAndNil(http);
  Result := answer;
end;

Bu koddakı mənfi tərəf fayl yükləyib, sonra xəbərdarlıq edir ki, bu da çox vaxt aparır, yəni faylın həcmi 1 QB-dan çoxdursa və məndə də Dial-updırsa, gör mən nə qədər gözləməliyəm, halbuki, brauzerə girib, gözlərimlə 404 səhvini görsəm, daha az vaxtım gedəcək 🙂

Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

Onar Alili

(12:13, 07/05/2012 ) #15028

Salam
TIdHTTP classınan istifadə edə bilərsiz.

MyIdHTTP.Head(TheURL);
ResponseCode :=  MyIdHTTP.Response.ResponseCode; // fayl var
ContentLength := MyIdHTTP.Response.ContentLength;

Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

Onar Alili

(12:22, 07/05/2012 ) #15030

Belə bir kodda yoxlaya bilərsiz

procedure TFormMain.Button1Click(Sender: TObject);
var
  Http: TIdHTTP;
begin
  Http := TIdHTTP.Create(nil);
  try
    Http.Head('http://FilanSayt.com/İlk_qovluq/Sonraki_qovluq/Mene_lazim_olan_fayl.exe');

    ShowMessage(IntToStr(Http.Response.ContentLength));
  finally
    Http.Free;
  end;
end;

Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır