델파이 XE2의 DataSnap 기능은 이전버전인 Midas와 DataSnap에 비하여 월등히 강력하고 사용하기 쉽게 변경 되었습니다. 또한 XE2에서 새로 지원하기 시작한 Mac OSX에 대한 지원도 매우 훌륭한 기능입니다. 이 셈플 프로그램에서는 OSX용 DataSnap 클라이언트를 만들어 봄으로 델파이 XE2의 DataSnap 기능과 OSX Client 에서 서버와 DataSnap을 이용한 데이터 통신 기능을 배워 보도록 하겠습니다.

• 서버만들기

메뉴에서 [File] – [New] – [VCL forms Application – Delphi] 를 선택해서 새 애플리케이션을 만들고 각각 저장합니다. 생성된 Form1의 화면 위에 위의 그림과 같이 TDSServer, TDSServerClass, TDSTCPServerTransport 컴포넌트를 한 개씩 올려 놓는다.

TDSServerClass 의 프로퍼티 중 Server 항목을 DSServer1으로 선택합니다

TDSTCPServerTransport 의 프로퍼티 중 Server 항목을 DSServer1으로 선택합니다.

클라이언트에서 호출하기 위한 클래스를 생성하기 위해 새로운 유니트를 하나 만듭니다. [File] – [New] – [Unit – Delphi] 메뉴를 선택해서 새로운 유니트를 하나 만들고 아래와 같이 코딩하고 MyClass.pas 로 저장합니다.

DSServerClass1 의 이벤트 탭에서 OnGetClass 이벤트를 더블 클릭해서 메소드를 생성하고 아래와 같이 코딩하고 실행해서 서버를 대기 상태로 만들어 줍니다.

.

• OSX용 DataSnap Client 만들기

OSX용 DataSnap Client를 만들기 위해 [File] – [New] – [FireMonkey HD Application – Delphi] 를 선택해서 새 프로젝트를 생성합니다. 생성된 새 화면위에 아래와 같이 화면을 디자인합니다.

TSQLConnection – 1개, TEdit – 3개, TButton – 1개를 화면에 배치하고 TSSQLConnection의 프로퍼티를 다음과 같이 지정합니다.

Connected 프로퍼티를 True로 변경하여 연결을 실행 합니다. 만일 연결 오류가 발생한다면 서버의 상태를 확인하거나 아이피, 포트 등을 확인한 후 다시 연결을 시도 합니다.

정상적으로 연결 되었다면 TSSQLConnection을 선택한 후 오른쪽 버튼을 눌러서 아래의 그림과 같은 메뉴를 호출해서 [Generate Datasnap Client Classes]를 선택해서 클래스를 자동으로 생성합니다. 정상적으로 연결이 되어 있다면 Unit2.pas가 생성되고 Client Classes 들이 생성됩니다.

버튼 클릭 이벤트에 아래와 같이 코딩합니다.

코딩을 마치고 먼저 Win32 환경에서 실행 하면 아래와 같은 실행 결과를 얻을 수 있습니다.

Add Platform (델파이 XE2에서 맥애플리케이션 만들기 참조) 메뉴에서 OSX 를 추가하고 맥컴퓨터에 실행 시키면 아래의 그림과 같은 맥용 DataSnap Client 를 조회 할 수 있습니다.

본 셈플 프로그램은 간단한 계산식 연동만 테스트 했지만 데이터베이스 테이블 및 다양한 형태의 데이터를 주고 받을 수 있도록 변형이 가능합니다.