İnternet bağlantısı kontrol

[dogan]

Merhaba, internet bağlantısı için IdIPWatch internet bağlantım olmasına rağmen bağlantı yok uyarısı veriyor, android de nasıl kontrol edebilirim...

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
begin
  try
    if IdIPWatch1.ForceCheck = False then
    begin
      ShowMessage('İnternet bağlantısı yok!')
    end
    else
    begin
      WebBrowser1.URL := 'http://www.google.com.tr';
      WebBrowser1.Navigate;
    end;
  except
  end;
end;

[SimaWB]

XE5 ile yapılmış, IOS ve Android için örnek(Kaynak kodları mevcut):
http://delphi.radsoft.com.au/2013/11/ch ... elphi-xe5/