userver.dfm

如何在Delphi下实现画面捕捉、传输、以及文件的传输原理

object FmServer: TFmServer
  Left = 358
  Top = 150
  Width = 696
  Height = 426
  Caption = #26381#21153#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object MemRecv: TMemo
    Left = 0
    Top = 0
    Width = 688
    Height = 373
    Align = alClient
    TabOrder = 0
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 373
    Width = 688
    Height = 19
    Panels = <
      item
        Width = 50
      end>
  end
  object IdTCPServer: TIdTCPServer
    Bindings = <>
    CommandHandlers = <>
    DefaultPort = 0
    Greeting.NumericCode = 0
    MaxConnectionReply.NumericCode = 0
    OnConnect = IdTCPServerConnect
    OnExecute = IdTCPServerExecute
    OnDisconnect = IdTCPServerDisconnect
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 0
    ThreadMgr = IdThreadMgrDefault1
    Left = 40
    Top = 256
  end
  object ADOConnection: TADOConnection
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 120
    Top = 48
  end
  object ADOQuery: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from Users_Info')
    Left = 216
    Top = 48
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery
    Left = 312
    Top = 48
  end
  object IdThreadMgrDefault1: TIdThreadMgrDefault
    Left = 376
    Top = 160
  end
end