CEF4Delphi/demos/Delphi_VCL/URLRequest/uURLRequest.dfm
Salvador Díaz Fau 437c3bf4c0 Bug fix #222
- Fixed ICEFPostData and TCefPostData declarations
- Fixed CustomAbsolutePath to convert the relative path to absolute path even when CustomPathCanonicalize fails.
- Added a POST example to the URLRequest demo.
- Updated the PostInspectorBrowser demo for the new ICEFPostData decalrations.
2019-09-25 17:23:16 +02:00

197 lines
4.1 KiB
Plaintext

object URLRequestFrm: TURLRequestFrm
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'URL request'
ClientHeight = 445
ClientWidth = 518
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Padding.Top = 5
OldCreateOrder = False
Position = poScreenCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object StatusBar1: TStatusBar
Left = 0
Top = 426
Width = 518
Height = 19
Panels = <
item
Width = 500
end>
end
object GETGbx: TGroupBox
Left = 10
Top = 8
Width = 494
Height = 105
Caption = ' GET example '
TabOrder = 1
object Label1: TLabel
Left = 16
Top = 30
Width = 19
Height = 13
Caption = 'URL'
end
object DownloadBtn: TButton
Left = 13
Top = 62
Width = 465
Height = 25
Caption = 'Download'
TabOrder = 0
OnClick = DownloadBtnClick
end
object GetURLEdt: TEdit
Left = 45
Top = 27
Width = 433
Height = 21
TabOrder = 1
Text =
'https://www.w3.org/WAI/ER/tests/xhtml/testfiles/resources/pdf/du' +
'mmy.pdf'
end
end
object POSTGbx: TGroupBox
Left = 10
Top = 136
Width = 494
Height = 274
Caption = ' POST example '
TabOrder = 2
object Label2: TLabel
Left = 16
Top = 29
Width = 19
Height = 13
Caption = 'URL'
end
object PostURLEdt: TEdit
Left = 45
Top = 26
Width = 433
Height = 21
TabOrder = 0
Text = 'https://ptsv2.com/t/cef4delphi/post'
end
object SendPostReqBtn: TButton
Left = 16
Top = 193
Width = 462
Height = 25
Caption = 'Send POST request'
TabOrder = 1
OnClick = SendPostReqBtnClick
end
object Button1: TButton
Left = 16
Top = 231
Width = 462
Height = 25
Caption = 'Check results in PTSV2.com'
TabOrder = 2
OnClick = Button1Click
end
object GroupBox1: TGroupBox
Left = 16
Top = 56
Width = 462
Height = 57
Caption = ' Parameter 1 '
TabOrder = 3
object Label3: TLabel
Left = 16
Top = 24
Width = 34
Height = 13
Caption = 'Name :'
end
object Label4: TLabel
Left = 264
Top = 24
Width = 33
Height = 13
Caption = 'Value :'
end
object PostParam1NameEdt: TEdit
Left = 56
Top = 21
Width = 121
Height = 21
TabOrder = 0
Text = 'name1'
end
object PostParam1ValueEdt: TEdit
Left = 304
Top = 21
Width = 137
Height = 21
TabOrder = 1
Text = 'value1'
end
end
object GroupBox2: TGroupBox
Left = 16
Top = 123
Width = 462
Height = 57
Caption = ' Parameter 2 '
TabOrder = 4
object Label5: TLabel
Left = 16
Top = 24
Width = 34
Height = 13
Caption = 'Name :'
end
object Label6: TLabel
Left = 264
Top = 24
Width = 33
Height = 13
Caption = 'Value :'
end
object PostParam2NameEdt: TEdit
Left = 56
Top = 21
Width = 121
Height = 21
TabOrder = 0
Text = 'name2'
end
object PostParam2ValueEdt: TEdit
Left = 304
Top = 21
Width = 137
Height = 21
TabOrder = 1
Text = 'value2'
end
end
end
object SaveDialog1: TSaveDialog
Left = 448
Top = 104
end
object CEFUrlRequestClientComponent1: TCEFUrlRequestClientComponent
OnRequestComplete = CEFUrlRequestClientComponent1RequestComplete
OnDownloadProgress = CEFUrlRequestClientComponent1DownloadProgress
OnDownloadData = CEFUrlRequestClientComponent1DownloadData
OnCreateURLRequest = CEFUrlRequestClientComponent1CreateURLRequest
Left = 304
Top = 104
end
end