Bağlantı kontrolü

[Lord_Ares]

merhaba internet bağlatısının olup olmadığını kontrol edip eğer varsa webbrowserde bir sayfa açmak istiyorum , indy tabında olan idwatch kontrolü ile yapılırmı veya başka şekilde nasıl yaparım.

teşekkürler.

[RewriteRule]

aslında try/except ile yapabilirsin.

Kod: Tümünü seç

try
  //webrowser kodu buraya
  ...
except
  ShowMessage('Internet baglantisi yok!');
end;

Gerçi bu çok basit bir yaklaşım.

[barutali]

uses kısmına :

Kod: Tümünü seç

wininet

function

Kod: Tümünü seç

function UserOnline:boolean;
var
connect_status:dword;
begin
connect_status := 2 {lan}   +
                  1 {modem} +
                  4 {proxy} ;
result := InternetGetConnectedState(@connect_status,0);
end;

Kullanım :

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
if UserOnline = True then ShowMessage('Internet Var' )
else
  ShowMessage('Internet YOk');
end;

end.

kolay gelsin..

[ikutluay]

forumda ceheckurl diye bir fonksiyon var. bu fonksiyonda verilen url nin musait olup olmadığına bakıyor. tabii url musait değilse bağlantının olmasıda seni kurtarmayacğaından bu kontrolüde yapmalısın.