새로운 글
새로운 덧글

 

위 동영상(건강데이터 수집 및 기록 시스템 데모) 중 스마트 체중계의 체중정보를 모바일에서 실시간으로 받아오는 기능을 따라하기로 진행합니다.

스마트 체중계에서 체중정보 수신앱 만들기

❑ 앱소개

앱소개

이 앱은 스마트체중계와 블루투스 LE로 연결 해 체중정보를  실시간으로 받아와 화면에 표시하는 앱입니다.

 

따라하기의 목적

스마트 체중계 연결을 통해 블루투스 LE 인터페이스를 제공하는 다양한 기기(또는 센서)에 연결하고 데이터를 수신하는 방법을 이해합니다.

 

따라하기에서는 다음 내용을 다룹니다.

  • RAD Studio로 멀티-디바이스(안드로이드, iOS, 윈도우, OS X) 앱 프로젝트 생성 및 화면 디자인
  • TBluetoothLE 컴포넌트로 스마트 체중계와 연결 및 데이터 수신(구독)
  • 실 기기에 배포 및 테스트(안드로이드 폰, 아이폰)

따라하기

0, 사전 준비사항

1, 빈 멀티-디바이스 애플리케이션 프로젝트 생성

2, 메인 UI 제작

3, 블루투스LE 컴포넌트 추가

4, 주변의 디바이스 탐색

5, 탐색된 디바이스 목록에서 디바이스 선택 후 서비스 탐색

6, 탐색된 서비스 목록에서 서비스를 선택 후 특성 구독

7, 특성 데이터 수신 후 체중 데이터 가져오기

8, 블루투스 권한설정 

9, 디바이스에 배포 및 테스트

0, 사전 준비사항

개발도구 준비하기

델파이(또는 RAD Studio)를 이용해 실습 진행합니다.(이 실습은 델파이 10 시애틀 버전으로 작성되었습니다. 델파이 XE8 이상에서 따라할 수 있습니다.) 

만약, 델파이가 설치되지 않았다면 아래의 페이지에서 델파이를 다운로드 받아 설치 후 진행하시기 바랍니다. 

 

스마트 체중계 준비하기

따라하기에서는 Wahoo Balance Bluetooth Smart Scale 제품을 이용해 실습을 진행합니다.

https://www.underarmour.com/en-us/wahoo-balance-bluetooth-smart-scale/pid1276806-100-OSFA

 

Wahoo Balance Bluetooth Smart Scale은 다음과 같은 디바이스 이름과 UUID를 갖습니다.

디바이스 이름 : Wahoo Scale v1.3

서비스 UUID : 00001901-0000-1000-8000-00805F9B34FB

특성 UUID : 00002B01-0000-1000-8000-00805F9B34FB

위 정보는 구현에 필요한 정보입니다.(시중의 다른 스마트 체중계는 위 값들이 다릅니다.)

 

BLE 구조에 대한 소개

블루투스 LE는 프로파일(Profile), 서비스(Service), 특성(Characteristic) 기반으로 아래 그림과 같이 프로파일은 하나 이상의 서비스를 갖고, 서비스는 하나이상의 특성을 갖는 계층구조로 구성되어 있습니다.

 

 

