Advertisement
uian2000

HttpGet-TestUrlEncode-dfm

Feb 23rd, 2021
727
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.92 KB | None | 0 0
  1. object frmMain: TfrmMain
  2.   Left = 0
  3.   Top = 0
  4.   Caption = 'frmMain'
  5.   ClientHeight = 381
  6.   ClientWidth = 505
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'Tahoma'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   OnCreate = FormCreate
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object wbClient: TWebBrowser
  18.     Left = 8
  19.     Top = 88
  20.     Width = 489
  21.     Height = 273
  22.     TabOrder = 0
  23.     ControlData = {
  24.       4C0000008A320000371C00000000000000000000000000000000000000000000
  25.       000000004C000000000000000000000001000000E0D057007335CF11AE690800
  26.       2B2E126208000000000000004C0000000114020000000000C000000000000046
  27.       8000000000000000000000000000000000000000000000000000000000000000
  28.       00000000000000000100000000000000000000000000000000000000}
  29.   end
  30.   object btnServerSwitch: TButton
  31.     Left = 8
  32.     Top = 8
  33.     Width = 75
  34.     Height = 25
  35.     Action = actServerSwitch
  36.     TabOrder = 1
  37.   end
  38.   object btnBrowserGet: TButton
  39.     Left = 89
  40.     Top = 8
  41.     Width = 75
  42.     Height = 25
  43.     Action = actBrowserGet
  44.     TabOrder = 2
  45.   end
  46.   object btnHttpGet: TButton
  47.     Left = 170
  48.     Top = 8
  49.     Width = 75
  50.     Height = 25
  51.     Action = actHttpGet
  52.     TabOrder = 3
  53.   end
  54.   object lbledtUriAddress: TLabeledEdit
  55.     Left = 8
  56.     Top = 55
  57.     Width = 489
  58.     Height = 21
  59.     EditLabel.Width = 52
  60.     EditLabel.Height = 13
  61.     EditLabel.Caption = 'UriAddress'
  62.     TabOrder = 4
  63.     Text = '/address something after space'
  64.   end
  65.   object ActionList: TActionList
  66.     Left = 232
  67.     Top = 96
  68.     object actServerSwitch: TAction
  69.       Caption = 'Server Stoped'
  70.       OnExecute = actServerSwitchExecute
  71.     end
  72.     object actBrowserGet: TAction
  73.       Caption = 'BrowserGet'
  74.       OnExecute = actBrowserGetExecute
  75.     end
  76.     object actHttpGet: TAction
  77.       Caption = 'HttpGet'
  78.       OnExecute = actHttpGetExecute
  79.     end
  80.   end
  81. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement