unit Network;

interface

function IsConnected: Boolean;  // 인터넷 연결 확인

function IsWiFiConnected: Boolean; // WiFi 사용 확인

function IsMobileConnected: Boolean; // 3G,LTE 등 데이터 네트워크 사용 확인

 

implementation

uses
System.SysUtils,
Androidapi.JNIBridge,
Androidapi.JNI.GraphicsContentViewText,
Androidapi.JNI.JavaTypes,
FMX.Helpers.Android;

 

type
JConnectivityManager = interface;
JNetworkInfo = interface;

JNetworkInfoClass = interface(JObjectClass)
['{E92E86E8-0BDE-4D5F-B44E-3148BD63A14C}']
end;

[JavaSignature('android/net/NetworkInfo')]
JNetworkInfo = interface(JObject)
['{6DF61A40-8D17-4E51-8EF2-32CDC81AC372}']
{Methods}
function isAvailable: Boolean; cdecl;
function isConnected: Boolean; cdecl;
function isConnectedOrConnecting: Boolean; cdecl;
end;


TJNetworkInfo = class(TJavaGenericImport<JNetworkInfoClass, JNetworkInfo>) end;

JConnectivityManagerClass = interface(JObjectClass)
['{E03A261F-59A4-4236-8CDF-0068FC6C5FA1}']
{Property methods}
function _GetTYPE_WIFI: Integer; cdecl;
function _GetTYPE_WIMAX: Integer; cdecl;
function _GetTYPE_MOBILE: Integer; cdecl;
{Properties}
property TYPE_WIFI: Integer read _GetTYPE_WIFI;
property TYPE_WIMAX: Integer read _GetTYPE_WIMAX;
property TYPE_MOBILE: Integer read _GetTYPE_MOBILE;
end;

[JavaSignature('android/net/ConnectivityManager')]
JConnectivityManager = interface(JObject)
['{1C4C1873-65AE-4722-8EEF-36BBF423C9C5}']
{Methods}
function getActiveNetworkInfo: JNetworkInfo; cdecl;
function getNetworkInfo(networkType: Integer): JNetworkInfo; cdecl;
end;
TJConnectivityManager = class(TJavaGenericImport<JConnectivityManagerClass, JConnectivityManager>)

end;

function GetConnectivityManager: JConnectivityManager;
var
ConnectivityServiceNative: JObject;
begin
ConnectivityServiceNative := SharedActivityContext.getSystemService(TJContext.JavaClass.CONNECTIVITY_SERVICE);
if not Assigned(ConnectivityServiceNative) then
raise Exception.Create('Could not locate Connectivity Service');
Result := TJConnectivityManager.Wrap(
(ConnectivityServiceNative as ILocalObject).GetObjectID);
if not Assigned(Result) then
raise Exception.Create('Could not access Connectivity Manager');
end;

 

//*****************************************************

function IsConnected: Boolean;
var
ConnectivityManager: JConnectivityManager;
ActiveNetwork: JNetworkInfo;
begin
ConnectivityManager := GetConnectivityManager;
ActiveNetwork := ConnectivityManager.getActiveNetworkInfo;
Result := Assigned(ActiveNetwork) and ActiveNetwork.isConnected;
end;

 

//*****************************************************

function IsWiFiConnected: Boolean;
var
ConnectivityManager: JConnectivityManager;
WiFiNetwork: JNetworkInfo;
begin
ConnectivityManager := GetConnectivityManager;
WiFiNetwork := ConnectivityManager.getNetworkInfo(TJConnectivityManager.JavaClass.TYPE_WIFI);
Result := WiFiNetwork.isConnected;
end;

//*****************************************************

function IsMobileConnected: Boolean;
var
ConnectivityManager: JConnectivityManager;
MobileNetwork: JNetworkInfo;
begin
ConnectivityManager := GetConnectivityManager;
MobileNetwork := ConnectivityManager.getNetworkInfo(TJConnectivityManager.JavaClass.TYPE_MOBILE);
Result := MobileNetwork.isConnected;
end;

end.

 

 

번호 제목 글쓴이 날짜 조회 수
공지 [DelphiCon 요약] 코드사이트 로깅 실전 활용 기법 (Real-world CodeSite Logging Techniques) 관리자 2021.01.19 7530
공지 [UX Summit 요약] 오른쪽 클릭은 옳다 (Right Click is Right) 관리자 2020.11.16 7280
공지 [10.4 시드니] What's NEW! 신기능 자세히 보기 관리자 2020.05.27 9688
공지 RAD스튜디오(델파이,C++빌더) - 고객 사례 목록 관리자 2018.10.23 14764
공지 [데브기어 컨설팅] 모바일 앱 & 업그레이드 마이그레이션 [1] 관리자 2017.02.06 16477
공지 [전체 목록] 이 달의 기술자료 & 기술레터 관리자 2017.02.06 12247
공지 RAD스튜디오(델파이, C++빌더) - 시작하기 [1] 관리자 2015.06.30 31608
공지 RAD스튜디오(델파이,C++빌더) - 모바일 앱 개발 사례 (2020년 11월 업데이트 됨) 험프리 2014.01.16 167202
280 ListBox 로 팝업메뉴 처럼 사용하기 c2design 2013.10.29 4446
» [안드로이드] 네트워크 연결 상태 체크 함수. [1] c2design 2013.10.29 6386
278 Release Notes for XE5 Update 1 c2design 2013.10.29 3341
277 델파이1 부터 델파이XE5까지의 역사 관리자 2013.10.26 4637
276 모바일 첫걸음: 델파이 iOS 개발 - 5.제스처를 사용한 탭 간 이동 관리자 2013.10.15 4693
275 iOS 7 앱 개발을 위한 XE5 업데이트 제공 안내 관리자 2013.10.15 3824
274 CodeRage 8: Delphi 온라인 무료 세미나 개최 관리자 2013.10.15 3322
273 모바일 첫걸음: 델파이 iOS 개발 - 4.사진 찍기와 공유 관리자 2013.10.08 4427
272 [추가자료] 델파이에서 안드로이드 앱 개발 "환경설정과 개발의 시작" [1] 관리자 2013.10.01 7673
271 XE5 안드로이드 SMS 전송 방법 [2] c2design 2013.09.23 5982
270 XE5 안드로이드 단말기 연결시 확인사항 file c2design 2013.09.23 6819
269 모바일 첫걸음: 델파이 iOS 개발 - 3. 웹브라우저 작성 손보라 2013.09.17 4348
268 모바일 첫걸음: 델파이 iOS 개발 - 2. 컴포넌트와 스타일 적용 관리자 2013.09.13 4046
267 모바일 첫걸음: 델파이 iOS 개발-1.첫걸음 떼기(환경 설정 등) 관리자 2013.09.10 4438
266 9월 6일 RAD Studio XE5 세미나 발표자료입니다. file 관리자 2013.09.09 4115
265 XE에서 MySQL 연결오류 및 한글문제 해결 [3] c2design 2013.08.28 9023
264 델파이 iOS 개발 따라잡기: 4. iOS앱으로 바코드 캡쳐하기 관리자 2013.08.27 4339
263 델파이 iOS 개발 따라잡기: 3. 데이터베이스 연결하기 관리자 2013.08.27 4649
262 델파이 iOS 개발 따라잡기: 2. 3D 애니메이션 관리자 2013.08.27 3866
261 맥 OS X 애플리케이션에서 씨리얼포트 연결하기 관리자 2013.08.12 3929