İnternet Adresi Aktifmi Kontrol Etmek
| ||||
uses wininet;
Function CheckUrl(url:string):boolean;
var
hSession, hfile, hRequest: hInternet;
dwindex,xdwcodelen :dword;
dwcode:array[1..20] of char;
xres : 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;
xdwcodelen := 10;
HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE,
@dwcode, xdwcodelen, dwIndex);
res := pchar(@dwcode);
result:= (xres=’200′) or (xres=’302′);
if assigned(hfile) then
InternetCloseHandle(hfile);
InternetCloseHandle(hsession);
end;
end;
Kullanımı :
procedure TForm2.Button2Click(Sender: TObject);
begin
if CheckUrl(Edit1.Text) then
Label2.Caption := ‘Çalışıyor’
else
Label2.Caption := ‘Çalışmıyor’
end;
administrator2009-08-24 00:35:03
Benzer Yazılar:
- CxGrid de Arama Yapmak
- Metnin İçerisindeki Kelime Sayısını Bulan Kod
- Metin İçerisinden Bir Karakter Silmek
- Sayılara Binde Ayracı Eklemek
- ASCII Kodlarını Bulmak
- Dosya Uzantısından Programın Tespiti
- Yazılan Fiyatı Metine Çevirmek
- Bilgisayardaki Sürücü Listesini Almak
- Bilgisayarınızı Gözünüzle Kontrol edin
- Listbox İtemlerinin Sırasını Mause ile sürükleyerek Değiştirmek
Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.
Loading ...