unit1.pas

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

unit Unit1;

interface

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

type
  TMainForm = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    ClientSocket1: TClientSocket;
    Edit2: TEdit;
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    procedure Send_Message;//发送信息
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.Send_Message;
begin
    ClientSocket1.Socket.SendText(Edit1.Text);//发送信息
    Edit1.text:='';
end;

procedure TMainForm.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
    s:string;
begin
    s:=ClientSocket1.Socket.ReceiveText;//接收信息
    Memo1.Lines.Add('服务器端返回的信息为:'+s);
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
    if Button2.Caption='登录' then
    begin
        Button2.Caption:='断开';
        ClientSocket1.Address:=Edit2.Text;
        ClientSocket1.Active:= false;
        ClientSocket1.Active:= true;
        Button1.Enabled:=True;
        Edit1.Enabled:=True;
    end else
    begin
        Button2.Caption:='登录';
        ClientSocket1.Active:= false;
        Button1.Enabled:=False;
        Edit1.Enabled:=False;
    end;
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
    Send_Message;
end;

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

procedure TMainForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
        key:=#0;
        Send_Message;
    end;
end;

end.