Delphi中远程控制的实现

下载本文示例代码
　　实行远程控制，实际上就是一个服务器程序（以下简称被控程序）和一个客户程序（以下简称主控程序）：被控方即为服务器程序，它监听客户的请求，并作出相应的处理；主控方即为客户程序，它连接上服务器后，发出自己的请求，服务器便根据自已的请求进行不同的响应。而WinSock是一组API，用于在网络上传输数据和交换信息。通过WinSock编程有更大的灵活性，因为它不需要关心网络连接的细节，然而用WinSock编程却很复杂。但是，在Delphi中我们并不需要直接与WinSock的API打交道，因为TClientSocket元件和TServerSocket元件（在Internet页）封装了WinSock的大部分API，使得对WinSock的访问大大简化。下面这个简单的远程控制的例子就很清楚地说明了这个问题，它可以发送一个消息给对方，对方收到后发出信息确认。当然，在实际的编程中，我们可以根据需要，要求被控方可以根据主控方发来的信息，经过判断后作出相应的动作。如关机、传送文件…一、主控程序(Client端)：ClientSocket1的Port设为:2058。当然，可以改变，但要求主控程序和被控程序的Port值一致。界面如下： 源程序如下：unit main;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, ExtCtrls, ScktComp;typeTMainForm = class(TForm)Panel1: TPanel;Panel2: TPanel;Panel3: TPanel;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);privateprocedure Send_Message;//发送信息{ Private declarations }public{ Public declarations }end;varMainForm: TMainForm;implementation{$R *.DFM}procedure TMainForm.Send_Message;beginClientSocket1.Socket.SendText(Edit1.Text);//发送信息Edit1.text:='';end;procedure TMainForm.ClientSocket1Read(Sender: TObject;Socket: TCustomWinSocket);vars:string;begins:=ClientSocket1.Socket.ReceiveText;//接收信息Memo1.Lines.Add('服务器端返回的信息为:' s);end;procedure TMainForm.Button2Click(Sender: TObject);beginif Button2.Caption='登录' thenbeginButton2.Caption:='断开';ClientSocket1.Address:=Edit2.Text;ClientSocket1.Active:=False;ClientSocket1.Active:=True;Button1.Enabled:=True;Edit1.Enabled:=True;end elsebeginButton2.Caption:='登录';ClientSocket1.Active:=False;Button1.Enabled:=False;Edit1.Enabled:=False;end;end;procedure TMainForm.Button1Click(Sender: TObject);beginSend_Message;end;procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);beginif ClientSocket1.Active thenClientSocket1.Active:=False;end;procedure TMainForm.Edit1KeyPress(Sender: TObject; var Key: Char);beginif key=#13 thenbeginkey:=#0;Send_Message;end;end;end.共2页。 1 2 8 : 　　实行远程控制，实际上就是一个服务器程序（以下简称被控程序）和一个客户程序（以下简称主控程序）：被控方即为服务器程序，它监听客户的请求，并作出相应的处理；主控方即为客户程序，它连接上服务器后，发出自己的请求，服务器便根据自已的请求进行不同的响应。而WinSock是一组API，用于在网络上传输数据和交换信息。通过WinSock编程有更大的灵活性，因为它不需要关心网络连接的细节，然而用WinSock编程却很复杂。但是，在Delphi中我们并不需要直接与WinSock的API打交道，因为TClientSocket元件和TServerSocket元件（在Internet页）封装了WinSock的大部分API，使得对WinSock的访问大大简化。下面这个简单的远程控制的例子就很清楚地说明了这个问题，它可以发送一个消息给对方，对方收到后发出信息确认。当然，在实际的编程中，我们可以根据需要，要求被控方可以根据主控方发来的信息，经过判断后作出相应的动作。如关机、传送文件…一、主控程序(Client端)：ClientSocket1的Port设为:2058。当然，可以改变，但要求主控程序和被控程序的Port值一致。界面如下： 源程序如下：unit main;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, ExtCtrls, ScktComp;typeTMainForm = class(TForm)Panel1: TPanel;Panel2: TPanel;Panel3: TPanel;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);privateprocedure Send_Message;//发送信息{ Private declarations }public{ Public declarations }end;varMainForm: TMainForm;implementation{$R *.DFM}procedure TMainForm.Send_Message;beginClientSocket1.Socket.SendText(Edit1.Text);//发送信息Edit1.text:='';end;procedure TMainForm.ClientSocket1Read(Sender: TObject;Socket: TCustomWinSocket);vars:string;begins:=ClientSocket1.Socket.ReceiveText;//接收信息Memo1.Lines.Add('服务器端返回的信息为:' s);end;procedure TMainForm.Button2Click(Sender: TObject);beginif Button2.Caption='登录' thenbeginButton2.Caption:='断开';ClientSocket1.Address:=Edit2.Text;ClientSocket1.Active:=False;ClientSocket1.Active:=True;Button1.Enabled:=True;Edit1.Enabled:=True;end elsebeginButton2.Caption:='登录';ClientSocket1.Active:=False;Button1.Enabled:=False;Edit1.Enabled:=False;end;end;procedure TMainForm.Button1Click(Sender: TObject);beginSend_Message;end;procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);beginif ClientSocket1.Active thenClientSocket1.Active:=False;end;procedure TMainForm.Edit1KeyPress(Sender: TObject; var Key: Char);beginif key=#13 thenbeginkey:=#0;Send_Message;end;end;end.共2页。 1 2 8 : 下载本文示例代码


Delphi中远程控制的实现Delphi中远程控制的实现Delphi中远程控制的实现Delphi中远程控制的实现Delphi中远程控制的实现Delphi中远程控制的实现Delphi中远程控制的实现Delphi中远程控制的实现Delphi中远程控制的实现Delphi中远程控制的实现Delphi中远程控制的实现Delphi中远程控制的实现Delphi中远程控制的实现Delphi中远程控制的实现Delphi中远程控制的实现