unitchat.dfm

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

object FmChat: TFmChat
  Left = 246
  Top = 112
  Width = 488
  Height = 497
  Caption = #32842#22825#23458#25143#31471
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 480
    Height = 49
    Align = alTop
    AutoSize = False
    Color = clRed
    ParentColor = False
  end
  object MemSend: TMemo
    Left = 0
    Top = 49
    Width = 480
    Height = 208
    Align = alTop
    TabOrder = 0
  end
  object BtnSend: TButton
    Left = 376
    Top = 264
    Width = 75
    Height = 25
    Caption = #21457#36865
    TabOrder = 1
    OnClick = BtnSendClick
  end
  object BtnLook: TButton
    Left = 32
    Top = 264
    Width = 121
    Height = 25
    Caption = #38544#34255#32842#22825#35760#24405
    TabOrder = 2
    OnClick = BtnLookClick
  end
  object PaneRecd: TPanel
    Left = 0
    Top = 291
    Width = 480
    Height = 172
    Align = alBottom
    TabOrder = 3
    object MemRecd: TMemo
      Left = 1
      Top = 1
      Width = 478
      Height = 170
      Align = alClient
      TabOrder = 0
    end
  end
end