📄 main.dfm
字号:
object MainForm: TMainForm
Left = 286
Top = 55
BorderStyle = bsDialog
Caption = 'Upload a file using POST request'
ClientHeight = 314
ClientWidth = 540
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCloseQuery = FormCloseQuery
PixelsPerInch = 96
TextHeight = 13
object Label4: TLabel
Left = 16
Top = 50
Width = 16
Height = 13
Caption = 'File'
end
object Label5: TLabel
Left = 16
Top = 98
Width = 22
Height = 13
Caption = 'Host'
end
object clProgressBar1: TclProgressBar
Left = 16
Top = 179
Width = 433
Height = 8
Options = [dpDrawTotal]
InternetControl = clUploader
end
object Label1: TLabel
Left = 16
Top = 197
Width = 30
Height = 13
Caption = 'Result'
end
object Label2: TLabel
Left = 16
Top = 5
Width = 131
Height = 13
Caption = 'Try the original web page at'
end
object edtFile: TEdit
Left = 16
Top = 66
Width = 433
Height = 21
TabOrder = 2
Text = 'SubmitFileHTTP.dpr'
end
object btnBrowse: TButton
Left = 455
Top = 64
Width = 75
Height = 25
Caption = '&Browse...'
TabOrder = 3
OnClick = btnBrowseClick
end
object btnStart: TButton
Left = 16
Top = 145
Width = 75
Height = 25
Caption = '&Send File'
TabOrder = 5
OnClick = btnStartClick
end
object edtHost: TEdit
Left = 16
Top = 115
Width = 433
Height = 21
TabOrder = 4
Text =
'http://www.clevercomponents.com/products/inetsuite/demos/servers' +
'ubmitfile.asp'
end
object Memo1: TMemo
Left = 16
Top = 217
Width = 433
Height = 89
ReadOnly = True
TabOrder = 7
end
object btnStop: TButton
Left = 98
Top = 145
Width = 75
Height = 25
Caption = 'Stop'
TabOrder = 6
OnClick = btnStopClick
end
object edtViewPage: TEdit
Left = 16
Top = 21
Width = 433
Height = 21
Color = clBtnFace
ReadOnly = True
TabOrder = 0
Text =
'http://www.clevercomponents.com/products/inetsuite/demos/submitf' +
'ile.asp'
end
object btnView: TButton
Left = 455
Top = 19
Width = 75
Height = 25
Caption = '&View...'
TabOrder = 1
OnClick = btnViewClick
end
object OpenDialog1: TOpenDialog
Left = 354
Top = 61
end
object clUploader: TclUploader
UseHTTPRequest = True
InternetAgent = 'Clever Internet Suite'
HTTPRequest = clHttpRequestBuilder
OnStatusChanged = clUploaderStatusChanged
OnGetServerResponse = clUploaderGetServerResponse
Left = 148
Top = 227
end
object clHttpRequestBuilder: TclHttpRequestBuilder
Header.Accept = 'text/html, */*'
Header.AcceptLanguage = 'en-us'
Header.Connection = 'Keep-Alive'
Header.ContentLength = 0
Header.ContentType = 'multipart/form-data;boundary='
RequestType = rtMultiPartData
Left = 242
Top = 228
Items = (
'TclSubmitFileRequestItem'
'FileName'
''
'application/octet-stream')
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -