function TdmMain.CheckInternet: boolean;
begin
result:=false;
try
IdTCPClient1.ReadTimeout:=2000;
IdTCPClient1.ConnectTimeout:=2000;
IdTCPClient1.Port:=80;
IdTCPClient1.Host:='google.com';
IdTCPClient1.Connect;
IdTCPClient1.Disconnect;
result:=true;
except
result:=false;
end;
end;
'FMX > Tip' 카테고리의 다른 글
| FMX - JSON 정리 (0) | 2018.10.30 |
|---|---|
| FMX - splash Screen 만들기 (0) | 2017.12.21 |
| FMX Facebook 연동 (0) | 2017.08.04 |
| 이름으로 component 찾아 사용하기 - Find Component (0) | 2017.05.01 |
| FMX - 안드로이드에서 Form ShowModal 사용하기 (0) | 2017.04.14 |