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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
ServerForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

ServerForm.pas：源码内容
  1. unit ServerForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ScktComp, StdCtrls;
  9. const
  10.   wm_RefreshClients = wm_User;
  12. type
  13.   TForm1 = class(TForm)
  14.     ServerSocket1: TServerSocket;
  15.     lbMsg: TListBox;
  16.     lbClients: TListBox;
  17.     Label1: TLabel;
  18.     Label2: TLabel;
  19.     lbLog: TListBox;
  20.     procedure ServerSocket1ClientConnect(Sender: TObject;
  21.       Socket: TCustomWinSocket);
  22.     procedure ServerSocket1ClientDisconnect(Sender: TObject;
  23.       Socket: TCustomWinSocket);
  24.     procedure ServerSocket1ClientRead(Sender: TObject;
  25.       Socket: TCustomWinSocket);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     procedure RefreshClients (var Msg: TMessage);
  30.       message wm_RefreshClients;
  31.   end;
  33. var
  34.   Form1: TForm1;
  36. implementation
  38. {$R *.DFM}
  40. procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  41.   Socket: TCustomWinSocket);
  42. begin
  43.   lbLog.Items.Add ('Connected: ' +
  44.     Socket.RemoteHost + ' (' +
  45.     Socket.RemoteAddress + ')' );
  46.   PostMessage (Handle, wm_RefreshClients, 0, 0);
  47. end;
  49. procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  50.   Socket: TCustomWinSocket);
  51. begin
  52.   lbLog.Items.Add ('Disconnected: ' +
  53.     Socket.RemoteHost + ' (' +
  54.     Socket.RemoteAddress + ')' );
  55.   PostMessage (Handle, wm_RefreshClients, 0, 0);
  56. end;
  58. procedure TForm1.RefreshClients;
  59. var
  60.   I: Integer;
  61. begin
  62.   lbClients.Clear;
  63.   for I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
  64.     with ServerSocket1.Socket.Connections [I] do
  65.       lbClients.Items.Add (
  66.         RemoteAddress + ' (' + RemoteHost + ')');
  67. end;
  69. procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  70.   Socket: TCustomWinSocket);
  71. begin
  72.   // read from the client
  73.   lbMsg.Items.Add (Socket.RemoteHost + ': ' +
  74.     Socket.ReceiveText);
  75. end;
  77. end.