开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > P2P编程 > 查看源码
CltMain.pas
资源名称：P2P.rar　[点击查看]
上传用户：zhanghw123
上传日期：2021-11-15
资源大小：312k
文件大小：3k
源码类别：

P2P编程

开发平台：

Delphi

CltMain.pas：源码内容
  1. Unit CltMain;
  3. Interface
  5. Uses
  6.   Windows, SysUtils, Messages, Classes, Controls, Forms,
  8.   Buttons, ComCtrls, ExtCtrls, StdCtrls, Graphics, Dialogs, ToolWin,
  10.   P2pClient, P2pCommon, P2pConst, ImgList;
  12. Type
  13.   TFrmMain = Class(TForm)
  14.     UserList: TListView;
  15.     spl1: TSplitter;
  16.     pnl1: TPanel;
  17.     pnl2: TPanel;
  18.     spl2: TSplitter;
  19.     pnl3: TPanel;
  20.     TxtSendMsg: TRichEdit;
  21.     CmdSend: TSpeedButton;
  22.     Timer: TTimer;
  23.     FD: TFontDialog;
  24.     ImageList: TImageList;
  25.     Pnl4: TPanel;
  26.     ToolBar: TToolBar;
  27.     CmdFont: TToolButton;
  28.     Pnl5: TPanel;
  29.     TxtLog: TRichEdit;
  30.     Splitter1: TSplitter;
  31.     TxtMsg: TRichEdit;
  32.     Procedure FormCreate(Sender: TObject);
  33.     Procedure FormDestroy(Sender: TObject);
  34.     Procedure UserListClick(Sender: TObject);
  35.     Procedure TimerTimer(Sender: TObject);
  36.     Procedure FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
  37.     Procedure CmdSendClick(Sender: TObject);
  38.     Procedure TxtSendMsgKeyDown(Sender: TObject; Var Key: Word;
  39.       Shift: TShiftState);
  40.     Procedure CmdFontClick(Sender: TObject);
  41.   Private
  42.     P2p: TP2pClient;
  43.     CurSelUser: TP2pUser;
  44.   Public
  45.     { Public declarations }
  46.   End;
  48. Var
  49.   FrmMain: TFrmMain;
  51. Implementation
  53. {$R *.dfm}
  55. Procedure TFrmMain.FormCreate(Sender: TObject);
  56. Begin
  57.   P2p := TP2pClient.Create(TxtLog);
  58.   P2p.Socket.RemoteHost := '127.0.0.1';
  59.   P2p.Socket.RemotePort := 9890;
  60.   P2p.Socket.LocalPort := 9089;
  61.   P2p.LoginServer('测试用户');
  62.   CurSelUser := Nil;
  63. End;
  65. Procedure TFrmMain.FormDestroy(Sender: TObject);
  66. Begin
  67.   P2p.Free;
  68. End;
  70. Procedure TFrmMain.UserListClick(Sender: TObject);
  71. Begin
  72.   If UserList.Selected = Nil Then
  73.     CurSelUser := Nil Else
  74.     CurSelUser := TP2pUser(UserList.Selected.Data);
  75. End;
  77. Procedure TFrmMain.TimerTimer(Sender: TObject);
  78. Begin
  79.   P2p.Living;
  80. End;
  82. Procedure TFrmMain.FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
  83. Begin
  84.   P2p.LoginOutServer;
  85. End;
  87. Procedure TFrmMain.CmdSendClick(Sender: TObject);
  88. Begin
  89.   If (TxtSendMsg.Text <> '') And (CurSelUser <> Nil) Then
  90.   Begin
  91.     If Length(TxtSendMsg.Text) > 1024 Then
  92.     Begin
  93.       MessageBox(Handle, '输入的内容太长了。', '错误', MB_ICONHAND);
  94.       TxtSendMsg.SetFocus;
  95.       Exit;
  96.     End;
  97.     P2p.SendChat(CurSelUser, TxtSendMsg);
  98.     TxtMsg.SelAttributes.Color := clGreen;
  99.     TxtMsg.Lines.Add(Format('[%s]你对[%s]说:', [FormatDateTime('YYYY-MM-DD HH:NN:SS', Now), CurSelUser.Address]));
  100.     TxtMsg.SelAttributes := TxtSendMsg.SelAttributes;
  101.     TxtMsg.Lines.Add(Format('%s' + #13#10, [TxtSendMsg.Text]));
  102.     SendMessage(TxtMsg.Handle, EM_SCROLLCARET, 0, 0);
  103.     TxtSendMsg.Clear;
  104.   End Else MessageBox(Handle, '请选择一个聊天用户。', '错误', MB_ICONHAND);
  105. End;
  107. Procedure TFrmMain.TxtSendMsgKeyDown(Sender: TObject; Var Key: Word;
  108.   Shift: TShiftState);
  109. Begin
  110.   If (ssCtrl In Shift) And (Key = VK_RETURN) Then
  111.   Begin
  112.     CmdSend.Click;
  113.     Key := 0;
  114.   End;
  115. End;
  117. Procedure TFrmMain.CmdFontClick(Sender: TObject);
  118. Begin
  119.   If Not FD.Execute Then Exit;
  120.   SetRichEditFont(TxtSendMsg, FD.Font);
  121.   TxtSendMsg.SetFocus;
  122. End;
  124. End.