downloaddemo_u.dfm

EmbeddedWB_D5-D2009_Version_14.67.8 最新版本,开发WEB浏览器.

object Form1: TForm1
  Left = 341
  Top = 296
  Caption = 'IEDownload Demo'
  ClientHeight = 534
  ClientWidth = 824
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 824
    Height = 217
    Align = alTop
    Color = clWhite
    TabOrder = 0
    object btnStart: TButton
      Left = 303
      Top = 7
      Width = 98
      Height = 21
      Caption = 'Download A File'
      TabOrder = 0
      OnClick = btnStartClick
    end
    object btnStop: TButton
      Left = 407
      Top = 7
      Width = 131
      Height = 21
      Caption = 'Stop Current '
      Enabled = False
      TabOrder = 1
      OnClick = btnStopClick
    end
    object rgBind: TRadioGroup
      Left = 544
      Top = 88
      Width = 170
      Height = 45
      Caption = 'DownloadMethod'
      Items.Strings = (
        'Download To File'
        'Download To Stream')
      TabOrder = 2
      OnClick = rgBindClick
    end
    object rgBindMethod: TRadioGroup
      Left = 720
      Top = 75
      Width = 98
      Height = 66
      Caption = 'BindVerbOption'
      Items.Strings = (
        'Get'
        'Post'
        'Put'
        'Custom')
      TabOrder = 3
    end
    object GroupBox1: TGroupBox
      Left = 1
      Top = 139
      Width = 822
      Height = 77
      Align = alBottom
      Caption = 'Download:'
      TabOrder = 4
      DesignSize = (
        822
        77)
      object lblProgress: TLabel
        Left = 3
        Top = 39
        Width = 98
        Height = 13
        Caption = ' Download Progress:'
      end
      object ProgressBar1: TProgressBar
        Left = 3
        Top = 55
        Width = 814
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 0
      end
      object edtFile: TEdit
        Left = 3
        Top = 12
        Width = 814
        Height = 21
        Color = clBtnFace
        TabOrder = 1
      end
    end
    object GroupBox2: TGroupBox
      Left = 5
      Top = 7
      Width = 292
      Height = 126
      Caption = 'Enter the addresses of the files to download::'
      TabOrder = 5
      object memAddress: TMemo
        Left = 2
        Top = 15
        Width = 288
        Height = 109
        Align = alClient
        Lines.Strings = (
          'http://www.microsoft.com/en/us/default.aspx')
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object GroupBox3: TGroupBox
      Left = 303
      Top = 115
      Width = 134
      Height = 29
      Caption = 'State:'
      TabOrder = 6
      object lblState: TLabel
        Left = 48
        Top = 13
        Width = 31
        Height = 13
        Caption = 'Ready'
      end
    end
    object GroupBox4: TGroupBox
      Left = 544
      Top = 7
      Width = 170
      Height = 75
      Caption = 'Options:'
      TabOrder = 7
      object cbOverWrite: TCheckBox
        Left = 3
        Top = 15
        Width = 138
        Height = 17
        Caption = 'OverWrite If File Exists'
        TabOrder = 0
      end
      object cbOpenFolder: TCheckBox
        Left = 3
        Top = 38
        Width = 165
        Height = 17
        Caption = 'Open Folder After Download'
        TabOrder = 1
      end
      object cbAsyn: TCheckBox
        Left = 3
        Top = 61
        Width = 150
        Height = 10
        Caption = 'Asynchronous mode'
        TabOrder = 2
      end
    end
    object btnStopAll: TButton
      Left = 407
      Top = 34
      Width = 131
      Height = 21
      Caption = 'Stop All'
      Enabled = False
      TabOrder = 8
      OnClick = btnStopAllClick
    end
    object btnGoList: TButton
      Left = 301
      Top = 34
      Width = 100
      Height = 21
      Caption = 'Download a List'
      TabOrder = 9
      OnClick = btnGoListClick
    end
    object rgFileExists: TRadioGroup
      Left = 720
      Top = 7
      Width = 98
      Height = 62
      Caption = 'File Exist Options:'
      Items.Strings = (
        'OverWrite'
        'Rename'
        'Skip')
      TabOrder = 10
    end
    object btnToCache: TButton
      Left = 303
      Top = 61
      Width = 98
      Height = 21
      Caption = 'DownloadToCache'
      TabOrder = 11
      OnClick = btnToCacheClick
    end
    object btnToFile: TButton
      Left = 303
      Top = 88
      Width = 98
      Height = 21
      Caption = 'DownloadToFile'
      TabOrder = 12
      OnClick = btnToFileClick
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 394
    Width = 824
    Height = 140
    Align = alBottom
    Caption = 'Panel3'
    TabOrder = 1
    object ListView: TListView
      Left = 1
      Top = 1
      Width = 822
      Height = 138
      Align = alClient
      Columns = <
        item
          Caption = 'File Name'
          Width = 160
        end
        item
          Caption = 'Speed'
          Width = 75
        end
        item
          Caption = 'Downloaded'
          Width = 75
        end
        item
          Caption = 'Remaining Time'
          Width = 90
        end
        item
          Caption = 'Elapsed Time'
          Width = 90
        end
        item
          Caption = 'Status'
          Width = 100
        end
        item
          Caption = 'Data Recived'
          Width = 160
        end
        item
          Caption = 'Percents'
          Width = 70
        end>
      GridLines = True
      HideSelection = False
      ReadOnly = True
      RowSelect = True
      TabOrder = 0
      ViewStyle = vsReport
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 217
    Width = 824
    Height = 177
    Align = alClient
    Caption = 'Panel4'
    TabOrder = 2
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 822
      Height = 175
      ActivePage = TabSheet9
      Align = alClient
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = 'Web Browser'
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object EmbeddedWB1: TEmbeddedWB
          Left = 0
          Top = 0
          Width = 814
          Height = 147
          Align = alClient
          TabOrder = 0
          Silent = False
          DisableCtrlShortcuts = 'N'
          UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
          About = ' EmbeddedWB http://bsalsa.com/'
          PrintOptions.Margins.Left = 19.050000000000000000
          PrintOptions.Margins.Right = 19.050000000000000000
          PrintOptions.Margins.Top = 19.050000000000000000
          PrintOptions.Margins.Bottom = 19.050000000000000000
          PrintOptions.Header = '&w&bPage &p of &P'
          PrintOptions.HTMLHeader.Strings = (
            '<HTML></HTML>')
          PrintOptions.Footer = '&u&b&d'
          PrintOptions.Orientation = poPortrait
          ExplicitWidth = 797
          ControlData = {
            4C00000048430000E81B00000000000000000000000000000000000000000000
            000000004C000000000000000000000001000000E0D057007335CF11AE690800
            2B2E126208000000000000004C0000000114020000000000C000000000000046
            8000000000000000000000000000000000000000000000000000000000000000
            00000000000000000100000000000000000000000000000000000000}
        end
      end
      object TabSheet4: TTabSheet
        Caption = 'Preview Data'
        ImageIndex = 3
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object memPreviewData: TMemo
          Left = 0
          Top = 0
          Width = 814
          Height = 147
          Align = alClient
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
      object TabSheet9: TTabSheet
        Caption = 'Preview Stream'
        ImageIndex = 8
        object memPreviewStream: TMemo
          Left = 0
          Top = 0
          Width = 814
          Height = 147
          Align = alClient
          Lines.Strings = (
            '')
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
      object TabSheet3: TTabSheet
        Caption = 'Events'
        ImageIndex = 2
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object Panel5: TPanel
          Left = 0
          Top = 0
          Width = 814
          Height = 147
          Align = alClient
          Caption = 'Panel5'
          TabOrder = 0
          object memEvents: TMemo
            Left = 1
            Top = 1
            Width = 812
            Height = 145
            Align = alClient
            ScrollBars = ssBoth
            TabOrder = 0
          end
        end
      end
      object TabSheet5: TTabSheet
        Caption = 'Server Response'
        ImageIndex = 4
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object memResponse: TMemo
          Left = 0
          Top = 0
          Width = 814
          Height = 147
          Align = alClient
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
      object TabSheet6: TTabSheet
        Caption = 'Progress Text'
        ImageIndex = 5
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object memProgress: TMemo
          Left = 0
          Top = 0
          Width = 814
          Height = 147
          Align = alClient
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
      object TabSheet7: TTabSheet
        Caption = 'Additional Headers'
        ImageIndex = 6
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object memHeaders: TMemo
          Left = 0
          Top = 0
          Width = 814
          Height = 147
          Align = alClient
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
      object TabSheet8: TTabSheet
        Caption = 'Errors'
        ImageIndex = 7
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object memErrors: TMemo
          Left = 0
          Top = 0
          Width = 814
          Height = 147
          Align = alClient
          Lines.Strings = (
            '')
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
      object TabSheet10: TTabSheet
        Caption = 'Details'
        ImageIndex = 9
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object memDetails: TMemo
          Left = 0
          Top = 0
          Width = 814
          Height = 147
          Align = alClient
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
      object TabSheet11: TTabSheet
        Caption = 'Thread info'
        ImageIndex = 10
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object lvThread: TListView
          Left = 0
          Top = 0
          Width = 814
          Height = 147
          Align = alClient
          Columns = <
            item
              Caption = 'FileName'
              Width = 150
            end
            item
              Caption = 'Thread ID'
              Width = 100
            end
            item
              Caption = 'Thread Handle'
              Width = 100
            end
            item
              Caption = 'Status'
              Width = 100
            end
            item
              Caption = 'ActiveConnecctions'
              Width = 150
            end>
          TabOrder = 0
          ViewStyle = vsReport
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'Help'
        ImageIndex = 9
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object memSession: TMemo
          Left = 0
          Top = 0
          Width = 814
          Height = 147
          Align = alClient
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
    end
  end
  object IEDownload1: TIEDownload
    About = ' IEDownload http://bsalsa.com/'
    AdditionalHeader.Strings = (
      'Content-Type: application/x-www-form-urlencoded')
    DefaultProtocol = 'http://'
    DefaultUrlFileName = 'index.html'
    OnAuthenticate = IEDownload1Authenticate
    OnAuthenticateEx = IEDownload1AuthenticateEx
    OnPutProperty = IEDownload1PutProperty
    OnBeginningTransaction = IEDownload1BeginningTransaction
    OnCodeInstallProblem = IEDownload1CodeInstallProblem
    OnDataAvailable = IEDownload1DataAvailable
    OnDataAvailableInfo = IEDownload1DataAvailableInfo
    OnConnect = IEDownload1Connect
    OnComplete = IEDownload1Complete
    OnStreamComplete = IEDownload1StreamComplete
    OnError = IEDownload1Error
    OnGetBindResults = IEDownload1GetBindResults
    OnGetBindInfo = IEDownload1GetBindInfo
    OnGetBindInfoEx = IEDownload1GetBindInfoEx
    OnGetSerializedClientCertContext = IEDownload1GetSerializedClientCertContext
    OnGetRootSecurityId = IEDownload1GetRootSecurityId
    OnGetWindow = IEDownload1GetWindow
    OnFileExists = IEDownload1FileExists
    OnProgress = IEDownload1Progress
    OnRedirect = IEDownload1Redirect
    OnResponse = IEDownload1Response
    OnResume = IEDownload1Resume
    OnSecurityProblem = IEDownload1SecurityProblem
    OnStartBinding = IEDownload1StartBinding
    OnStateChange = IEDownload1StateChange
    OnTerminate = IEDownload1Terminate
    OnStopBinding = IEDownload1StopBinding
    TimeOut = 2147483647
    Left = 120
    Top = 72
  end
end