본문 바로가기

교육, 세미나

[교육] 사물인터넷 교육



모바일 개발환경 설정 : http://tech.devgear.co.kr/402210


비콘

따라하기

http://tech.devgear.co.kr/delphi_news/413402


UUID : {E2C56DB5-DFFB-48D2-B060-D0F5A71096E0}




파일배포 참고 글


스마트 조명


hue_api_lights.json


hue_api_registration.json


procedure TForm1.Button1Click(Sender: TObject);

var

  Value: TJSONValue;

  ErrNo: Integer;

begin

  RESTRequest2.Execute;


  Value := RESTResponse2.JSONValue;


  if Value.TryGetValue<Integer>('[0].error.type', ErrNo) then

  begin

    if ErrNo = 101 then

    begin

      ShowMessage('중앙의 버튼을 눌러주세요.');

      Exit;

    end;

  end;


  if Value.TryGetValue<string>('[0].success.username', FUsername) then

  begin

    ShowMessage('등록되었습니다.');

  end;

end;


procedure TForm1.FormCreate(Sender: TObject);

begin

  FUsername := 'humphreykim';

end;


procedure TForm1.Switch1Switch(Sender: TObject);

var

  onoff: string;

begin

  if Switch1.IsChecked then

    onoff := '{"on":true}'

  else

    onoff := '{"on":false}';


  RESTRequest1.Params.ParameterByName('body').Value := onoff;

  RESTRequest1.Params.ParameterByName('username').Value := FUsername;

  RESTRequest1.Execute;

end;


REST API 이해하기 : http://blog.hjf.pe.kr/462

스마트 체중계(Bluetooth LE)

const

  ScaleDeviceName = 'Wahoo';


  WEIGHT_SERVICE: TBluetoothUUID          = '{00001901-0000-1000-8000-00805F9B34FB}';

  WEIGHT_CHARACTERISTIC: TBluetoothUUID   = '{00002B01-0000-1000-8000-00805F9B34FB}';


    FBLEDevice: TBluetoothLEDevice; // Ctrl + [space]

    FBLEGattService: TBluetoothGattService;

    FBLEGattChar: TBluetoothGattCharacteristic;


따라하기

http://blog.hjf.pe.kr/404


권한요청 기능 관련 샘플 경로

C:\Users\Public\Documents\Embarcadero\Studio\20.0\Samples\Object Pascal\Multi-Device Samples\Device Sensors and Services\Bluetooth\BLEScanner

앱테더링

따라하기

http://blog.hjf.pe.kr/279

기타

질문/답변