u_web_main.dfm

以前写的一个利用P2P 技术的一个通讯的例子。里面用到了 DBISAM 、INDY 控件。

object F_WEB_MAIN: TF_WEB_MAIN
  Left = 294
  Top = 164
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'WELTIUM WEB MIS - SERVER'
  ClientHeight = 452
  ClientWidth = 809
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object SG_JL: TAdvStringGrid
    Tag = -17
    Left = 0
    Top = 0
    Width = 809
    Height = 410
    Cursor = crDefault
    HelpContext = -17
    Align = alClient
    ColCount = 2
    Ctl3D = True
    DefaultColWidth = 120
    DefaultRowHeight = 21
    DefaultDrawing = False
    FixedColor = 15528178
    FixedCols = 0
    RowCount = 5
    FixedRows = 1
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    GridLineWidth = 1
    Options = [goFixedVertLine, goFixedHorzLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goRowSelect]
    ParentCtl3D = False
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 0
    GridLineColor = clSilver
    ActiveCellShow = False
    ActiveCellFont.Charset = DEFAULT_CHARSET
    ActiveCellFont.Color = clWindowText
    ActiveCellFont.Height = -11
    ActiveCellFont.Name = 'MS Sans Serif'
    ActiveCellFont.Style = [fsBold]
    ActiveCellColor = clGray
    ActiveCellColorTo = clNone
    Bands.PrimaryColor = clInfoBk
    Bands.PrimaryLength = 1
    Bands.SecondaryColor = clWindow
    Bands.SecondaryLength = 1
    Bands.Print = False
    AutoNumAlign = False
    AutoSize = False
    VAlignment = vtaTop
    EnhTextSize = False
    EnhRowColMove = False
    SizeWithForm = False
    Multilinecells = False
    OnGetAlignment = SG_JLGetAlignment
    DragDropSettings.OleAcceptFiles = True
    DragDropSettings.OleAcceptText = True
    SortSettings.AutoColumnMerge = False
    SortSettings.Column = 1
    SortSettings.Show = True
    SortSettings.IndexShow = False
    SortSettings.IndexColor = clYellow
    SortSettings.Full = True
    SortSettings.SingleColumn = False
    SortSettings.IgnoreBlanks = False
    SortSettings.BlankPos = blFirst
    SortSettings.AutoFormat = True
    SortSettings.Direction = sdAscending
    SortSettings.UpGlyph.Data = {
      9E010000424D9E010000000000003600000028000000080000000F0000000100
      1800000000006801000000000000000000000000000000000000FEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFF7779A37376A070739EFEFF
      FFFEFFFFFEFFFFFEFFFFFEFFFF6D6F9B696C99FEFFFFFEFFFFFEFFFFFEFFFFFE
      FFFFFEFFFF6165945E62925A5E8FFEFFFF54578BFEFFFFFEFFFFFEFFFFFEFFFF
      54568A5154884D5086494D84474A82FEFFFFFEFFFFFEFFFFFEFFFF4649814447
      7F40437D3E417BFEFFFFFEFFFFFEFFFF40447D3D417B3A3E79373B77343876FE
      FFFFFEFFFFFEFFFFFEFFFF3538753135732F33722C3170FEFFFFFEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFF
      FFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFE
      FFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFF
      FFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFE
      FFFF}
    SortSettings.DownGlyph.Data = {
      9E010000424D9E010000000000003600000028000000080000000F0000000100
      18000000000068010000120B0000120B00000000000000000000FEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFF2C31702F33723135733538
      75FEFFFFFEFFFFFEFFFFFEFFFF343876373B773A3E793D417B40447DFEFFFFFE
      FFFFFEFFFF3E417B40437D44477F464981FEFFFFFEFFFFFEFFFFFEFFFF474A82
      494D844D508651548854568AFEFFFFFEFFFFFEFFFFFEFFFF54578BFEFFFF5A5E
      8F5E6292616594FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFF696C996D6F9BFE
      FFFFFEFFFFFEFFFFFEFFFFFEFFFF70739E7376A07779A3FEFFFFFEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFF
      FFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFE
      FFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFF
      FFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFE
      FFFF}
    SortSettings.InitSortDirection = sdAscending
    SortSettings.FixedCols = False
    SortSettings.NormalCellsOnly = False
    SortSettings.Row = 0
    SortSettings.UndoSort = False
    FloatingFooter.Color = clBtnFace
    FloatingFooter.Column = 0
    FloatingFooter.FooterStyle = fsFixedLastRow
    FloatingFooter.Visible = False
    ControlLook.Color = clBlack
    ControlLook.CommentColor = clRed
    ControlLook.CheckSize = 15
    ControlLook.RadioSize = 10
    ControlLook.ControlStyle = csClassic
    ControlLook.DropDownAlwaysVisible = False
    ControlLook.ProgressMarginX = 2
    ControlLook.ProgressMarginY = 2
    EnableBlink = False
    EnableHTML = True
    EnableWheel = True
    Flat = False
    Look = glSoft
    HintColor = clYellow
    SelectionColor = clHighlight
    SelectionTextColor = clHighlightText
    SelectionRectangle = False
    SelectionResizer = False
    SelectionRTFKeep = False
    HintShowCells = False
    HintShowLargeText = False
    HintShowSizing = False
    PrintSettings.FooterSize = 0
    PrintSettings.HeaderSize = 0
    PrintSettings.Time = ppNone
    PrintSettings.Date = ppNone
    PrintSettings.DateFormat = 'dd/mm/yyyy'
    PrintSettings.PageNr = ppNone
    PrintSettings.Title = ppNone
    PrintSettings.Font.Charset = DEFAULT_CHARSET
    PrintSettings.Font.Color = clWindowText
    PrintSettings.Font.Height = -11
    PrintSettings.Font.Name = 'MS Sans Serif'
    PrintSettings.Font.Style = []
    PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
    PrintSettings.FixedFont.Color = clWindowText
    PrintSettings.FixedFont.Height = -11
    PrintSettings.FixedFont.Name = 'MS Sans Serif'
    PrintSettings.FixedFont.Style = []
    PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
    PrintSettings.HeaderFont.Color = clWindowText
    PrintSettings.HeaderFont.Height = -11
    PrintSettings.HeaderFont.Name = 'MS Sans Serif'
    PrintSettings.HeaderFont.Style = []
    PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
    PrintSettings.FooterFont.Color = clWindowText
    PrintSettings.FooterFont.Height = -11
    PrintSettings.FooterFont.Name = 'MS Sans Serif'
    PrintSettings.FooterFont.Style = []
    PrintSettings.Borders = pbNoborder
    PrintSettings.BorderStyle = psSolid
    PrintSettings.Centered = False
    PrintSettings.RepeatFixedRows = False
    PrintSettings.RepeatFixedCols = False
    PrintSettings.LeftSize = 0
    PrintSettings.RightSize = 0
    PrintSettings.ColumnSpacing = 0
    PrintSettings.RowSpacing = 0
    PrintSettings.TitleSpacing = 0
    PrintSettings.Orientation = poPortrait
    PrintSettings.PageNumberOffset = 0
    PrintSettings.MaxPagesOffset = 0
    PrintSettings.FixedWidth = 0
    PrintSettings.FixedHeight = 0
    PrintSettings.UseFixedHeight = False
    PrintSettings.UseFixedWidth = False
    PrintSettings.FitToPage = fpNever
    PrintSettings.PageNumSep = '/'
    PrintSettings.NoAutoSize = False
    PrintSettings.NoAutoSizeRow = False
    PrintSettings.PrintGraphics = False
    PrintSettings.UseDisplayFont = True
    HTMLSettings.Width = 100
    HTMLSettings.XHTML = False
    Navigation.AdvanceDirection = adLeftRight
    Navigation.InsertPosition = pInsertBefore
    Navigation.HomeEndKey = heFirstLastColumn
    Navigation.TabToNextAtEnd = False
    Navigation.TabAdvanceDirection = adLeftRight
    ColumnSize.Location = clRegistry
    CellNode.Color = clSilver
    CellNode.ExpandOne = False
    CellNode.NodeColor = clBlack
    CellNode.NodeIndent = 12
    CellNode.ShowTree = False
    CellNode.TreeColor = clSilver
    MaxEditLength = 0
    Grouping.HeaderColor = clNone
    Grouping.HeaderColorTo = clNone
    Grouping.HeaderTextColor = clNone
    Grouping.MergeHeader = False
    Grouping.MergeSummary = False
    Grouping.Summary = False
    Grouping.SummaryColor = clNone
    Grouping.SummaryColorTo = clNone
    Grouping.SummaryTextColor = clNone
    IntelliPan = ipVertical
    URLColor = clBlue
    URLShow = False
    URLFull = False
    URLEdit = False
    ScrollType = ssNormal
    ScrollColor = clNone
    ScrollWidth = 16
    ScrollSynch = False
    ScrollProportional = False
    ScrollHints = shNone
    OemConvert = False
    FixedFooters = 0
    FixedRightCols = 0
    FixedColWidth = 120
    FixedRowHeight = 21
    FixedFont.Charset = ANSI_CHARSET
    FixedFont.Color = clWindowText
    FixedFont.Height = -11
    FixedFont.Name = 'Arial'
    FixedFont.Style = []
    FixedAsButtons = False
    FloatFormat = '%.2f'
    IntegralHeight = False
    WordWrap = True
    Lookup = False
    LookupCaseSensitive = False
    LookupHistory = False
    ShowSelection = False
    BackGround.Top = 0
    BackGround.Left = 0
    BackGround.Display = bdTile
    BackGround.Cells = bcNormal
    Filter = <>
    Version = '2.8.7.2'
  end
  object PN_NO: TPanel
    Left = 0
    Top = 410
    Width = 809
    Height = 42
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15528178
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object BN_OK: TFlatButton
      Left = 608
      Top = 9
      Width = 76
      Height = 24
      Caption = #30830#23450'[Ent]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 0
    end
    object BN_CANL: TFlatButton
      Left = 691
      Top = 9
      Width = 78
      Height = 24
      Caption = #21462#28040'[Esc]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 1
      OnClick = BN_CANLClick
    end
    object BN_LOOK: TFlatButton
      Left = 16
      Top = 9
      Width = 94
      Height = 24
      Caption = #26597#30475'FOLIO[F2]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 2
    end
    object BN_SER: TFlatButton
      Left = 109
      Top = 9
      Width = 63
      Height = 24
      Caption = #23450#20301'[F3]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 3
    end
    object BN_CF: TFlatButton
      Left = 171
      Top = 9
      Width = 90
      Height = 24
      Caption = #20027#20184#20652#20184'[F4]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 4
    end
    object BN_PRN: TFlatButton
      Left = 260
      Top = 9
      Width = 66
      Height = 24
      Caption = #25171#21360'[F5]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabStop = True
      TabOrder = 5
    end
    object BN_EXCEL: TFlatButton
      Left = 325
      Top = 9
      Width = 132
      Height = 24
      Caption = #25171#21360#21040' Excel[F6]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000008000808080
        0080008080800080008080800080008080800080008080800080008080800080
        0080808000800080808080808000800080808000800080808000800080808000
        8000808080008000808080008000808080008000808080008000008000808080
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFF008000808080808080008000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFF808080008000808080008000808080808080008000008000808080
        FFFFFF008000808080008000808080008000808080008000FFFFFF0080008080
        80008000008000808080808080008000FFFFFF80808000800080808000800080
        8080008000FFFFFF008000808080008000FFFFFF808080008000008000808080
        FFFFFF008000808080008000808080008000FFFFFF0080008080800080008080
        80FFFFFF008000808080808080008000FFFFFFFFFFFF008000808080008000FF
        FFFF008000808080008000808080008000FFFFFF808080008000008000808080
        FFFFFFFFFFFFFFFFFF008000FFFFFF008000808080008000808080FFFFFFFFFF
        FFFFFFFF008000808080808080008000FFFFFFFFFFFF008000FFFFFF00800080
        8080008000808080008000808080FFFFFFFFFFFF808080008000008000808080
        FFFFFF008000FFFFFF0080008080800080008080800080008080800080008080
        80FFFFFF008000808080808080008000FFFFFF80808000800080808000800080
        8080FFFFFF808080008000808080008000FFFFFF808080008000008000808080
        FFFFFF008000808080008000808080FFFFFFFFFFFFFFFFFF8080800080008080
        80FFFFFF008000808080808080008000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080008000008000808080
        0080008080800080008080800080008080800080008080800080008080800080
        0080808000800080808080808000800080808000800080808000800080808000
        8000808080008000808080008000808080008000808080008000}
      Layout = blGlyphLeft
      ParentFont = False
      TabStop = True
      TabOrder = 6
    end
  end
  object UDPServer: TIdUDPServer
    Bindings = <>
    DefaultPort = 0
    OnUDPRead = UDPServerUDPRead
    Left = 16
    Top = 368
  end
end