《Delphi 7经典问题解析》源代码 第一到七章 基础篇源程序 应用篇源程序

				object FrmMain: TFrmMain
				  Left = 203
				  Top = 150
				  BorderIcons = [biSystemMenu, biMinimize]
				  BorderStyle = bsSingle
				  Caption = 'WinSock API '#31034#20363'-'#26381#21153#22120#31471#25509#25910
				  ClientHeight = 109
				  ClientWidth = 263
				  Color = clBtnFace
				  Font.Charset = GB2312_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -12
				  Font.Name = #23435#20307
				  Font.Style = []
				  OldCreateOrder = False
				  OnClose = FormClose
				  OnCreate = FormCreate
				  PixelsPerInch = 96
				  TextHeight = 12
				  object StaBar: TStatusBar
				    Left = 0
				    Top = 90
				    Width = 263
				    Height = 19
				    Panels = 
				    SimplePanel = True
				  end
				  object Panel1: TPanel
				    Left = 0
				    Top = 0
				    Width = 263
				    Height = 57
				    Align = alTop
				    TabOrder = 1
				    object Label2: TLabel
				      Left = 29
				      Top = 26
				      Width = 60
				      Height = 12
				      Caption = #25509#25910#31471#21475#65306
				      Font.Charset = GB2312_CHARSET
				      Font.Color = clWindowText
				      Font.Height = -12
				      Font.Name = #23435#20307
				      Font.Style = []
				      ParentFont = False
				    end
				    object OtherPort: TEdit
				      Left = 93
				      Top = 21
				      Width = 140
				      Height = 20
				      Font.Charset = GB2312_CHARSET
				      Font.Color = clWindowText
				      Font.Height = -12
				      Font.Name = #23435#20307
				      Font.Style = []
				      ParentFont = False
				      TabOrder = 0
				    end
				  end
				  object Panel2: TPanel
				    Left = 0
				    Top = 57
				    Width = 263
				    Height = 33
				    Align = alClient
				    TabOrder = 2
				    object btnListen: TBitBtn
				      Left = 13
				      Top = 4
				      Width = 60
				      Height = 22
				      Caption = #30417#21548'(&L)'
				      Font.Charset = GB2312_CHARSET
				      Font.Color = clWindowText
				      Font.Height = -12
				      Font.Name = #23435#20307
				      Font.Style = []
				      ParentFont = False
				      TabOrder = 0
				      OnClick = btnListenClick
				      NumGlyphs = 2
				    end
				    object btnRecv: TBitBtn
				      Left = 73
				      Top = 4
				      Width = 60
				      Height = 22
				      Caption = #25509#25910'(&R)'
				      Font.Charset = GB2312_CHARSET
				      Font.Color = clWindowText
				      Font.Height = -12
				      Font.Name = #23435#20307
				      Font.Style = []
				      ParentFont = False
				      TabOrder = 1
				      OnClick = btnRecvClick
				      NumGlyphs = 2
				    end
				    object btnStop: TBitBtn
				      Left = 133
				      Top = 4
				      Width = 60
				      Height = 22
				      Caption = #20572#27490'(&P)'
				      Enabled = False
				      Font.Charset = GB2312_CHARSET
				      Font.Color = clWindowText
				      Font.Height = -12
				      Font.Name = #23435#20307
				      Font.Style = []
				      ParentFont = False
				      TabOrder = 2
				      OnClick = btnStopClick
				      NumGlyphs = 2
				    end
				    object btnExit: TBitBtn
				      Left = 193
				      Top = 4
				      Width = 60
				      Height = 22
				      Caption = #36864#20986'(&E)'
				      Font.Charset = GB2312_CHARSET
				      Font.Color = clWindowText
				      Font.Height = -12
				      Font.Name = #23435#20307
				      Font.Style = []
				      ParentFont = False
				      TabOrder = 3
				      OnClick = btnExitClick
				      NumGlyphs = 2
				    end
				  end
				  object SaveDialog1: TSaveDialog
				    Left = 216
				    Top = 8
				  end
				end