(출처: GENERIC ATTRIBUTE PROFILE (GATT) - https://developer.bluetooth.org/TechnologyOverview/Pages/GATT.aspx)

 

블루투스 LE 인터페이스를 제공하는 장비와 연결하고 데이터를 받기 위해 다음 과정이 필요합니다.(실제 구현도 다음 단계대로 진행합니다.)

1, 주변의 블루투스 LE 프로파일을 탐색합니다.

2, 탐색된 프로파일에서 서비스를 탐색합니다.

3, 탐색된 서비스에서 특성을 찾아 구독(subscribe)합니다.

4, 구독한 특성에서 발생되는 특성값에서 필요한 데이터를 추출합니다.

1, 빈 멀티-디바이스 애플리케이션 프로젝트 생성

  1. File > New > Multi-Device Application - Delphi 메뉴를 선택 하고, Blank Application을 선택해 프로젝트를 생성합니다.
  2. File > Save all 메뉴를 선택 해 유닛이름을 "MainForm.pas"로 프로젝트 이름을 "SmartScale.dproj"로 저장합니다.

2, 메인 UI를 제작

모바일 앱 스타일로 화면 구성하기 위해 폼디자이너 스타일을 Android로 변경합니다.

 

다음화면과 표를 이용해 체중정보 수신 앱 메인 UI를 개발합니다.

 

상위 오브젝트 

오브젝트 

속성 

값(또는 설명) 

 Form1

 ToolBar1

 

 

 Layout1

 Align

 Top
 Height  81
 Memo1

 Align

 Client

 ToolBar1

 Label1

 Align

 Client

 Text

 스마트 체중계 데모

 TextSettings.HorzAlign

 Center

 Switch1  Align  Right
 Layout1  Text1

 Align

 Center

 Text

 0.0
 TextSettings.Font.Size

 30

 TextSettings.HorzAlign  Trailing
 Width  114
 Text1  Text2  Position.X  120
 Text  Kg

 TextSettings.HorzAlign

 Leading

3, 블루투스 LE 컴포넌트 추가

블루투스 LE 컴포넌트 추가

Tool Palette에서 TBluetoothLE 컴포넌트 선택 해 폼에 추가합니다.

 

필요한 변수, 메소드, 상수 추가

구현에 필요한 변수(디바이스, 서비스, 특성), 메소드 선언(시작, 중지), 상수(장비명과 서비스, 특성 UUID)를 아래와 같이 추가합니다.

 

01 <p>  private
02     { Private declarations }
03     FBLEDevice: TBluetoothLEDevice;
04     FBLEGattService: TBluetoothGattService;
05     FBLEGattChar: TBluetoothGattCharacteristic;
06  
07     procedure StartScale;// 체중계 연결 동작 시작(블루투스LE 활성화, 주변 디바이스 탐색)
08     procedure StopScale;// 체중계 연결 동작 중지(블루투스LE 비활성화, 특성 구독 해제)
09   public
10     { Public declarations }
11   end;
12  
13 const
14   ScaleDeviceName = 'Wahoo';
15  
16   WEIGHT_SERVICE: TBluetoothUUID          = '{00001901-0000-1000-8000-00805F9B34FB}';
17   WEIGHT_CHARACTERISTIC: TBluetoothUUID   = '{00002B01-0000-1000-8000-00805F9B34FB}';</p>

메소드 구현부 생성

StartScale, StopScale 메소드 구현부를 자동 생성하기 위해 procedure StartScale;에 마우스 커서를 옮기고 키보드에서 Ctrl + Shift + C를 동시에 누릅니다.

 

4, 주변의 디바이스 탐색

주변 디바이스 탐색

Switch1의 OnSwitch 이벤트 핸드러 생성(Switch1 컴포넌트 선택 > Object Inspector 창에서 Event 탭 선택 > OnSwitch 우측의 콤보박스 더블클릭) 후 아래 코드를 입력합니다.

1 procedure TForm1.Switch1Switch(Sender: TObject);
2 begin
3   if Switch1.IsChecked then
4     StartScale
5   else
6     StopScale;
7 end;

 

StartScale 메소드에서 블루투스 LE를 활성화하고, 주변 디바이스를 탐색하는 코드를 다음과 같이 입력합니다.
(StopScale은 제일 마지막에 다시 구현합니다.)

1 procedure TForm1.StartScale;
2 begin
3   BluetoothLE1.Enabled := True;
4   BluetoothLE1.DiscoverDevices(1000);// 1초(1000 ms)동안 주변 디바이스 탐색, 완료 시 OnEndDiscoveryDevices 이벤트 발생
5 end;

5, 탐색된 디바이스 목록에서 디바이스 선택 후 서비스 탐색

StartScale 메소드의 DiscoverDevices 메소드 호출하면 (주변의 디바이스 탐색 후) OnEndDiscoverDevices 이벤트가 발생합니다. 

OnEndDiscoverDevices 이벤트는 파라메터로 탐색된 디바이스 목록(ADeviceList)을 제공합니다.

이 디바이스 목록에서 'Wahoo'(위에서 ScaleDeviceName 상수로 선언)로 시작하는 디바이스를 선택합니다.

디바이스를 선택했다면, 디바이스에서 제공하는 서비스 탐색을 시도합니다.

 

01 procedure TForm1.BluetoothLE1EndDiscoverDevices(const Sender: TObject;
02   const ADeviceList: TBluetoothLEDeviceList);
03 var
04   Device: TBluetoothLEDevice;
05 begin
06   if ADeviceList.Count = 0 then
07   begin
08     Memo1.Lines.Add('발견된 디바이스가 없습니다.');
09     Switch1.IsChecked := False;// 디바이스 미발견 시 스위치 끄기
10     Exit;
11   end;
12  
13   FBLEDevice := nil;
14   Memo1.Lines.Add('Device List');
15   for Device in ADeviceList do
16   begin
17     Memo1.Lines.Add(' - ' + Device.DeviceName);// 로그-디바이스 이름
18  
19     // 디바이스 이름으로 디바이스 선택
20     if Device.DeviceName.StartsWith(ScaleDeviceName) then
21     begin
22       FBLEDevice := Device;
23       Memo1.Lines.Add('디바이스를 찾았습니다.');
24     end;
25   end;
26  
27   if FBLEDevice = nil then
28     Exit;
29  
30   // [TIP] 서비스 발견이 실패하는 경우가 종종 있음
31     // 실패한 경우 한번더 발견요청
32   if not FBLEDevice.DiscoverServices then
33     FBLEDevice.DiscoverServices;// 서비스 탐색 완료 시 OnEndDiscoverServices 이벤트 발생
34 end;

6, 탐색된 서비스 목록에서 서비스를 선택 후 특성 구독

서비스 탐색(DiscoverServices)이 완료되면 OnEndDiscoverServices 이벤트가 발생합니다.

OnEndDiscoverServices 이벤트는 파라메터로 탐색된 서비스 목록(AServiceList)을 제공합니다.

이 서비스 목록에서 서비스 UUID와 같은 UUID를 갖는 서비스를 선택합니다.

선택한 서비스에서 특성 UUID로 특성을 찾습니다.

특성에서 체중정보를 포함한 특성데이터를 수신할 수 있도록 구독(SubscribeToCharacteristic) 합니다.

 

01 procedure TForm1.BluetoothLE1EndDiscoverServices(const Sender: TObject;
02   const AServiceList: TBluetoothGattServiceList);
03 var
04   Service: TBluetoothGattService;
05 begin
06   Memo1.Lines.Add('Service List');
07   for Service in AServiceList do
08   begin
09     Memo1.Lines.Add(' - ' + Service.UUID.ToString);// 로그-디바이스 이름
10     if Service.UUID = WEIGHT_SERVICE then
11     begin
12       FBLEGattService := Service;
13       Memo1.Lines.Add('서비스를 찾았습니다.');
14     end;
15   end;
16  
17   if FBLEGattService = nil then
18   begin
19     Memo1.Lines.Add('서비스를 찾지 못했습니다.');
20     Exit;
21   end;
22  
23   // [TIP][예외] 특성목록을 생성하기 위해 아래 코드 호출
24     // GetCharacteristic 바로 호출 시 특성을 가져오지 못해
25     // GetCharacteristics을 먼저 호출
26   BluetoothLE1.GetCharacteristics(FBLEGattService);
27  
28   FBLEGattChar := BluetoothLE1.GetCharacteristic(FBLEGattService, WEIGHT_CHARACTERISTIC);
29   if FBLEGattChar = nil then
30   begin
31     Memo1.Lines.Add('서비스 특성을 찾지 못했습니다.');
32     Exit;
33   end;
34  
35   if BluetoothLE1.SubscribeToCharacteristic(FBLEDevice, FBLEGattChar) then// 구독하면 OnCharacteristicRead 이벤트를 통해 특성 값을 받음
36     Memo1.Lines.Add('특성에 구독했습니다.');
37 end;

7, 특성 데이터 수신 후 체중 데이터 가져오기

특성에 구독(SubscribeToCharacteristic)하면 TBluetooth 컴포넌트의 OnCharacteristicRead 이벤트로 특성 값을 받을 수 있습니다. 스마트 체중계의 경우 체중계의 체중이 변경될 때마다 특성 값을 받을 수 있습니다.

Wahoo Balance Blueeoth Smart Scale은 다음과 같은 코드로 특성값에서 체중 정보를 가져옵니다.

(특성 값을 분석하는 방법은 서비스마다 다릅니다.)

01 procedure TForm1.BluetoothLE1CharacteristicRead(const Sender: TObject;
02   const ACharacteristic: TBluetoothGattCharacteristic;
03   AGattStatus: TBluetoothGattStatus);
04 var
05   Weight: Single;
06 begin
07   Weight := (ACharacteristic.GetValueAsInteger shr 8) / 10;
08     // 특성 값에서 앞의 3byte 이용, 마지막 숫자는 소숫점이므로 10으로 나누기
09  
10   Text1.Text := Format('%3.1f', [Weight]);
11 end;

 

마지막으로 앞에서 선언한 StopScale에 특성 구독을 해지하고, 블루투스 LE를 비활성화하는 코드를 추가합니다.

1 procedure TForm1.StopScale;
2 begin
3   if Assigned(FBLEDevice) and Assigned(FBLEGattChar) then
4     BluetoothLE1.UnSubscribeToCharacteristic(FBLEDevice, FBLEGattChar);
5   BluetoothLE1.Enabled := False;
6 end;

8, 블루투스 권한설정

 

(이 과정은 안드로이드 플랫폼을 사용하지 않는 경우 생략할 수 있습니다.)

비콘은 블루투스 LE(Low Energy) 기반으로 통신합니다.  블루투스 사용권한을 설정합니다.

Project > Options 메뉴를 선택 후 Uses Permissions 화면으로 이동합니다.

 

Bluetooth와 Bluetooth admin 두개의 권한을 사용하도록 설정합니다.

9, 디바이스에 배포 및 테스트

 

처음 디바이스에 배포하는 경우 먼저 모바일 개발환경 설정하고 진행하기 바랍니다.

 

개발을 완료했습니다. 이제 준비된 개발환경으로 플랫폼 선택 후 Run > Run Without Debugging 메뉴를 이용해 실행하고 테스트 합니다.

 

 

테스트 방법:

  1. 디바이스의 블루투스 기능을 킵니다.
  2. 앱을 실행 후 스위치를 커서 주변의 블루투스 LE를 탐색해 스마트 체중계와 연결합니다.
    (메모 컨트롤에 "디바이스를 찾았습니다." > "서비스를 찾았습니다." > "특성에 구독했습니다." 메시지가 표시되면 정상 연결된 것입니다.)
  3. 체중계에 올라가면 실시간으로 앱에 체중정보가 표시되는 것을 확인합니다.
 
번호 제목 글쓴이 날짜 조회 수
공지 [데브기어 컨설팅] 모바일 앱 & 업그레이드 마이그레이션 관리자 2017.02.06 132
공지 이 달의 기술자료 & 기술레터 관리자 2017.02.06 154
공지 데브기어 강의 - 2017년 5월~2017년 7월 관리자 2015.01.22 5240
공지 RAD Studio(Delphi, C++Builder) 시작하기 관리자 2015.06.30 7667
공지 RAD 스튜디오로 개발된 모바일 앱 사례(17년 5월 2일 업데이트) 험프리 2014.01.16 145002
748 [발표자료] REST API 웹서비스 연동 관리자 2017.05.29 29
747 [REST API][실습] REST API 클라이언트 개발하기(REST Client 이용) 험프리 2017.05.23 54
746 [REST API][실습] REST API 서버 개발하기(엔드포인트 구현, RAD 서버 이용) 험프리 2017.05.23 48
745 [REST API] REST API 이해하기 험프리 2017.05.23 61
744 델파이 코드 분석 도구 험프리 2017.05.16 97
743 애플 개발자 프로그램 구독하지 않고 XCode8을 설정해 iOS앱을 배포하는 방법 험프리 2017.05.15 85
742 안드로이드에서 커스텀 폰트 사용하기 - 델파이 10.2 도쿄 험프리 2017.05.15 50
741 [고객 사례- 조명, 델파이] 나이아가라 폭포 야간 조명 [1] 관리자 2017.05.10 211
740 [업데이트][핫픽스][10,2 도쿄] 툴체인 이슈 핫픽스 험프리 2017.05.10 102
739 [RAD서버] EMS 패키지 프로젝트 시작하기 험프리 2017.04.28 65
738 [RAD서버] EMS 서버 운영환경에 설치하기(독립형 실행파일) 험프리 2017.04.28 81
737 이 달의 기술자료 - 2017년 05월 file 험프리 2017.04.26 145
736 리눅스 서버용 GUI 응용프로그램 만들기(10.2 도쿄 & FMXLINUX 이용) 관리자 2017.04.25 202
735 [환경설정] 아마존 EC2 이용해 리눅스 서버 환경 구축하기 험프리 2017.04.20 149
734 [환경설정] 아마존 EC2 이용해 윈도우 서버 환경 구축하기 [1] 험프리 2017.04.13 171
733 [발표자료] What's NEW! RAD Studio 10.2 도쿄 험프리 2017.04.13 131
732 [고객 사례- 3D, 이미지스캐너, 델파이] mimix 3D 프로필 스캐너 관리자 2017.04.13 144
731 [RAD 서버] 비콘펜스 소개 및 데모(실내외 길찾기, 지역진입 감지하기) [1] 험프리 2017.04.13 100
730 [발표자료] 소개합니다! RAD Studio 10.2 도쿄 관리자 2017.04.06 178
729 이 달의 기술자료 - 2017년 04월 file 험프리 2017.03.30 185


광고 모듈이 설치되어 있지 않아 실행을 중단합니다..