unit1.pas

在Delphi中如何实现具有意义的远程控制的实现

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;

type
  TMainForm = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Button1: TButton;
    ServerSocket1: TServerSocket;
    procedure ServerSocket1Listen(Sender: TObject; Socket: TCustomWinSocket);
    procedure ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ServerSocket1ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure UpdateState;//更新当前的连接信息
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.UpdateState;
begin
    Label1.Caption:='在线人数为:'+IntToStr(ServerSocket1.Socket.ActiveConnections);
end;

procedure TMainForm.ServerSocket1Listen(Sender: TObject; Socket: TCustomWinSocket);
begin
    UpdateState;
end;

procedure TMainForm.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
    UpdateState;
end;

procedure TMainForm.ServerSocket1ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
    UpdateState;
end;

procedure TMainForm.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
    s:string;
begin
    s:=Socket.ReceiveText;
    Memo1.Lines.Add('从客户端接收的信息为：'+s);
    Socket.SendText('接收信息成功！');
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
    if Button1.Caption='启动' then
    begin
        Button1.Caption:='停止';
        ServerSocket1.Active:= false;
        ServerSocket1.Active:= true;
    end else
    begin
        Button1.Caption:='启动';
        ServerSocket1.Active:= false;
    end;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    if ServerSocket1.Active then
        ServerSocket1.Active:= false;
end;

end.