개발환경 설정 : http://tech.devgear.co.kr/402210
소스코드 : https://github.com/devgear/RADStudioMobileIoTEdu
받는 방법 : http://tech.devgear.co.kr/delphi_news/404452
대구 WIFI
강의실 뒷편을 참고하세요
❑ 1일차
한 번에 개발하는 안드로이드&iOS 앱
|
|
|
❑ 2일차
한 번에 개발하는 안드로이드&iOS 앱
사물인터넷
|
사원정보 따라하기
SQLite DB
SQLite 클라이언트 프로그램 : http://sqlitebrowser.org/
전화걸기 소스
procedure TForm1.Label6Click(Sender: TObject);
var
PhoneDlrSvc: IFMXPhoneDialerService;
begin
if TPlatformServices.Current.
SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDlrSvc)) then
begin
PhoneDlrSvc.Call(Label6.Text);
end;
end;
Open URL(외부 웹브라우저로 웹사이트 열기)
uses
Androidapi.JNI.GraphicsContentViewText, Androidapi.Helpers,
Androidapi.JNI.Telephony, Androidapi.JNI.JavaTypes, Androidapi.JNIBridge;
procedure OpenURL( AUrl : string );
var
Intent: JIntent;
begin
TThread.CreateAnonymousThread( procedure ()
begin
Intent := TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
Intent.setData( StrToJURI( AUrl ) );
SharedActivity.startActivity(Intent);
end).Start;
end;
리스트(ListView, ListBox) 동적으로 생성하기
procedure TForm1.FillListBox;
var
Item: TListBoxItem;
begin
PrototypeBindSource1.First;
while not PrototypeBindSource1.Eof do
begin
Item := TListBoxItem.Create(ListBox1);
Item.Parent := ListBox1;
Item.Text := PrototypeBindSource1.Members['ContactName1'].ToString;
Item.ItemData.Bitmap := nil;
Item.ItemData.Detail := '';
PrototypeBindSource1.Next;
end;
end;
procedure TForm1.FillLlistView;
var
Item: TListViewItem;
begin
PrototypeBindSource1.First;
while not PrototypeBindSource1.Eof do
begin
Item := ListView1.Items.Add;
Item.Bitmap := nil;
Item.Detail := '';
Item.Text := PrototypeBindSource1.Members['ContactName1'].ToString;
PrototypeBindSource1.Next;
end;
end;
데이터셋에 이미지 적용
uses Data.DBl
procedure TForm1.Button4Click(Sender: TObject);
var
ImageBitmap, Thumbnail: TBitmap;
ImgStream, ThumbStream: TMemoryStream;
begin
ImgStream := TMemoryStream.Create;
ThumbStream := TMemoryStream.Create;
try
ImageBitmap := Image2.Bitmap;
ImageBitmap.SaveToStream(ImgStream);
Thumbnail := ImageBitmap.CreateThumbnail(100, 100);
Thumbnail.SaveToStream(ThumbStream);
(dmData.FDQuery1.FieldByName('IMAGE') as TBlobField)
.LoadFromStream(ImgStream);
(dmData.FDQuery1.FieldByName('THUMB') as TBlobField)
.LoadFromStream(ThumbStream);
finally
ImgStream.Free;
ThumbStream.Free;
end;
dmData.FDQuery1.Post;
ChangeTabAction1.Tab := TabItem2;
ChangeTabAction1.ExecuteTarget(nil);
end;
비콘
UUID : {E2C56DB5-DFFB-48D2-B060-D0F5A71096E0}
major id : -1, 100
minor id : -1, 1~4
REST API
Philipse hue
기타 참고
참고 사이트
델파이 기술문서 : http://docwiki.embarcadero.com/
데브기어 기술게시판 : http://tech.devgear.co.kr/
fmxexpress : http://www.fmxexpress.com/
파이어몽키 카페 : cafe.naver.com/delphifmx
전화번호 가져오기
- http://tech.devgear.co.kr/delphi_news/405491
데이터스냅
- http://tech.devgear.co.kr/delphi_news/402176
- http://translate.google.com/translate?hl=ko&sl=ja&tl=ko&u=http%3A%2F%2Fdocwiki.embarcadero.com%2FRADStudio%2FXE6%2Fja%2FDataSnap_%E3%82%A2%E3%83%97%E3%83%AA%E3%82%B1%E3%83%BC%E3%82%B7%E3%83%A7%E3%83%B3%E3%81%AE%E9%96%8B%E7%99%BA&sandbox=1
- https://translate.google.com/translate?sl=ja&tl=ko&js=y&prev=_t&hl=ko&ie=UTF-8&u=http%3A%2F%2Fdocwiki.embarcadero.com%2FRADStudio%2FXE8%2Fja%2F%25E3%2583%2587%25E3%2583%25BC%25E3%2582%25BF%25E3%2583%2599%25E3%2583%25BC%25E3%2582%25B9%25E3%2581%258A%25E3%2582%2588%25E3%2581%25B3_LiveBinding_%25E3%2581%25AE%25E3%2583%2581%25E3%2583%25A5%25E3%2583%25BC%25E3%2583%2588%25E3%2583%25AA%25E3%2582%25A2%25E3%2583%25AB&edit-text=
- http://docwiki.embarcadero.com/RADStudio/XE8/en/Developing_DataSnap_Applications
ListView ItemAppearance 추가방법 소개
당겨서 새로고침 관련자료
E2597 ... arm-linux-androideabi-ld.exe: error: cannot find –ldl
갤럭시 기어 연결 참고링크
- http://docwiki.embarcadero.com/RADStudio/XE8/en/Mobile_Tutorial:_Using_a_Map_Component_to_Work_with_Maps_(iOS_and_Android)
- 위치센서(GPS) 샘플 : C:\Users\Public\Documents\Embarcadero\Studio\16.0\Samples\Object Pascal\Mobile Snippets\Location
- 카메라 컴포넌트 샘플 : C:\Users\Public\Documents\Embarcadero\Studio\16.0\Samples\Object Pascal\Mobile Snippets\CameraComponent
참고링크
- http://www.devgear.co.kr/products/rad-studio/featurelist/
- http://blog.hjf.pe.kr/121
- http://blog.hjf.pe.kr/206
- debug view
- https://technet.microsoft.com/ko-kr/library/bb896647.aspx?f=255&MSPPError=-2147217396
- OutputDebugString