[교육] 사물인터넷 교육

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;

tech_devgear_jsondata.json

스마트 체중계(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

기타

질문/답변


저작자 표시 비영리 동일 조건 변경 허락
신고
크리에이티브 커먼즈 라이선스
Creative Commons License

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

  1. Blog Icon

    비밀댓글입니다

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

  3. Blog Icon
    황수연

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