Delphi中远程控制的实现(二)
2006-03-23 10:22
459 查看
二、被控方的程序(Server端):
ServerSocket1的Port设为:2058。程序界面如下:
这样,程序就编写成功。运行一下看看自己的劳动成果吧!先运行Server端的程序,然后再运行Client端的程序。界面如下:
以上程序在Delphi 5.0和 window 98下运行通过。
ServerSocket1的Port设为:2058。程序界面如下:
源程序如下: 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; Button1: TButton; Label1: TLabel; 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.
这样,程序就编写成功。运行一下看看自己的劳动成果吧!先运行Server端的程序,然后再运行Client端的程序。界面如下:
以上程序在Delphi 5.0和 window 98下运行通过。
相关文章推荐
- Delphi中远程控制的实现(一)
- delphi怎样实现远程控制(转)
- Delphi实现远程控制
- JAVA实现远程控制(JAVA in RemoteControl)
- android远程控制(三)----通过后台服务实现系统点击事件模拟
- Delphi利用TActionList实现权限控制
- Java实现屏幕抓图,控制远程桌面
- delphi下实现控制其它窗体中的控件
- 远程控制编写之屏幕传输 MFC实现 屏幕截图 发送bmp数据 显示bmp图像
- [原创] 用Delphi实现控制IE窗体的大小——IESizer程序原理分析 (2003-12)
- 10-开发板接入小五物联实现远程控制(Wi-Fi模块+单片机)
- diy物联网-7.实现远程控制17路继电器
- bobo教你如何通过putty实现远程登录控制linux平台
- 如何实现串口控制 我刚开始学delphi 希望得到帮助
- nodejs+MQTT协议实现远程主机控制
- 用Delphi实现远程屏幕抓取
- delphi下实现控制其它窗体中的控件代码模板(delphi 7安装程序)
- 基于visual c++之windows核心编程代码分析(29)ICMP实现远程控制
- delphi 实现虚拟打印, 远程集中打印
- 转贴: QUARTUS 实现远程控制的简单方法