知识大全如何用Delphi6实现对计算机的远程控制

Posted 2022-07-14 知

篇首语：知是行的主意,行是知的功夫。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全如何用Delphi6实现对计算机的远程控制相关的知识，希望对你有一定的参考价值。

如何用Delphi6实现对计算机的远程控制 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　WinSock是一组API 用于在网络上传输数据和交换信息虽然现在有很多工具如FTP程序可以在网络上传输数据和文件但是通过WinSock编程有更大的灵活性它不需要关心网络连接的细节然而用WinSock编程却很复杂但是在Delphi中我们并不需要直接与WinSock的API打交道因为TClientSocket元件和TServerSocket元件（Internet页）封装了WinSock的大部分API 使得对WinSock的访问大大简化下面这个远程控制的例子就很清楚地说明了这个问题它可以发送一个消息给对方并能够使对方的电脑关闭重新启动或重新登录

　　一实现原理 　　实行远程控制实际上就是一个服务器程序（以下简称被控程序）和一个客户程序（以下简称主控程序）被控方即为服务器程序它监听客户的请求并作出处理主控方即为客户程序它连接上服务器后发出自己的请求服务器便根据自已的请求进行不同的响应

　　二编写主控程序 　　新建一个项目Client dpr 并把一个TClientSocket元件放到Form上它的属性设置如下 Port设为 (端口号可任意设置只要求双方统一) 其它属性按默认值在窗体上添加两个TEdit Edit 用来输入发送的字符 Edit 用来输入IP地址添加两个TButton Button 点击后用来连接被控机 Button 点击后用来发送字符然后声明一个私有变量ConnectFlag 表示双方是否连接好 privateConnectFlag:Boolean;

　　 ClientSocket 的OnConnect事件代码如下

procedure TForm ClientSocket Connect(Sender: TObject;Socket: TCustomWinSocket);begin ConnectFlag:=True; //表示连接成功end;

　　 ClientSocket 的OnError事件代码如下

procedure TForm ClientSocket Error(Sender: TObject;Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;var ErrorCode: Integer);beginApplication MessageBox(PChar( 不能连接到IP地址: + Edit Text+ +# + 可能是监听程序没有运行或网络故障！ ) 连接错误 MB_OK+MB_ICONSTOP);ErrorCode := ; end;

　　 Button 的OnClick事件代码如下

procedure TForm Button Click(Sender: TObject);beginwith ClientSocket do beginif Active then beginActive := False;//在连接之前首先关闭ConnectFlag:=False; //置连接标志为假end;if Length(Edit Text) > then beginHost := Edit Text; //指定IP地址或主机名Active := True; end; end;end;

　　 Button 的OnClick事件代码如下

procedure TForm Button Click(Sender: TObject);beginif ConnectFlag thenClientSocket Socket SendText(Edit Text)//如果连接成功则发送字符串elseApplication MessageBox(PChar( 没有连接到地址 : + Edit Text+ +# + 检查IP地址是否存在或是否已经连接！ ) 提示信息 MB_OK+MB_ICONSTOP);end;

　　三编写被控程序 　　新建一个项目Server dpr 并把一个TServerSocket元件放到Form上

　　它的属性设置如下 Active设为True Port设为其它属性按默认值

　　 ServerSocket 的OnClientRead事件代码如下

procedure TForm ServerSocket ClientRead(Sender: TObject;Socket: TCustomWinSocket);varStr:PChar;Code V:Integer;beginStr:=PChar(Socket ReceiveText); //接收字符串Val(Str V Code); //处理接收的字符串首先转换字符串为整数 if Code< > then Application MessageBox(Str 提示信息 MB_OK+MB_ICONINFORMATION) //如果转换后的数据不是一个整型数就通过消息框来显示字符串elseif (V= )or(V= )or(V= ) then ExitWindowsEx(V ) //调用Windows的API函数(V= 表示重新登录 V= 表示关机 V= 表示重启动)elseApplication MessageBox(Str 提示信息 MB_OK+MB_ICONINFORMATION); //转换后数据不为时在消息框内显示字符串end;

　　修改项目文件不让窗口显示并且防止它运行两次修改begin和end之间的代码如下

beginApplication Initialize;if FindWindow( TForm Form )= then begin //当没有找到Form 时执行下面代码Application ShowMainForm:=False; //不显示主窗口Application CreateForm(TForm Form );Application Run;end;end

　　四注意事项 　　网络要装配正确并安装TCP/IP协议且要正常运行

　　首先要运行被控程序

　　必须知道对方的IP地址或主机名

cha138/Article/program/Delphi/201311/25083

知识大全 如何用Delphi6实现对计算机的远程控制

知识大全如何用Delphi6实现对计算机的远程控制