Sayfayı Yazdır | Pencereyi Kapat

internet bağantısının kontrol edilmesi

Nereden Yazdırıldığı: Datakent
Kategori: Diğer bölümler
Forum Adı: Borland Delphi
Forum Tanımlaması: Borland Delphi ile ilgili soru / sorun / paylaşım bölümü
URL: http://forum.datakent.com/forum_posts.asp?TID=1552
Tarih: 28.Nisan.2024 Saat 03:21


Konu: internet bağantısının kontrol edilmesi
Mesajı Yazan: murat turan
Konu: internet bağantısının kontrol edilmesi
Mesaj Tarihi: 31.Ekim.2008 Saat 12:19
//delphi ile internet bağantısının kontrol edilmesi

uses UrlMon,WinInet;

function netbaglantiknt: boolean;
const
  FLAG_ICC_FORCE_CONNECTION =  $00000001;
  ERROR_NO_CONNECTION = $000002A8;
  ERROR_USER_DISCONNECTION = $00000277;
  URL = 'http://www.google.com';
begin
  if InternetCheckConnection(PChar(URL), FLAG_ICC_FORCE_CONNECTION, 0) then
   Result := true
  else
   Result := false;
end;



-------------
http://www.kasatakip.com - Kasa Takip  |  http://www.caritakip.com - Cari Takip  |  http://www.evraktakip.com - Evrak Takip  |  http://www.etasqlmobil.com - ETA SQL Mobil


Sayfayı Yazdır | Pencereyi Kapat