REST API 웹서비스 연동
http://blog.hjf.pe.kr/467

여러분들의 프로젝트에 REST API 기반 웹서비스를 구축하고 연동하는 방법을 배울 수 있는 교육과정입니다.

진행 순서
JSON 샘플
{
"books" :
{
"total" :2,
"book" :
[
{
"BOOK_SEQ" :15,
"BOOK_TITLE" : "델파이 Begin...End" ,
"BOOK_AUTHOR" : "김원경"
},
{
"BOOK_SEQ" :16,
"BOOK_TITLE" : "한 번에 개발하는 안드로이드 iOS앱 with 델파이. 1편" ,
"BOOK_AUTHOR" : "김원경 , 김현수, 오상현"
}
]
}
} |
http://www.json.org/json-ko.html
Open API 관련링크
OAuth 2.0 참고
https://developers.daum.net/services/apis/docs/oauth2_0/intro
REST API 서버 프로젝트(Books, DataSets)
EMSPackage.zip
클라이언트 프로젝트
EndPointClient.zip
DataSetClient.zip
KakaoOAuth20.zip
formdesign.txt
datasetFormDesign.txt
object btnLoadData: TButton
Position.X = 24.000000000000000000
Position.Y = 16.000000000000000000
TabOrder = 0
Text = #45936#51060#53552' '#47196#46300
OnClick = btnLoadDataClick
end
object Grid1: TGrid
CanFocus = True
ClipChildren = True
Position.X = 24.000000000000000000
Position.Y = 48.000000000000000000
Size.Width = 369.000000000000000000
Size.Height = 353.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
RowCount = 0
OnSelChanged = Grid1SelChanged
Viewport.Width = 365.000000000000000000
Viewport.Height = 328.000000000000000000
end
object Label1: TLabel
Position.X = 408.000000000000000000
Position.Y = 46.000000000000000000
Text = #51228#47785
TabOrder = 11
end
object edtTitle: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 12
Position.X = 408.000000000000000000
Position.Y = 65.000000000000000000
Size.Width = 257.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
end
object Label2: TLabel
Position.X = 408.000000000000000000
Position.Y = 94.000000000000000000
Text = #51200#51088
TabOrder = 6
end
object edtAuthor: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 7
Position.X = 408.000000000000000000
Position.Y = 113.000000000000000000
Size.Width = 121.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
end
object Label3: TLabel
Position.X = 408.000000000000000000
Position.Y = 142.000000000000000000
Text = 'ISBN'
TabOrder = 4
end
object edtISBN: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 5
Position.X = 408.000000000000000000
Position.Y = 161.000000000000000000
Size.Width = 121.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
end
object Label4: TLabel
Position.X = 408.000000000000000000
Position.Y = 190.000000000000000000
Text = #44032#44201
TabOrder = 2
end
object edtPrice: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 3
Position.X = 408.000000000000000000
Position.Y = 209.000000000000000000
Size.Width = 121.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
end
object Label5: TLabel
Position.X = 408.000000000000000000
Position.Y = 238.000000000000000000
Text = #44288#47144#47553#53356
TabOrder = 9
end
object edtLink: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 10
Position.X = 408.000000000000000000
Position.Y = 257.000000000000000000
Size.Width = 257.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
end
object Label6: TLabel
Position.X = 408.000000000000000000
Position.Y = 286.000000000000000000
Text = #49444#47749
TabOrder = 8
end
object mmoDescription: TMemo
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
DataDetectorTypes = []
Position.X = 408.000000000000000000
Position.Y = 304.000000000000000000
Size.Width = 257.000000000000000000
Size.Height = 97.000000000000000000
Size.PlatformDefault = False
TabOrder = 13
Viewport.Width = 253.000000000000000000
Viewport.Height = 93.000000000000000000
end
object btnNewData: TButton
Position.X = 408.000000000000000000
Position.Y = 16.000000000000000000
TabOrder = 16
Text = #49888#44508
OnClick = btnNewDataClick
end
object btnSaveData: TButton
Position.X = 584.000000000000000000
Position.Y = 408.000000000000000000
TabOrder = 14
Text = #51200#51109
OnClick = btnSaveDataClick
end
object ImageControl1: TImageControl
Position.X = 536.000000000000000000
Position.Y = 96.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 145.000000000000000000
Size.PlatformDefault = False
TabOrder = 17
end
object btnDeleteData: TButton
Position.X = 584.000000000000000000
Position.Y = 16.000000000000000000
TabOrder = 15
Text = #49325#51228
OnClick = btnDeleteDataClick
end