mainfrm.~dfm

这个 SOCKET 实现图片的传送和生成 在我所有的程序中都使用了这个程序

object frmMain: TfrmMain
  Left = 450
  Top = 117
  Width = 512
  Height = 338
  Caption = 'Client'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignSize = (
    504
    304)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 13
    Top = 16
    Width = 28
    Height = 13
    Caption = 'Host'
  end
  object edtHost: TEdit
    Left = 55
    Top = 12
    Width = 183
    Height = 21
    TabOrder = 0
    Text = '127.0.0.1'
  end
  object btnConnect: TButton
    Left = 245
    Top = 12
    Width = 75
    Height = 25
    Caption = #36830#25509
    TabOrder = 1
    OnClick = btnConnectClick
  end
  object mmLog: TMemo
    Left = 10
    Top = 48
    Width = 483
    Height = 244
    Anchors = [akLeft, akTop, akRight, akBottom]
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object csClient: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 1024
    OnConnect = csClientConnect
    OnDisconnect = csClientDisconnect
    OnRead = csClientRead
    OnError = csClientError
    Left = 50
    Top = 72
  end
end