299 lines
9.0 KiB
Plaintext
299 lines
9.0 KiB
Plaintext
object Form1: TForm1
|
|
Left = 243
|
|
Top = 116
|
|
Width = 640
|
|
Height = 480
|
|
Caption = 'Extended NC for HTTP'
|
|
Color = clBtnFace
|
|
Constraints.MinHeight = 480
|
|
Constraints.MinWidth = 640
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
PixelsPerInch = 96
|
|
TextHeight = 16
|
|
object StatusBar1: TStatusBar
|
|
Left = 0
|
|
Top = 434
|
|
Width = 632
|
|
Height = 19
|
|
Panels = <>
|
|
SimplePanel = False
|
|
end
|
|
object PageControl1: TPageControl
|
|
Left = 0
|
|
Top = 80
|
|
Width = 632
|
|
Height = 354
|
|
ActivePage = TabSheet1
|
|
Align = alClient
|
|
TabOrder = 1
|
|
TabPosition = tpBottom
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'General'
|
|
object SpeedButton2: TSpeedButton
|
|
Left = 456
|
|
Top = 88
|
|
Width = 23
|
|
Height = 22
|
|
Glyph.Data = {
|
|
66010000424D6601000000000000760000002800000014000000140000000100
|
|
040000000000F0000000800C0000800C00001000000000000000000000000000
|
|
8000008000000080800080000000800080008080000080808000C0C0C0000000
|
|
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
|
|
8888888800008888888888888888888800008888888888888888888800008888
|
|
8877888888888888000088880077788887778888000088870B07778887777788
|
|
000088700BB07778000777780000800BBBBB07770BB0077700000BBBBBBBB077
|
|
0BBBB07700000BBBBBBBB0780BBBB07700000BBBBBBB00000BBBB07700000BB0
|
|
0BB03333000BB077000000030B03333333300078000003330033333333333088
|
|
0000800333333333333008880000888000000000000888880000888888888888
|
|
8888888800008888888888888888888800008888888888888888888800008888
|
|
88888888888888880000}
|
|
end
|
|
object ToSend: TStringGrid
|
|
Left = 0
|
|
Top = 0
|
|
Width = 624
|
|
Height = 105
|
|
Align = alClient
|
|
ColCount = 2
|
|
FixedCols = 0
|
|
RowCount = 15
|
|
FixedRows = 0
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
|
|
TabOrder = 0
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 105
|
|
Width = 624
|
|
Height = 218
|
|
Align = alBottom
|
|
BorderStyle = bsSingle
|
|
TabOrder = 1
|
|
object Label2: TLabel
|
|
Left = 2
|
|
Top = 16
|
|
Width = 180
|
|
Height = 18
|
|
Caption = 'Cabecera a enviar:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Courier New'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Memo3: TMemo
|
|
Left = 1
|
|
Top = 35
|
|
Width = 618
|
|
Height = 178
|
|
Align = alBottom
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
WordWrap = False
|
|
end
|
|
object GenerarCabecera: TBitBtn
|
|
Left = 432
|
|
Top = 8
|
|
Width = 113
|
|
Height = 25
|
|
Caption = 'Cabecera'
|
|
TabOrder = 1
|
|
OnClick = GenerarCabeceraClick
|
|
Glyph.Data = {
|
|
16010000424D1601000000000000760000002800000010000000140000000100
|
|
040000000000A0000000800C0000800C00001000000000000000000000000000
|
|
8000008000000080800080000000800080008080000080808000C0C0C0000000
|
|
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
|
|
8888888888888888888888888888888888888888888777778888888888000007
|
|
77888888880AAAA007788888880AAAAA20778888880AAAA2A27788888800000A
|
|
2207888887888870020788880788888770078880077777700207880A0000000A
|
|
220780AAAAAAAAA2A2780AAAAAAAAAAA208880AAAAAAAAA00888880A00000008
|
|
8888888007888888888888880888888888888888888888888888}
|
|
end
|
|
object BitBtn3: TBitBtn
|
|
Left = 552
|
|
Top = 8
|
|
Width = 65
|
|
Height = 25
|
|
Caption = 'Send'
|
|
TabOrder = 2
|
|
OnClick = BitBtn3Click
|
|
Glyph.Data = {
|
|
16010000424D1601000000000000760000002800000010000000140000000100
|
|
040000000000A0000000800C0000800C00001000000000000000000000000000
|
|
8000008000000080800080000000800080008080000080808000C0C0C0000000
|
|
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
|
|
8888888888888888888888888888888888888888888777778888888888000007
|
|
77888888880AAAA007788888880AAAAA20778888880AAAA2A27788888800000A
|
|
2207888887888870020788880788888770078880077777700207880A0000000A
|
|
220780AAAAAAAAA2A2780AAAAAAAAAAA208880AAAAAAAAA00888880A00000008
|
|
8888888007888888888888880888888888888888888888888888}
|
|
end
|
|
end
|
|
end
|
|
object TabSheet2: TTabSheet
|
|
Caption = 'HTML'
|
|
ImageIndex = 1
|
|
object Splitter1: TSplitter
|
|
Left = 0
|
|
Top = 113
|
|
Width = 624
|
|
Height = 3
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
end
|
|
object Memo2: TMemo
|
|
Left = 0
|
|
Top = 116
|
|
Width = 624
|
|
Height = 207
|
|
Align = alClient
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ReadOnly = True
|
|
ScrollBars = ssBoth
|
|
TabOrder = 0
|
|
WordWrap = False
|
|
end
|
|
object Memo1: TMemo
|
|
Left = 0
|
|
Top = 0
|
|
Width = 624
|
|
Height = 113
|
|
Align = alTop
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ScrollBars = ssVertical
|
|
TabOrder = 1
|
|
WordWrap = False
|
|
end
|
|
end
|
|
object TabSheet3: TTabSheet
|
|
Caption = 'Preview'
|
|
ImageIndex = 2
|
|
object CppWebBrowser1: TCppWebBrowser
|
|
Left = 0
|
|
Top = 0
|
|
Width = 624
|
|
Height = 323
|
|
TabStop = True
|
|
Align = alClient
|
|
TabOrder = 0
|
|
ControlData = {
|
|
4C0000007E400000622100000000000000000000000000000000000000000000
|
|
000000004C000000000000000000000001000000E0D057007335CF11AE690800
|
|
2B2E12620A000000000000004C0000000114020000000000C000000000000046
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000100000000000000000000000000000000000000}
|
|
end
|
|
end
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 632
|
|
Height = 80
|
|
Align = alTop
|
|
BorderStyle = bsSingle
|
|
TabOrder = 2
|
|
object Label1: TLabel
|
|
Left = 8
|
|
Top = 56
|
|
Width = 100
|
|
Height = 18
|
|
Caption = 'Post Data:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Courier New'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object BitBtn1: TBitBtn
|
|
Left = 584
|
|
Top = 8
|
|
Width = 41
|
|
Height = 25
|
|
Caption = 'Ir'
|
|
TabOrder = 0
|
|
OnClick = BitBtn1Click
|
|
Glyph.Data = {
|
|
16010000424D1601000000000000760000002800000010000000140000000100
|
|
040000000000A0000000800C0000800C00001000000000000000000000000000
|
|
8000008000000080800080000000800080008080000080808000C0C0C0000000
|
|
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
|
|
8888888888888888888888888888888888888888888777778888888888000007
|
|
77888888880AAAA007788888880AAAAA20778888880AAAA2A27788888800000A
|
|
2207888887888870020788880788888770078880077777700207880A0000000A
|
|
220780AAAAAAAAA2A2780AAAAAAAAAAA208880AAAAAAAAA00888880A00000008
|
|
8888888007888888888888880888888888888888888888888888}
|
|
end
|
|
object ComboBox3: TComboBox
|
|
Left = 2
|
|
Top = 8
|
|
Width = 105
|
|
Height = 24
|
|
ItemHeight = 16
|
|
TabOrder = 1
|
|
Text = 'HTTP Get'
|
|
OnChange = ComboBox3Change
|
|
Items.Strings = (
|
|
'HTTP Get'
|
|
'HTTP Head'
|
|
'HTTP Options'
|
|
'HTTP Trace'
|
|
'HTTP Put'
|
|
'HTTP Post'
|
|
'HTTP Delete')
|
|
end
|
|
object Url: TEdit
|
|
Left = 106
|
|
Top = 8
|
|
Width = 412
|
|
Height = 24
|
|
TabOrder = 2
|
|
Text = 'http://jd.infdj.com'
|
|
end
|
|
object ProtocolVersion: TEdit
|
|
Left = 518
|
|
Top = 8
|
|
Width = 65
|
|
Height = 24
|
|
TabOrder = 3
|
|
Text = 'HTTP/1.1'
|
|
end
|
|
object Post: TEdit
|
|
Left = 106
|
|
Top = 48
|
|
Width = 412
|
|
Height = 24
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
object OpenDialog1: TOpenDialog
|
|
Left = 410
|
|
Top = 130
|
|
end
|
|
end
|