打印编程

开发平台：

Delphi

uServerMain.dfm：源码内容

							object frmServerMain: TfrmServerMain
  Left = 353
  Top = 124
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25171#21360#26426#26381#21153#31471
  ClientHeight = 299
  ClientWidth = 353
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 280
    Width = 353
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 353
    Height = 280
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 7
      Top = 8
      Width = 337
      Height = 265
      Caption = #23458#25143#31471#21457#26469#30340#20449#24687#20869#23481
      TabOrder = 0
      object Memo1: TMemo
        Left = 13
        Top = 32
        Width = 311
        Height = 177
        Color = clGradientActiveCaption
        ReadOnly = True
        TabOrder = 0
      end
    end
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 1025
    ServerType = stNonBlocking
    OnListen = ServerSocketListen
    OnGetSocket = ServerSocketGetSocket
    OnClientConnect = ServerSocketClientConnect
    OnClientDisconnect = ServerSocketClientDisconnect
    OnClientRead = ServerSocketClientRead
    OnClientError = ServerSocketClientError
    Left = 8
    Top = 8
  end
end

						