mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-18 01:05:54 +01:00
97 lines
2.2 KiB
Plaintext
97 lines
2.2 KiB
Plaintext
|
object Form9: TForm9
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Caption = 'Form9'
|
||
|
|
ClientHeight = 263
|
||
|
|
ClientWidth = 538
|
||
|
|
Color = clBtnFace
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'Tahoma'
|
||
|
|
Font.Style = []
|
||
|
|
OldCreateOrder = False
|
||
|
|
OnClose = FormClose
|
||
|
|
OnCreate = FormCreate
|
||
|
|
DesignSize = (
|
||
|
|
538
|
||
|
|
263)
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 13
|
||
|
|
object Button1: TButton
|
||
|
|
Left = 8
|
||
|
|
Top = 8
|
||
|
|
Width = 97
|
||
|
|
Height = 33
|
||
|
|
Caption = 'TRESTClient'
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'Tahoma'
|
||
|
|
Font.Style = []
|
||
|
|
ParentFont = False
|
||
|
|
TabOrder = 0
|
||
|
|
OnClick = Button1Click
|
||
|
|
end
|
||
|
|
object Memo1: TMemo
|
||
|
|
Left = 8
|
||
|
|
Top = 47
|
||
|
|
Width = 522
|
||
|
|
Height = 208
|
||
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'Consolas'
|
||
|
|
Font.Style = []
|
||
|
|
Lines.Strings = (
|
||
|
|
'Memo1')
|
||
|
|
ParentFont = False
|
||
|
|
TabOrder = 1
|
||
|
|
ExplicitWidth = 664
|
||
|
|
ExplicitHeight = 240
|
||
|
|
end
|
||
|
|
object Button2: TButton
|
||
|
|
Left = 111
|
||
|
|
Top = 8
|
||
|
|
Width = 97
|
||
|
|
Height = 33
|
||
|
|
Caption = 'DMVC RESTClient'
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'Tahoma'
|
||
|
|
Font.Style = []
|
||
|
|
ParentFont = False
|
||
|
|
TabOrder = 2
|
||
|
|
OnClick = Button2Click
|
||
|
|
end
|
||
|
|
object RESTClient1: TRESTClient
|
||
|
|
Accept = 'application/json, text/plain; q=0.9, text/html;q=0.8,'
|
||
|
|
AcceptCharset = 'UTF-8, *;q=0.8'
|
||
|
|
AcceptEncoding = 'identity'
|
||
|
|
BaseURL = 'https://localhost:8080'
|
||
|
|
Params = <>
|
||
|
|
HandleRedirects = True
|
||
|
|
Left = 32
|
||
|
|
Top = 56
|
||
|
|
end
|
||
|
|
object RESTRequest1: TRESTRequest
|
||
|
|
Client = RESTClient1
|
||
|
|
Params = <>
|
||
|
|
Resource = 'people'
|
||
|
|
Left = 32
|
||
|
|
Top = 112
|
||
|
|
end
|
||
|
|
object IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL
|
||
|
|
MaxLineAction = maException
|
||
|
|
Port = 0
|
||
|
|
DefaultPort = 0
|
||
|
|
SSLOptions.Mode = sslmUnassigned
|
||
|
|
SSLOptions.VerifyMode = []
|
||
|
|
SSLOptions.VerifyDepth = 0
|
||
|
|
Left = 264
|
||
|
|
Top = 64
|
||
|
|
end
|
||
|
|
end
|