구글은 다음과 같이 발표했습니다. "GCM 서버와 클라이언트 API는 지원중단하며, 2019년 5월 29일에 삭제될 예정입니다. 안정적이고 확장가능한 GCM 인프라 및 많은 새로운 기능을 계승한 Firebase Cloud Messaging(FCM)으로 GCM 애플리케이션을 전환하십시오."
앞으로 파이어몽키 안드로이드 앱에서 푸시 알림 지원을 사용하려면, 구글의 Firebase를 사용해야 합니다. 이 글에서는 Delphi, C++Builder 및 RAD 스튜디오 10.3.1을 사용해 파이어몽키 안드로이드 앱에서 Firebase 푸시 알림 지원하는 과정을 소개합니다.
사전준비 - 안드로이드 푸시 알림 패치
시작에 앞서 IDE의 겟잇 패키지 매니저(Tools > Getit Package Manager...)에서 "Android Push Notification Patch 1.0"을 찾아 설치 버튼을 클릭 해 다운로드 합니다.("Android"로 검색)
최신 로드맵에서 소개했듯이 향후 10.3.2 릴리즈에서 이 지원을 더욱 간소화(RAD 서버의 Android Firebase 푸시 알림 지원 추가) 및 10.4의 Firebase 및 기타 관련 서비스의 전체 통합 지원 제공을 계획하고 있습니다.
Firebase에서 애플리케이션을 활성화하려면, 다음 3단계로 작업을 진행해야 합니다.
1, Firebase 프로젝트를 만들고 파이어몽키 프로젝트를 Google Firebase 콘솔에 등록
2, 파이어몽키 프로젝트를 새로 만들거나 기존의 프로젝트에 RAD 스튜디오 10.3.1 푸시 알림 구성
3, GCM(Google Cloud Messaging) 대신 Firebase를 지원하도록 파이어몽키 프로젝트 변경
- Cloud Firestore 위치는 현재(2019.05) 가장 가까운 asia-northeast1 추천
3, 프로젝트 생성 후 Project Overview 옆의 톱니바퀴 아이콘 클릭 후 [프로젝트 설정] 메뉴를 선택해 프로젝트 설정 화면으로 이동합니다.
4, 안드로이드 아이콘을 클릭하여 "Android 앱에 Firebase 추가 화면"으로 이동합니다.
5, 앱 등록 단계에서 Android 패키지 이름을 지정 후 [앱 등록] 버튼을 클릭합니다.
- 파이어몽키 앱의 기본 패키지 이름은 com.embarcadero.프로젝트이름 입니다.
- 파이어몽키 프로젝트를 FirebaseApp으로 생성 시 com.embarcadero.FirebaseApp으로 생성합니다.
- 프로젝트 옵션(Application > Version Info의 package 항목)에서 패키지 이름 설정 가능합니다.
6, 구성 파일(google-services.json)을 다운로드 합니다.
다운로드 후 [다음] 버튼 클릭 후 이후 단계는 건너 뛰기를 선택합니다.
7, 안드로이드 문자열 리소스 파일(strings.xml)을 편집합니다.
- strings.xml 파일은 겟잇 패키지 매니저에서 다운로드한 파일에 포함되어 있습니다. (C:\Users\Public\Documents\Embarcadero\Studio\20.0\CatalogRepository\AndroidPushNotificationsPatch-1.0\FireBase)
- strings.xml 파일을 파이어몽키 프로젝트 경로에 복사합니다.(예> C:\MyFirebaseApplication 등)
- 복사한 strings.xml 파일을 텍스트 에디터 등으로 열어 다음을 수정합니다.
* google_app_id와 gcm_defaultSenderId, fcm_fallback_notification_channel_label 항목만 두고 나머지 string 태그 삭제
* google_app_id = mobilesdk_app_id
* gcm_defaultSenderId = project_number (6단계에서 다운로드 받은 google-services.json 파일을 참조)
파이어몽키 프로젝트에 푸시 알림 구성
8, 파이어몽키 프로젝트를 생성(또는 기존 프로젝트 오픈) 합니다.
9, Firebase 콘솔에 등록된 프로젝트 이름과 일치하도록 FMX 프로젝트 이름을 변경합니다.
(이 예제에서는 FirebaseApp으로 설정합니다.)
7단계에서 업데이트 한 strings.xml 파일과 동일한 경로에 프로젝트를 저장합니다.(예> C:\MyFirebaseApplication)
저장 후 안드로이드 플랫폼 선택 후 빌드를 실행해 해당 경로에 AndroidManifest.template.xml을 생성합니다. 이 파일은 마지막 단계에서 편집합니다.
10, Firebase 이벤트 로그를 표시하기 위해 TMemo 컴포넌트를 폼에 추가하고, MemoLog로 이름을 변경합니다.
다음 Form의 OnCreate 이벤트를 추가해 푸시 알림 서비스 초기화 및 연결을 위한 코드를 구현합니다.
이 코드는 겟잇 패키지 매니저에 포함되어 있는 Snippets.txt 파일을 참조하기 바랍니다.
Snippets.txt 파일에는 푸시 알림 서비스로 연결을 만드는 프로세스와 이벤트에 대한 코드가 포함되어 있습니다.
푸시 알림 서비스와 연결을 위한 코드를 OnCreate 이벤트에 복사합니다.
Snippets.txt의 1~2줄을 implimentation 아래에 추가합니다.
또한, interface uses 절에 System.PushNotification을 추가합니다.
이 서비스로 Firebase와 연결 후 장치아이디와 장치 토큰을 수신하게 됩니다. 필요한 변수와 이벤트를 private 영역에 선언합니다.
두개의 변수는 장치 아이디와 장치 토큰을 수신하는데 사용합니다.
OnServiceConnectionChange 이벤트는 연결 변경 시 장치 토큰을 얻는데 사용합니다.
OnReceiveNotificationEvent 이벤트는 푸시를 받기 위해 사용됩니다.
Snippets.txt를 참고해 2개의 이벤트를 구현합니다.
GCM 대신 FCM을 지원하도록 프로젝트 변경
11, IDE 오른쪽의 프로젝트 에서 Android > Libraries를 확장하고, 다음의 라이브러리를 각각 마우스 오른쪽 버튼을 이용해 수동으로 해제합니다.
cloud-messaging.dex.jar
google-analytics-v2.dex.jar
google-play로 시작하는 모든 Google Play 라이브러리
12, 프로젝트의 Libraries에 마우스 오른쪽 버튼을 누르고, [Add] 메뉴를 선택 해 Firebase 라이브러리들과 업데이트된 Google Play Services 라이브러리를 추가합니다.
(이 라이브러리 파일들은 겟잇 패키지 매니저에서 다운로드받은 파일들 중 jars 디렉토리에 있습니다.)
13, 다음 Firebase 지원을 위한 AndroidAPI.JNI.Firebase.pas와 업데이트된 FMX.PushNotification.Android.pas 파일을 프로젝트 경로에 복사 후 추가합니다.
(이 파일들은 겟잇 패키지 매니저에서 다운로드 받은 파일 중에 있습니다.)
14, IDE 메인 메뉴 중 Project > Deployment로 배포화면을 표시 후 프로젝트 경로의 strings.xml 파일을 추가합니다.
또한 strings.xml 파일의 Remote Path를 "res\Values\"로 업데이트 후 변경사항을 저장합니다.
15, 마지막 단계로 AndroidManifest.template.xml 파일을 변경합니다.(9단계에서 안드로이드 타겟인 프로젝트를 빌드해 생성)
Snippets.txt 파일 하단의 XML 구문을 복사해 <%receivers%>아래(</application> 태그 바로위)에 붙여넣기 합니다.
Firebase Clound Messaging 전송 테스트
16, FMX 앱을 안드로이드 장비에 배포합니다. 실행 시 앱은 자동으로 Firebase에 등록되고, 로그에 디바이스 토큰이 표시됩니다.
이 장비에 푸시메시지를 전송하려면 Firebase 토큰이 필요합니다. 로그에 표시된 토큰을 복사합니다.
파이어몽키로 안드로이드 앱 개발 시 장치에 접근하는 기능(예, 카메라 이용, 블루투스 이용 등) 개발 시 권한 설정이 필요합니다.
기존에는 Project > Options > Uses Permissions에서 필요한 권한을 설정하는 방식이었지만,
안드로이드 API 최신버전은 런타임 시 권한을 요청하는 매커니즘으로 변경되었습니다.
기존의 권한 모델은 설치 시 전체 권한을 승인하는 방식이었습니다. 새로운 권한 모델은 기능 사용 시 개별 권한을 묻는 방식으로, 사용자는 기능 별 허용 및 거부가 가능해졌습니다.
기존 권한 요청 방식
새로운 권한 요청 방식
새로운 권한 요청 방식은 RAD 스튜디오 10.3 부터 적용되며,
기존에 작성했던 안드로이드 프로젝트는 권한 요청하는 로직을 추가하도록 업데이트 해야 합니다.
안드로이드의 권한 요청 로직
안드로이드 권한 요청은 System.Permissions.pas에 구현된 PermissionsService.RequestPermissions 메소드를 호출하는 것으로 시작합니다.
다음 코드는 델파이 샘플 중 Location(Object Pascal/Mobile Snippets/Location)의 일부입니다.
procedure TLocationForm.swLocationSensorActiveSwitch(Sender: TObject);
begin
{$IFDEF ANDROID}
if swLocationSensorActive.IsChecked then
PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.ACCESS_FINE_LOCATION)],
procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
begin
if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
{ activate or deactivate the location sensor }
LocationSensor1.Active := True
else
begin
swLocationSensorActive.IsChecked := False;
TDialogService.ShowMessage('Location permission not granted');
end;
end)
else
{$ENDIF}
LocationSensor1.Active := False;
end;
위코드에서는 TLocationsSensor 즉, GPS 연동하는 코드 전에 안드로이드인 경우({$IFDEF ANDROD}) 위치 권한(TJManifest_permission.JavaClass.ACCESS_FINE_LOCATION)을 요청하는 코드가 추가되었습니다.
첫번째 파라메터는 요청하는 권한 문자열 배열, 두번째는 권한 요청 결과를 받아볼 수 있는 메소드, 세번째는 사용자에게 권한에 대한 안내를 할 수 있는 메소드입니다.
델파이 샘플의 AccessCameraApp의 코드에는 권한요청하는 로직이 다음과 같이 구현되어 있습니다.
procedure TAccessCameraAppForm.btnTakePhotoClick(Sender: TObject);
begin
PermissionsService.RequestPermissions(
[FPermissionCamera, FPermissionReadExternalStorage, FPermissionWriteExternalStorage],
TakePicturePermissionRequestResult,
DisplayRationale
)
end;
// Optional rationale display routine to display permission requirement rationale to the user
procedure TAccessCameraAppForm.DisplayRationale(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc);
var
I: Integer;
RationaleMsg: string;
begin
for I := 0 to High(APermissions) do
begin
if APermissions[I] = FPermissionCamera then
RationaleMsg := RationaleMsg + 'The app needs to access the camera to take a photo' + SLineBreak + SLineBreak
else if APermissions[I] = FPermissionReadExternalStorage then
RationaleMsg := RationaleMsg + 'The app needs to read a photo file from your device';
end;
// Show an explanation to the user *asynchronously* - don't block this thread waiting for the user's response!
// After the user sees the explanation, invoke the post-rationale routine to request the permissions
TDialogService.ShowMessage(RationaleMsg,
procedure(const AResult: TModalResult)
begin
APostRationaleProc;
end)
end;
procedure TAccessCameraAppForm.TakePicturePermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
begin
// 3 permissions involved: CAMERA, READ_EXTERNAL_STORAGE and WRITE_EXTERNAL_STORAGE
if (Length(AGrantResults) = 3)
and (AGrantResults[0] = TPermissionStatus.Granted)
and (AGrantResults[1] = TPermissionStatus.Granted)
and (AGrantResults[2] = TPermissionStatus.Granted) then
TakePhotoFromCameraAction1.Execute
else
TDialogService.ShowMessage('Cannot take a photo because the required permissions are not all granted')
end;
1) 3가지 권한을 요청합니다.
2) DisplayRationale 메소드에서 필요한 권한에 대해 설명합니다.
3) 요청결과 메소드에서 권한일 모두 허용한 경우 기능을 실행합니다.
위에서 주의할 점은,
권한에 대한 설명 시(DisplayRationale 메소드) 메시지 호출 후 비동기로 APostRationaleProc 메소드를 호출해야 합니다.
그리고, 권한에 대한 설명 메소드는 옵션으로 생략할 수 있습니다.
위 내용을 참고해 권한이 필요한 기능을 개발하는 경우 해당 기능 호출 전 권한을 요청하도록 추가 및 기존 코드를 변경하시기 바랍니다.
해당 기능은 안드로이드 앱 개발 시 적용해야 하는 기능으로, 다른 플랫폼 앱 개발 시 생략할 수 있습니다.
엠바카데로에서 제공하는 내용과 이미 적용된 샘플 앱의 목록은 다음 링크에서 확인할 수 있습니다.
다음 링크의 파일을 다운로드 받아 압축해재 후 사용하시기 바랍니다.(7zip 등의 압축프로그램을 이용해 압축해제 해보세요.)
32bit
http://opensource.spotify.com/cefbuilds/cef_binary_3.3626.1886.g162fdec_windows32.tar.bz2
64bit
http://opensource.spotify.com/cefbuilds/cef_binary_3.3626.1886.g162fdec_windows64.tar.bz2
The method signature must be generated by taking the query string, and creating a HMAC-SHA256 signature using your API key as the secret key. (메소드 시그니처는 쿼리 스트링을 가져와 API Key를 시크릿 키로 HMAC-SHA256 시그니처를 생성해야 한다.)
위에서 API 키는 서비스 등록시 발급받은 값입니다.
쿼리 스트링은 URL 중 "?" 뒤의 문자열입니다. 예를 들면
Customers?customerCode=ACME 중 customerCode=ACME가 쿼리 스트링입니다.
HMAC-SHA256은 다음과 같이 구현할 수 있습니다.
HMAC-SHA256
다음 샘플은 쿼리스트링(ProductCode=XXX)와 API Key(UNLEASHED_API_KEY: 상수)를 이용해 HMAC을 SHA256으로 시그니처를 생성해 HTTP 해더에 추가하는 내용입니다.
이 글에서는 OAuth 2.0을 이용해 카카오 API와 연동하는 방법을 델파이를 통해 알아봅니다.
이 글을 통해 카카오톡 프로필 정보와 사진을 델파이 애플리케이션에서 불러오는 예제를 작성할 수 있습니다.
OAuth 2.0
API(또는 서비스) 이용 시 인증(Authentication)과 리소스(제공 서비스)에 대한 권한부여(Authorization)는 필수사항입니다. 인증과 권한부여의 대표적인 방법 중 하나가 OAuth입니다.
OAuth는 서버와 클라이언트 사이에 인증을 완료 시 권한부여의 결과로 엑세스 토큰(Access Token)을 발급하고, 이 엑세스 토큰을 이용해 클라이언트는 API(또는 서비스)에 접근 및 서비스를 요청하게 됩니다. 서버는 엑세스 토큰 기반으로 서비스와 권한에 대한 접근 여부를 판단해 데이터를 제공합니다.
OAuth는 현재 2.0 버전을 제공하며, 카카오, 구글, 페이스북에서 OAuth 2.0을 통해 서비스에 대한 인증 및 권한부여를 사용하고 있습니다.
OAuth 2.0에 대한 내용은 자세한 내용은 이 글의 하단 "관련/참고 링크"를 통해 알아볼 수 있습니다.
OAuth 2.0 사용 시 API 인증 흐름
다음 그림은 카카오 API 서비스에 접근하기 위해 OAuth 2.0 인증의 흐름을 7 단계로 나타냅니다.
0, 카카오 서비스를 이용하려면 사전에 앱을 등록 후 앱의 API 키를 발급받아야 합니다.
1, 카카오 서비스에 접근하기 위해 카카오 로그인 페이지를 웹브라우저에 표시합니다.
2, 사용자는 로그인 페이지에 ID, 비밀번호를 입력해 인증을 요청합니다.
3, 카카오 인증서버는 사용자를 인증하고 사용자 인증완료 페이지로 리다이렉션합니다. 이때 인증 코드를 함께 전달합니다.
RF Prisma JAR 라이브러리에는 독특하게 클래스 메소드를 많이 사용하도록 구현되어 있습니다.
연동 시 델파이 클래스(TJATRfidManager)는 클래스 인터페이스(JATRfidManagerClass)와 인스턴스 인터페이스(JATRfidManager) 쌍으로 이뤄집니다.
클래스 인터페이스(JATRfidManagerClass)는 객체를 생성하기 전의 클래스를 통해 접근하는 함수, 속성, 상수를 제공합니다. 자바코드를 사용하는 경우 "델파이클래스명.JavaClass.클래스메소드" 형식으로 JavaClass 속성을 통해 자바 클래스에 접근해야 합니다.
인스턴스 인터페이스(JATRfidManager)는 객체 생성 후 사용가능한 인스턴스 함수와 속성 상수를 제공합니다.
이 라이브러리에는 객체(JATRfidReader 등) 생성 시 아래와 클래스 메소드를 이용합니다. 해당 객체의 추가 기능은 인스턴스 메소드로 제공합니다.
위 인터페이스는 메인 클래스에서 위임받았고, 이벤트 핸들러 생성 시 파라메터로 전달합니다.
그리고, FReader 객체에 이벤트 리스너를 설정(setEventListener)합니다.
type
TRFIDReader = class(TInterfacedObject, IRfidEventHandler)
...
procedure TRFIDReader.InitReader;
begin
...
FEventListener := TRfidEventListner.Create(Self);
...
FReader := TJATRfidManager.JavaClass.getInstance;
FReader.setEventListener(FEventListener);
end;
이벤트 발생 시 델파이 이벤트 인터페스를 통해 전달
JATRfidEventListener에서 이벤트 발생 시 IRfidEventHandler에 이벤트를 전달하도록 구현했습니다.
procedure TRfidEventListner.onStateChanged(P1: JATRfidReader;
P2: JConnectionState);
var
State: TConnectionState;
begin
if Assigned(FHandler) then
begin
State := TConnectionState.Disconnected;
if P2.getState = TJConnectionState.JavaClass.Connected.getState then
State := TConnectionState.Connected
else if P2.getState = TJConnectionState.JavaClass.Connecting.getState then
State := TConnectionState.Connecting
else if P2.getState = TJConnectionState.JavaClass.Listen.getState then
State := TConnectionState.Listen
;
FHandler.StateChagned(P1, State);
end;
end;
이후 이벤트 정보를 받은 메인 클래스에서 비지니스 로직을 수행하도록 구현합니다.
기타 참고사항
안드로이드 연동 시 참고사항
가장 좋은 참고자료는 파이어몽키에 구현된 안드로이드 연동한 내용을 참고하는 것입니다.
(델파이 정품 설치 시 설치경로 하위의 source 디렉토리에는 파이어몽키 라이브러리 소스코들이 포함되어 있습니다.)
그중 다음 소스코드들을 참고하면 아주 좋습니다.
안드로이드 SDK 브릿지 파일
기본 안드로이드 SDK 델파이 브릿지 파일이 아래 경로에 포함되어 있습니다.
C:\Program Files (x86)\Embarcadero\Studio\19.0\source\rtl\android - 10.2 도쿄 기준
파이어몽키 라이브러리
파이어몽키 컴포넌트와 라이브러리 등을 어떻게 구현했는지 아래 경로의 파일들에서 살펴볼 수 있습니다.
C:\Program Files (x86)\Embarcadero\Studio\19.0\source\fmx - 10.2 도쿄 기준
프레임을 이용해 재사용 가능한 화면 제작
일부 기능적인 화면들이 필요한데 다른 프로젝트에서도 활용할 만한 기능들이어서 재사용 가능하도록 구현해봤습니다.
libs 디렉토리에 포함된 3개의 프레임입니다.
FMX.UI.OverflowMenu.pas - 메인 화면의 우측 상단의 연결 팝업 메뉴 구현
FMX.UI.SelectBluetoothDeviceDialog.pas - 블루투스 장비를 탐색 후 장비 선택 정보 제공하도록 구현
FMX.UI.WaitDialog.pas - 비동기로 진행하는 블루투스 장비 연결을 기다리는 화면
프레임을 사용한 이유는 화면의 일부 영역을 표현하기 위함입니다.
프레임은 화면을 포함한 객체입니다.(Create, Destroy, Show, Hide 이벤트 등을 제공하지 않아 필요한 경우 직접 구현해야 합니다.)
화면등에서 객채 생성하는 코드를 줄이기 위해 클래스 메소드로 기능 호출하도록 구현했습니다.
클래스 메소드로 기능화면 호출
위 유닛 파일을 유즈절(uses)에 추가 후 아래와 같이 기능을 호출할 수 있습니다.
TWaitDialog.Show('블루투스를 활성화 합니다.', 2000);
TOverflowMenu.Settings.Top := ToolBar1.Height + 1;
TOverflowMenu.Settings.Width := Width * 0.9;
TOverflowMenu.Settings.RightPadding := 10;
TOverflowMenu.ShowMenu([
'Connect to last bluetooth device',
'Connect to new bluetooth device'],
procedure(AIndex: Integer; AText: string)
begin
case AIndex of
0: ConnectToLastDevice;
1: ConnectToNewDevice;
end;
end);
자세한 별도의 글을 통해 소개하도록 하겠습니다.(그 전에는 직접 소스코드를 통해 내용을 확인하시기 바랍니다.)
얼마전 진행한 모바일 개발 컨설팅에서 블루투스 장비와 연결 후 기다리는 동안 표시할 화면이 필요했습니다.
WaitDialog라는 화면을 만들었는데 이 화면은 앞으로도 많이 사용하게 될 것 같아 TFrame을 이용해 재사용 가능하도록 구현해 봤습니다.
WaitDialg 구현에 아래 기술을 사용했습니다.
1) TFrame
2) 클래스 메소드
3) 싱글톤 패턴
이 내용을 학습하면
1) 자주 사용하는 화면을 프레임으로 제작 해 재사용 할 수 있습니다.
2) 클래스 메소드를 활용해 코드를 짧게 사용 할 수 있습니다.
결과화면
결과 화면은 아래와 같습니다.
구현한 내용
화면구성
파이어몽키 프레임을 이용해 WaitDialog 화면을 구성했습니다.
파이어몽키에서 TFrame은 폼디자이너에서 화면을 구성할 수 있는 객체입니다. UI 컴포넌트와 논비주얼 컴포넌트를 화면에 추가하고 사용할 수 있습니다.
WaitDialog 코드
type
TWaitDialog = class(TFrame)
rctBackground: TRectangle;
lytMessage: TLayout;
rctMessageBG: TRectangle;
lblMessage: TLabel;
AniIndicator1: TAniIndicator;
Timer: TTimer;
procedure TimerTimer(Sender: TObject);
private
class var FInstance: TWaitDialog;
private
{ Private declarations }
public
{ Public declarations }
destructor Destroy; override;
class procedure Show(ATitle: string = ''; ATimeout: Integer = -1);
class procedure Hide;
end;
implementation
{$R *.fmx}
{ TFrame1 }
class procedure TWaitDialog.Show(ATitle: string; ATimeout: Integer);
begin
if not Assigned(FInstance) then
FInstance := Create(nil);
FInstance.Parent := Application.MainForm;
FInstance.Align := TAlignLayout.Client;
FInstance.BringToFront;
FInstance.Visible := True;
if ATitle <> '' then
begin
FInstance.lblMessage.Text := ATitle;
end;
if ATimeout > 0 then
begin
if ATimeout < 1000 then
ATimeout := 1000;
FInstance.Timer.Interval := ATimeout;
FInstance.Timer.Enabled := True;
end;
end;
class procedure TWaitDialog.Hide;
begin
if not Assigned(FInstance) then
Exit;
FInstance.Visible := False;
FInstance.DisposeOf;
end;
procedure TWaitDialog.TimerTimer(Sender: TObject);
begin
Timer.Enabled := False;
Hide;
end;
destructor TWaitDialog.Destroy;
begin
FInstance := nil;
inherited;
end;
initialization
finalization
TWaitDialog.Hide;
클래스 메소드
WaitDialog를 보여주고 감추는 메소드(Show, Hide)를 클래스 메소드(class procedure, class function)로 구현했습니다.
클래스 메소드는 클래스를 생성하기 전에 호출할 수 있는 메소드로 Create 등이 대표적인 클래스 메소드입니다.
클래스 메소드를 사용한 이유는 WaitDialog를 호출하는 측의 코드를 최대한 짧게 작성할 수 있도록 하기위해서 입니다.
싱글톤 패턴
클래스 메소드를 사용 후 객체를 생성하기 위해 클래스 변수(class var)를 사용했습니다.
객체 생성은 Show 메소드에서, 객체 해제는 Hide 메소드에서 합니다. Hide 시키지 않고 앱을 종료하는 경우를 대비 finalization에서 Hide 메소드를 호출 합니다.
싱글톤 패턴은 프로그램 내에서 객체를 하나만 생성하는 디자인 패턴입니다. 위 예제에서 객체는 하나만 생성합니다.
만약, 다른 곳에서 싱글톤 객체가 필요하다면 아래와 같은 코드를 추가할 수 있습니다.
class function TWaitDialog.Instance: TWaitDialog;
begin
if not Assigned(FInstance) then
FInstance := Create;
Result := FInstance;
end;
class procedure TWaitDialog.ReleaseInstance;
begin
if Assigned(FInstance) then
FInstance.DisposeOf;
end;
initialization
finalization
TWaitDialog.ReleaseInstance;
위와 같이 구현하면 TWaitDialog.Instance를 이용해 접근하면 객체를 유일하게 사용할 수 있습니다.(너무 멀리까지 나갔네요.^^)
KakaoOAuth20.zip
FMX.HanmiIT.RFIDReader.pas
