P2P编程

开发平台：

Delphi

SvrMain.dfm：源码内容

							object FrmMain: TFrmMain
  Left = 258
  Top = 199
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'P2pServer'
  ClientHeight = 270
  ClientWidth = 450
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 450
    Height = 25
    ButtonHeight = 20
    ButtonWidth = 31
    Flat = True
    ShowCaptions = True
    TabOrder = 0
    object CmdStart: TToolButton
      Left = 0
      Top = 0
      Caption = #21551#21160
      ImageIndex = 0
      OnClick = CmdStartClick
    end
    object CmdStop: TToolButton
      Left = 31
      Top = 0
      Caption = #20572#27490
      ImageIndex = 1
      OnClick = CmdStopClick
    end
    object CmdQuit: TToolButton
      Left = 62
      Top = 0
      Caption = #36864#20986
      ImageIndex = 2
      OnClick = CmdQuitClick
    end
  end
  object TxtLog: TMemo
    Left = 0
    Top = 25
    Width = 450
    Height = 245
    Align = alClient
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 1
  end
end

						