[교육] 사물인터넷 교육

2015.09.22 09:27


모바일 개발환경 설정 : 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

앱테더링

따라하기

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

기타

질문/답변


험프리.김현수 교육, 세미나

  1. Blog Icon

    비밀댓글입니다

  2. 안녕하세요. 지난번에 사물인터넷 교육을 들었습니다. 좋은교육 감사합니다. 다름이 아니라 지난 수업 중에 알려주셨던 헬스케어관련? 알고리즘을 볼 수 있는 사이트를 보여주셨었는데.. 그 사이트를 잊어버려서요 ㅜ 혹시 알려주실 수 있을까요?

  3. Blog Icon
    황수연

    교육 잘받았습니다. 블로그 자료가 도움이 많이 될듯 합니다.