Net Bağlantı Durumu

[kadirkurtoglu]

s.a.

arkadaşlar indy misc tabındaki TIdIPWatch bileşeni ile bağlantı durumunu sorguluyorum. bağlantıyı yerel değilde net manasında nasıl sorgularım. yani 2 şekilde sorgulamak istiyorum.
1- Yerel Bağlantı
2- Net Bağlantısı

Kod: Tümünü seç

if IdIPWatch1.IsOnline then
begin
label1.Caption := 'İnternet Aktif';

[tuanna]

Kod: Tümünü seç

uses wininet;
// uses kısmına wininet yazmayı unutmayın
function UserOnline:boolean;
var
connect_status:dword;
begin
connect_status := 2 {lan}   +
                  1 {modem} +
                  4 {proxy} ;
result := InternetGetConnectedState(@connect_status,0);
end;
if UserOnline = true then ShowMessage('Internet bağlantı durumu: Online')
                          else
                          ShowMessage('Internet bağlantı durumu: Offline');
// 

kodbanktan alıntı işini görürümü bilemem ama

[kadirkurtoglu]

ilgili kod bloğunu denedim çalışıyor....

Teşekkürler.....