다음 링크의 파일을 다운로드 받아 압축해재 후 사용하시기 바랍니다.(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를 이용해 접근하면 객체를 유일하게 사용할 수 있습니다.(너무 멀리까지 나갔네요.^^)
카우치베이스 서버(Couchbase Server)는 유연한 JSON 모델로 고정 데이터베이스 스키마의 제약 없이 쉽게 애플리케이션을 수정할 수 있으며, submilisecond (1/1000 ms 이하)의 초고속 데이터 입출력 처리의 높은 성능을 보장합니다. 또한, 간편한 스케일 아웃(scale-out)으로 다운타임 없이 시스템 구성 변경 및 확장을 지원합니다.
몽고DB(MongoDB←HUMONGOUS)는 크로스 플랫폼 도큐먼트 지향 데이터베이스 시스템이다. NoSQL 데이터베이스로 분류되는 몽고DB는 JSON과 같은 동적 스키마형 문서들(몽고DB는 이러한 포맷을 BSON이라 부름)을 선호함에 따라 전통적인 테이블 기반 관계형 데이터베이스 구조의 사용을 삼간다. 이로써 특정한 종류의 애플리케이션을 더 쉽고 더 빠르게 데이터 통합을 가능케 한다.
procedure TForm1.FormCreate(Sender: TObject);
var
I, J: Integer;
begin
FMPVolumeView := TMPVolumeView.Create;
I := 0;
J := FMPVolumeView.subviews.count;
if I = J then
begin
log.d('');
end;
if FMPVolumeView.subviews.count > 0 then
begin
FSlider := TUISlider.Wrap(FMPVolumeView.subviews.objectAtIndex(0));
FSlider.setValue(0.0);
end;
end;
procedure TForm1.btnVolumeUpClick(Sender: TObject);
var
Vol: Single;
begin
Vol := FSlider.value;
FSlider.setValue(Vol + 0.1);
end;
procedure TForm1.btnVolumeDownClick(Sender: TObject);
var
Vol: Single;
begin
Vol := FSlider.value;
FSlider.setValue(Vol - 0.1);
end;
KakaoOAuth20.zip
FMX.HanmiIT.RFIDReader.pas
