mainfrm.dfm

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

object frmMain: TfrmMain
  Left = 199
  Top = 117
  Width = 484
  Height = 308
  Caption = 'Server'
  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 = (
    476
    274)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 12
    Top = 16
    Width = 28
    Height = 13
    Caption = 'Text'
  end
  object edtText: TEdit
    Left = 48
    Top = 12
    Width = 341
    Height = 21
    TabOrder = 0
    Text = #21457#36865#20449#24687
  end
  object btnSend: TButton
    Left = 392
    Top = 12
    Width = 75
    Height = 25
    Caption = #21457#36865
    TabOrder = 1
    OnClick = btnSendClick
  end
  object btnSendFile: TButton
    Left = 302
    Top = 44
    Width = 165
    Height = 25
    Caption = #21457#25991#20214
    TabOrder = 2
    OnClick = btnSendFileClick
  end
  object mmLog: TMemo
    Left = 9
    Top = 74
    Width = 457
    Height = 191
    Anchors = [akLeft, akTop, akRight, akBottom]
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object ssServer: TServerSocket
    Active = False
    Port = 1024
    ServerType = stNonBlocking
    OnListen = ssServerListen
    OnClientConnect = ssServerClientConnect
    OnClientDisconnect = ssServerClientDisconnect
    OnClientError = ssServerClientError
    Left = 276
    Top = 140
  end
  object OpenDialog: TOpenDialog
    Left = 306
    Top = 140
  end
end