unit1.~dfm

实现http上传功能。FTP上传文件。信息时时上传功能。

object FAdmin: TFAdmin
  Left = 292
  Top = 105
  Width = 736
  Height = 574
  Caption = 'TFAdmin'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 728
    Height = 547
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #21457#24067#25968#25454
      object DBGrid2: TDBGrid
        Left = 856
        Top = 40
        Width = 101
        Height = 489
        DataSource = DataSource1
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Visible = False
      end
      object PageControl2: TPageControl
        Left = 0
        Top = 47
        Width = 720
        Height = 341
        ActivePage = TabSheet3
        Align = alClient
        TabOrder = 1
        object TabSheet3: TTabSheet
          Caption = #27491#25991#20449#24687
          object DBGrid1: TDBGrid
            Left = 0
            Top = 0
            Width = 712
            Height = 313
            Align = alClient
            DataSource = DataSource1
            ImeName = #26497#21697#20116#31508#36755#20837#27861
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'F_STATUS'
                Width = 55
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'F_OUTGOINGDATE'
                Width = 98
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'F_OTHERORG'
                Visible = False
              end
              item
                Expanded = False
                FieldName = 'F_ORGCODE'
                Width = 50
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'F_TITLE'
                Width = 500
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'F_YEAR'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'F_FILENO'
                Width = 40
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'F_FILETYPE'
                Visible = True
              end>
          end
        end
      end
      object PageControl3: TPageControl
        Left = 0
        Top = 388
        Width = 720
        Height = 131
        ActivePage = TabSheet4
        Align = alBottom
        TabOrder = 2
        object TabSheet4: TTabSheet
          Caption = #38468#20214
          object DBGrid3: TDBGrid
            Left = 0
            Top = 0
            Width = 712
            Height = 103
            Align = alClient
            DataSource = DataSource2
            ImeName = #26497#21697#20116#31508#36755#20837#27861
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'F_TITLE'
                Title.Caption = #38468#20214#26631#39064
                Width = 198
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'F_FILETYPE'
                Title.Caption = #25991#20214#31867#22411
                Visible = True
              end>
          end
        end
      end
      object ControlBar1: TControlBar
        Left = 0
        Top = 0
        Width = 720
        Height = 47
        Align = alTop
        AutoSize = True
        TabOrder = 3
        object ToolBar1: TToolBar
          Left = 11
          Top = 2
          Width = 582
          Height = 39
          AutoSize = True
          ButtonHeight = 35
          Caption = 'ToolBar1'
          ShowCaptions = True
          TabOrder = 0
          DesignSize = (
            582
            37)
          object btnopenDB: TButton
            Left = 0
            Top = 2
            Width = 75
            Height = 35
            Caption = #25171#24320#25968#25454#24211
            TabOrder = 5
            OnClick = btnopenDBClick
          end
          object btnStartSend: TButton
            Left = 75
            Top = 2
            Width = 89
            Height = 35
            Anchors = [akLeft, akTop, akRight, akBottom]
            Caption = #21551#21160#21457#24067#20844#25991
            TabOrder = 4
            OnClick = btnStartSendClick
          end
          object Button2: TButton
            Left = 164
            Top = 2
            Width = 75
            Height = 35
            Caption = #20889'xml'
            TabOrder = 3
            Visible = False
            OnClick = Button2Click
          end
          object Button1: TButton
            Left = 239
            Top = 2
            Width = 75
            Height = 35
            Caption = #19978#20256'HPPT'
            TabOrder = 2
            Visible = False
            OnClick = Button1Click
          end
          object btnExit: TButton
            Left = 314
            Top = 2
            Width = 96
            Height = 35
            Caption = #36864#20986#31995#32479
            TabOrder = 0
            OnClick = btnExitClick
          end
          object btnStartSendInfo: TButton
            Left = 410
            Top = 2
            Width = 81
            Height = 35
            Caption = #21551#21160#21457#24067#20449#24687
            TabOrder = 1
            Visible = False
            OnClick = btnStartSendInfoClick
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21457#24067#25253#21578
      ImageIndex = 1
      object GroupBox1: TGroupBox
        Left = 8
        Top = 48
        Width = 1009
        Height = 641
        Caption = #25253#21578
        TabOrder = 0
        object Label1: TLabel
          Left = 14
          Top = 22
          Width = 80
          Height = 13
          Caption = #19978#20256'FTP'#25253#21578#65306
        end
        object Label2: TLabel
          Left = 384
          Top = 21
          Width = 92
          Height = 13
          Caption = #19978#20256'HTTP '#25253#21578#65306
        end
        object Memo1: TMemo
          Left = 15
          Top = 44
          Width = 362
          Height = 581
          TabOrder = 0
        end
        object Memo2: TMemo
          Left = 388
          Top = 44
          Width = 605
          Height = 581
          TabOrder = 1
        end
      end
    end
  end
  object IdHTTP1: TIdHTTP
    MaxLineAction = maException
    ReadTimeout = 0
    AllowCookies = True
    HandleRedirects = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.ContentType = 'text/html'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    Left = 88
    Top = 128
  end
  object IdFTP1: TIdFTP
    MaxLineAction = maException
    ReadTimeout = 0
    Password = 'root'
    Username = 'root'
    ProxySettings.ProxyType = fpcmNone
    ProxySettings.Port = 0
    Left = 296
    Top = 144
  end
  object Timer_Send_Outfile: TTimer
    Enabled = False
    Interval = 15000
    OnTimer = Timer_Send_OutfileTimer
    Left = 144
    Top = 232
  end
  object SQLConnection1: TSQLConnection
    ConnectionName = 'OracleConnection'
    DriverName = 'Oracle'
    GetDriverFunc = 'getSQLDriverORACLE'
    LibraryName = 'dbexpora.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=Oracle'
      'DataBase=oa'
      'User_Name=oa'
      'Password=wfegov13579'
      'RowsetSize=20'
      'BlobSize=300'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Oracle TransIsolation=ReadCommited'
      'OS Authentication=False'
      'Multiple Transaction=False'
      'Trim Char=False')
    VendorLib = 'oci.dll'
    Connected = True
    Left = 296
    Top = 296
  end
  object DSBOutfile: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection1
    DataSet.CommandText = 'T_FILE_ISSUANCE'
    DataSet.CommandType = ctTable
    DataSet.MaxBlobSize = -1
    DataSet.ParamCheck = False
    DataSet.Params = <>
    Params = <>
    Left = 104
    Top = 312
    object DSBOutfileF_GUID: TStringField
      FieldName = 'F_GUID'
      Required = True
      Visible = False
      Size = 32
    end
    object DSBOutfileF_REFGUID: TStringField
      FieldName = 'F_REFGUID'
      Required = True
      Visible = False
      Size = 32
    end
    object DSBOutfileF_ORGANIZATION: TStringField
      FieldName = 'F_ORGANIZATION'
      Visible = False
      Size = 64
    end
    object DSBOutfileF_STATUS: TStringField
      DisplayLabel = #22788#29702#29366#24577
      DisplayWidth = 12
      FieldName = 'F_STATUS'
      Size = 4
    end
    object DSBOutfileF_INDATE: TSQLTimeStampField
      FieldName = 'F_INDATE'
      Visible = False
    end
    object DSBOutfileF_OUTGOINGDATE: TSQLTimeStampField
      DisplayLabel = #21457#25991#26085#26399
      DisplayWidth = 15
      FieldName = 'F_OUTGOINGDATE'
    end
    object DSBOutfileF_TYPE: TStringField
      FieldName = 'F_TYPE'
      Visible = False
      Size = 16
    end
    object DSBOutfileF_INFILETYPE: TStringField
      FieldName = 'F_INFILETYPE'
      Visible = False
      Size = 32
    end
    object DSBOutfileF_OTHERORG: TStringField
      DisplayLabel = #26469#25991#26426#20851
      DisplayWidth = 15
      FieldName = 'F_OTHERORG'
      Size = 64
    end
    object DSBOutfileF_SEQ: TFMTBCDField
      DisplayWidth = 10
      FieldName = 'F_SEQ'
      Visible = False
      Precision = 32
      Size = 8
    end
    object DSBOutfileF_ORGCODE: TStringField
      DisplayLabel = #26426#20851#20195#23383
      DisplayWidth = 21
      FieldName = 'F_ORGCODE'
      Size = 16
    end
    object DSBOutfileF_YEAR: TFMTBCDField
      DisplayLabel = #24180#20221
      DisplayWidth = 7
      FieldName = 'F_YEAR'
      Precision = 32
      Size = 8
    end
    object DSBOutfileF_FILENO: TFMTBCDField
      DisplayLabel = #24207#21495
      DisplayWidth = 7
      FieldName = 'F_FILENO'
      Precision = 32
      Size = 8
    end
    object DSBOutfileF_TITLE: TStringField
      DisplayLabel = #26631#39064
      DisplayWidth = 84
      FieldName = 'F_TITLE'
      Size = 256
    end
    object DSBOutfileF_TOPIC: TStringField
      FieldName = 'F_TOPIC'
      Visible = False
      Size = 128
    end
    object DSBOutfileF_TEXTBODY: TBlobField
      FieldName = 'F_TEXTBODY'
      Visible = False
      BlobType = ftOraBlob
      Size = 1
    end
    object DSBOutfileF_FILETYPE: TStringField
      DisplayLabel = #25991#20214#31867#22411
      DisplayWidth = 12
      FieldName = 'F_FILETYPE'
      Size = 64
    end
    object DSBOutfileF_DEALTYPE: TStringField
      DisplayLabel = #31867#21035
      DisplayWidth = 2
      FieldName = 'F_DEALTYPE'
      Visible = False
      Size = 16
    end
    object DSBOutfileF_RECEIVESOURCE: TStringField
      FieldName = 'F_RECEIVESOURCE'
      Visible = False
      Size = 16
    end
  end
  object SimpleDataSet2: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection1
    DataSet.CommandText = 'T_INFILE_TEXT'
    DataSet.CommandType = ctTable
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 544
    Top = 128
  end
  object SDSpublicationinfo: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection1
    DataSet.CommandText = 'T_PUBLICATIONINFO'
    DataSet.CommandType = ctTable
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 432
    Top = 120
  end
  object DataSource1: TDataSource
    DataSet = DSBOutfile
    Left = 336
    Top = 232
  end
  object XML: TXMLDocument
    Left = 176
    Top = 96
    DOMVendorDesc = 'MSXML'
  end
  object dsbAFFIX_ISSUANCE: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection1
    DataSet.CommandText = 'T_AFFIX_ISSUANCE'
    DataSet.CommandType = ctTable
    DataSet.MaxBlobSize = -1
    DataSet.Params = <
      item
        DataType = ftString
        Name = 'F_GUID'
        ParamType = ptInput
        Value = 'C054D484D0E7462C9D4A3FB5BF717D43'
      end>
    IndexFieldNames = 'F_GUID'
    MasterFields = 'F_GUID'
    MasterSource = DataSource1
    PacketRecords = 0
    Params = <>
    Left = 192
    Top = 320
    object dsbAFFIX_ISSUANCEF_GUID: TStringField
      FieldName = 'F_GUID'
      Required = True
      Visible = False
      Size = 32
    end
    object dsbAFFIX_ISSUANCEF_ATTACHGUID: TStringField
      FieldName = 'F_ATTACHGUID'
      Required = True
      Visible = False
      Size = 32
    end
    object dsbAFFIX_ISSUANCEF_TITLE: TStringField
      DisplayWidth = 87
      FieldName = 'F_TITLE'
      Size = 128
    end
    object dsbAFFIX_ISSUANCEF_TEXTBODY: TBlobField
      FieldName = 'F_TEXTBODY'
      Visible = False
      BlobType = ftOraBlob
      Size = 1
    end
    object dsbAFFIX_ISSUANCEF_FILETYPE: TStringField
      DisplayWidth = 13
      FieldName = 'F_FILETYPE'
      Size = 8
    end
  end
  object Timer_Send_Msg: TTimer
    Left = 552
    Top = 184
  end
  object DataSource2: TDataSource
    DataSet = dsbAFFIX_ISSUANCE
    Left = 344
    Top = 448
  end
  object SQLQuery1: TSQLQuery
    MaxBlobSize = 300
    Params = <>
    SQL.Strings = (
      'select * from T_LMDYB')
    SQLConnection = SQLConnection1
    Left = 432
    Top = 239
  end
end