home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / intmail2 / httppost.dfm / httppost.txt
Encoding:
Text File  |  1999-07-30  |  3.2 KB  |  154 lines
  1. object PostTestForm: TPostTestForm
  2.   Left = 190
  3.   Top = 107
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = 'Host to Post Using TmsHTTPClient Component'
  7.   ClientHeight = 377
  8.   ClientWidth = 355
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   TextHeight = 13
  15.   object Label1: TLabel
  16.     Left = 8
  17.     Top = 12
  18.     Width = 250
  19.     Height = 13
  20.     Caption = 'URL: http://www.argosoft.com/cgi-bin/PostTest.exe'
  21.   end
  22.   object Label2: TLabel
  23.     Left = 8
  24.     Top = 39
  25.     Width = 45
  26.     Height = 13
  27.     Caption = 'Your City:'
  28.   end
  29.   object Label3: TLabel
  30.     Left = 8
  31.     Top = 67
  32.     Width = 64
  33.     Height = 13
  34.     Caption = 'Your Country:'
  35.   end
  36.   object Label4: TLabel
  37.     Left = 8
  38.     Top = 94
  39.     Width = 97
  40.     Height = 13
  41.     Caption = 'Corresponding Form:'
  42.   end
  43.   object Label5: TLabel
  44.     Left = 8
  45.     Top = 256
  46.     Width = 70
  47.     Height = 13
  48.     Caption = 'Returned Data'
  49.   end
  50.   object Label6: TLabel
  51.     Left = 8
  52.     Top = 192
  53.     Width = 45
  54.     Height = 13
  55.     Caption = 'Visit Also:'
  56.   end
  57.   object Label7: TLabel
  58.     Left = 72
  59.     Top = 192
  60.     Width = 223
  61.     Height = 13
  62.     Caption = 'http://www.argosoft.com/Delphi/PostTest.html'
  63.     Font.Color = clBlue
  64.     Font.Height = -11
  65.     Font.Name = 'MS Sans Serif'
  66.     Font.Style = [fsUnderline]
  67.     ParentFont = False
  68.     OnClick = Label7Click
  69.   end
  70.   object FormMemo: TMemo
  71.     Left = 8
  72.     Top = 112
  73.     Width = 337
  74.     Height = 73
  75.     Lines.Strings = (
  76.       
  77.         '<form action="http://www.argosoft.com/cgi-bin/PostTest.exe" meth' +
  78.         'od="POST">'
  79.       
  80.         'City:<input type="text" size="40" maxlength="64" name="city"><br' +
  81.         '>'
  82.       
  83.         'Country:<input type="text" size="40" maxlength="64" name="countr' +
  84.         'y"><br>'
  85.       
  86.         '<input type="submit" value="Submit"><input type="reset" value="R' +
  87.         'eset">'
  88.       '</html>')
  89.     ReadOnly = True
  90.     TabOrder = 0
  91.     WordWrap = False
  92.   end
  93.   object PostButton: TButton
  94.     Left = 8
  95.     Top = 224
  96.     Width = 75
  97.     Height = 25
  98.     Caption = 'Post'
  99.     TabOrder = 1
  100.     OnClick = PostButtonClick
  101.   end
  102.   object CancelButton: TButton
  103.     Left = 112
  104.     Top = 224
  105.     Width = 75
  106.     Height = 25
  107.     Caption = 'Cancel'
  108.     Enabled = False
  109.     TabOrder = 2
  110.   end
  111.   object ResultsMemo: TMemo
  112.     Left = 8
  113.     Top = 276
  114.     Width = 337
  115.     Height = 73
  116.     TabOrder = 3
  117.   end
  118.   object StatusBar: TStatusBar
  119.     Left = 0
  120.     Top = 358
  121.     Width = 355
  122.     Height = 19
  123.     Panels = <>
  124.     SimplePanel = True
  125.     SizeGrip = False
  126.   end
  127.   object CityEdit: TEdit
  128.     Left = 96
  129.     Top = 35
  130.     Width = 249
  131.     Height = 21
  132.     TabOrder = 5
  133.   end
  134.   object CountryEdit: TEdit
  135.     Left = 96
  136.     Top = 63
  137.     Width = 249
  138.     Height = 21
  139.     TabOrder = 6
  140.   end
  141.   object msHTTPClient1: TmsHTTPClient
  142.     Version = '2.0'
  143.     OnConnected = msHTTPClient1Connected
  144.     OnDisconnected = msHTTPClient1Disconnected
  145.     OnTransferProgress = msHTTPClient1TransferProgress
  146.     OnConnecting = msHTTPClient1Connecting
  147.     Authorization = False
  148.     ProxyAuthorization = False
  149.     OnSendingRequest = msHTTPClient1SendingRequest
  150.     OnRequestSent = msHTTPClient1RequestSent
  151.     Left = 296
  152.   end
  153. end
  154.