Delphi中远程控制的实现_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Delphi中远程控制的实现

作者：闵涛文章来源：闵涛的学习笔记点击数：738 更新时间：2009/4/23 18:24:48

　　实行远程控制，实际上就是一个服务器程序（以下简称被控程序）和一个客户程序（以下简称主控程序）：被控方即为服务器程序，它监听客户的请求，并作出相应的处理；主控方即为客户程序，它连接上服务器后，发出自己的请求，服务器便根据自已的请求进行不同的响应。而WinSock是一组API，用于在网络上传输数据和交换信息。通过WinSock编程有更大的灵活性，因为它不需要关心网络连接的细节，然而用WinSock编程却很复杂。但是，在Delphi中我们并不需要直接与WinSock的API打交道，因为TClientSocket元件和TServerSocket元件（在Internet页）封装了WinSock的大部分API，使得对WinSock的访问大大简化。下面这个简单的远程控制的例子就很清楚地说明了这个问题，它可以发送一个消息给对方，对方收到后发出信息确认。当然，在实际的编程中，我们可以根据需要，要求被控方可以根据主控方发来的信息，经过判断后作出相应的动作。如关机、传送文件…
一、主控程序(Client端)：

ClientSocket1的Port设为:2058。当然，可以改变，但要求主控程序和被控程序的Port值一致。界面如下：

源程序如下：

unit main;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, ScktComp;

type

TMainForm = 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);

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.

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：让pc speaker美妙动听

下一篇教程：自编扫雷程序详解（Delphi版）

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……