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 17523
공지 [UX Summit 요약] 오른쪽 클릭은 옳다 (Right Click is Right) 관리자 2020.11.16 15907
공지 [10.4 시드니] What's NEW! 신기능 자세히 보기 관리자 2020.05.27 18531
공지 RAD스튜디오(델파이,C++빌더) - 고객 사례 목록 관리자 2018.10.23 24107
공지 [데브기어 컨설팅] 모바일 앱 & 업그레이드 마이그레이션 [1] 관리자 2017.02.06 25484
공지 [전체 목록] 이 달의 기술자료 & 기술레터 관리자 2017.02.06 20844
공지 RAD스튜디오(델파이, C++빌더) - 시작하기 [1] 관리자 2015.06.30 41418
공지 RAD스튜디오(델파이,C++빌더) - 모바일 앱 개발 사례 (2020년 11월 업데이트 됨) 험프리 2014.01.16 176759
283 Digifort에서 델파이XE5로 개발한 원격 제어 카메라 앱 관리자 2013.10.30 4882
282 Update 1 : RAD Studio XE5, Delphi XE5, C++Builder XE5 관리자 2013.10.29 4538
281 [안드로이드] 외부어플 브라우져 및 PDF 호출 방법 c2design 2013.10.29 5069
280 ListBox 로 팝업메뉴 처럼 사용하기 c2design 2013.10.29 4549
» [안드로이드] 네트워크 연결 상태 체크 함수. [1] c2design 2013.10.29 6494
278 Release Notes for XE5 Update 1 c2design 2013.10.29 3381
277 델파이1 부터 델파이XE5까지의 역사 관리자 2013.10.26 4686
276 모바일 첫걸음: 델파이 iOS 개발 - 5.제스처를 사용한 탭 간 이동 관리자 2013.10.15 4756
275 iOS 7 앱 개발을 위한 XE5 업데이트 제공 안내 관리자 2013.10.15 3886
274 CodeRage 8: Delphi 온라인 무료 세미나 개최 관리자 2013.10.15 3363
273 모바일 첫걸음: 델파이 iOS 개발 - 4.사진 찍기와 공유 관리자 2013.10.08 4479
272 [추가자료] 델파이에서 안드로이드 앱 개발 "환경설정과 개발의 시작" [1] 관리자 2013.10.01 7846
271 XE5 안드로이드 SMS 전송 방법 [2] c2design 2013.09.23 6065
270 XE5 안드로이드 단말기 연결시 확인사항 file c2design 2013.09.23 6885
269 모바일 첫걸음: 델파이 iOS 개발 - 3. 웹브라우저 작성 손보라 2013.09.17 4397
268 모바일 첫걸음: 델파이 iOS 개발 - 2. 컴포넌트와 스타일 적용 관리자 2013.09.13 4088
267 모바일 첫걸음: 델파이 iOS 개발-1.첫걸음 떼기(환경 설정 등) 관리자 2013.09.10 4492
266 9월 6일 RAD Studio XE5 세미나 발표자료입니다. file 관리자 2013.09.09 4172
265 XE에서 MySQL 연결오류 및 한글문제 해결 [3] c2design 2013.08.28 10741
264 델파이 iOS 개발 따라잡기: 4. iOS앱으로 바코드 캡쳐하기 관리자 2013.08.27 4395