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)

Yadda saxlama

Qısa keçid.

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

Onar Alili

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

Salam.

1uses Ping;
2...
3const ADP_IP = '74.125.232.49'; (* https://www.google.az/ *)
4begin
5 If  Ping.Ping(ADP_IP) then 
6   ShowMessage('Google.az Online');
7end;

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?!

1function fileExists(const url: String): Bool;
2var http: TIdHTTP; answer: Bool;
3begin
4  answer:=True;
5  http:=TIdHTTP.Create(nil);
6 
7  try
8    http.Get(url);
9  except
10    on E: EIdHTTPProtocolException do answer:=False;
11  end;
12 
13  FreeAndNil(http);
14  Result := answer;
15end;

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.

1MyIdHTTP.Head(TheURL);
2ResponseCode :=  MyIdHTTP.Response.ResponseCode; // fayl var
3ContentLength := 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

1procedure TFormMain.Button1Click(Sender: TObject);
2var
3  Http: TIdHTTP;
4begin
5  Http := TIdHTTP.Create(nil);
6  try
7    Http.Head('http://FilanSayt.com/İlk_qovluq/Sonraki_qovluq/Mene_lazim_olan_fayl.exe');
8 
9    ShowMessage(IntToStr(Http.Response.ContentLength));
10  finally
11    Http.Free;
12  end;
13end;