EMBARCADERO TECHNOLOGIES (Humphery Kim) RAD Studio : h=p://tech.devgear.co.kr/ : h=p://blog.hjf.pe.kr/ Facebook : h=p://d.com/hjfactory :

Size: px

Start display at page:

Download "EMBARCADERO TECHNOLOGIES (Humphery Kim) RAD Studio : h=p://tech.devgear.co.kr/ : h=p://blog.hjf.pe.kr/ Facebook : h=p://d.com/hjfactory :"

인태 견
6 years ago
Views:

1 #3 (RAD STUDIO) In

2 EMBARCADERO TECHNOLOGIES (Humphery Kim) RAD Studio : h=p://tech.devgear.co.kr/ : h=p://blog.hjf.pe.kr/ Facebook : h=p://d.com/hjfactory : hskim@embarcadero.kr

3 3 EMBARCADERO TECHNOLOGIES! 1 - RAD,

4 3 EMBARCADERO TECHNOLOGIES -,

5 EMBARCADERO TECHNOLOGIES

6 6, ios( ),, OS X( ) FireUI :,

7 6 TToolbar : TLayout : TTabControl : Change Tab AcWon:.Align : Top/Bo=om/LeY/Right, Contents, Center,.StyleLookup :

8 6 EMBARCADERO TECHNOLOGIES TListBox, TListView,, TListBox ( > ) TListView ( > ) ItemAppearance :

9 6 EMBARCADERO TECHNOLOGIES, (,, ), (, LE), (REST, DataSnap ) / DB(IBLite, SQLite) API

10 #1 (1/3), ( ). 1, TForm TToolbar TBu=on Align Bo=om Text TImage Align Client TCameraComponent / TToolbar TLabel Align Contents Text TextSeangs.Hor zalign Center TSwitch1 Align Right

11 #1 (2/3) 2, // Switch1.OnSwitch procedure TForm1.Switch1Switch(Sender: TObject); begin if Switch1.IsChecked then CameraComponent1.TorchMode := TTorchMode.ModeOn else CameraComponent1.TorchMode := TTorchMode.ModeOff; end; // BuBon1.OnClick procedure TForm1.Bu=on1Click(Sender: TObject); begin CameraComponent1.AcWve := not CameraComponent1.AcWve; end;

#1 (3/3) 2, // CameraComponent1.OnSampleBufferReady procedure TForm1.CameraComponent1SampleBufferReady(Sender: TObject; const ATime: TMediaTime); begin TThread.Synchronize(TThread.

12 #1 (3/3) 2, // CameraComponent1.OnSampleBufferReady procedure TForm1.CameraComponent1SampleBufferReady(Sender: TObject; const ATime: TMediaTime); begin TThread.Synchronize(TThread.CurrentThread, GetImage); end; // private procedure GetImage; Ctrl + ShiR + C ( 23, ) procedure TForm1.GetImage; begin CameraComponent1.SampleBufferToBitmap(Image1.Bitmap, True); end;

13 #2 (1/6) 1, REST Debugger Tools > REST Debugger [Load Request] tech_devgear_jsondata.json [Send Request] Body JSON Root Element responsedata.feed.entries Tabular ( )

14 #2 (2/6) 2, Form1 TabControl1 Align Client TabControl1 TabItem1 TabItem2 (Add TTabItem) TabItem1 Toolbar1 ListView Align Client Toolbar1 Label1 Align Contents Text

15 #2 (3/6) 2, TabItem2 Toolbar1 WebBrowser1 Align Client Toolbar1 Label1 Align Contents Text Bu=on1 Align LeY StyleLookup backtoolbu=on Text

16 #2 (4/6) 3, REST Debugger [Copy Component] ( ) (Ctrl + V) ( ) ( 5 ) RESTRequest1 Execute

17 #2 (5/6) 4, View > LiveBindings Designer ( ) FDMemTable1 ListView * ßà Synch Title à Item.Text

#2 (6/6) 5, ( ) EMBARCADERO TECHNOLOGIES procedure TForm1.FormCreate(Sender: TObject); begin RESTRequest1.Execute; TabControl1.TabPosiWon := TTabPosiWon.None; TabControl1.

18 #2 (6/6) 5, ( ) EMBARCADERO TECHNOLOGIES procedure TForm1.FormCreate(Sender: TObject); begin RESTRequest1.Execute; TabControl1.TabPosiWon := TTabPosiWon.None; TabControl1.TabIndex := 0; End; procedure TForm1.Bu=on1Click(Sender: TObject); begin TabControl1.TabIndex := 0; End; procedure TForm1.ListView1ItemClick(const Sender: TObject; const AItem: TListViewItem); var Link: string; begin Link := FDMemTable1.FieldByName('link').AsString; WebBrowser1.Navigate(Link); TabControl1.TabIndex := 1; end;

19 EMBARCADERO TECHNOLOGIES

20 h=p://devgear.co.kr/edu, 9 (2 ) (4 ) (2 ) & ios DB : 2 (2 ), (3 ) ( 1 )! UI/UX, Push (2 ) 20 (1 )

21 (1), h=p://tech.devgear.co.kr/421276,.,., 21.

22 (2) /ios with 1, 2,, h=p://tech.devgear.co.kr/

23 : h=p://devgear.co.kr/ : h=p://tech.devgear.co.kr/ : h=p://docwiki.embarcadero.com : h=p://docwiki.embarcadero.com/radstudio/berlin/en/ Mobile_Tutorials:_Mobile_ApplicaWon_Development_(iOS_and_Android) ( ) : h=p:// ( ) : h=p://borlandforum.com : h=p://cafa.naver.com/delphifmx : h=p://blog.hjf.pe.kr/ 23

24 QuesYons? EMBARCADERO TECHNOLOGIES

25 . h=p://tech.devgear.co.kr h=p:// h=p://

EMBARCADERO TECHNOLOGIES (Humphery Kim) RAD Studio : h=p://tech.devgear.co.kr/ : h=p://blog.hjf.pe.kr/ Facebook : h=p://d.com/hjfactory :

#4 (RAD STUDIO) In www.devgear.co.kr 2016.05.23 EMBARCADERO TECHNOLOGIES (Humphery Kim) RAD Studio : h=p://tech.devgear.co.kr/ : h=p://blog.hjf.pe.kr/ Facebook : h=p://d.com/hjfactory : hskim@embarcadero.kr