- 浏览: 252956 次
- 性别:
- 来自: 深圳
最新评论
-
whizkid:
[img] private void enableNdefEx ...
android通过NFC读写数据 -
zhangminglife:
您好!不错,最近正在弄这个东西,能否把demo发给我一份谢谢了 ...
SSL双向认证java实现(转) -
water卡:
android如何调用显示和隐藏系统默认的输入法 -
water卡:
android如何调用显示和隐藏系统默认的输入法 -
sjp524617477:
good
生成android使用的BKS证书
1. 首先确保你的机器上存在mstscax.dll,如果没有这个文件,可以从http://download.microsoft.com/download/whistler/tools/1.0/wxp/en-us/msrdpcli.exe下载并安装远程桌面连接软件.或者使用WindowXP中自带的mstscax.dll,运行regsvr32 mstscax.dll进行注册,ccrun测试使用的mstscax.dll版本号是5.1.2600.0,在Windows2000 Server中可以编译。
2. 运行delphi 7-->Components-->Import Active Control,在列表中找到下面的Microsoft Terminal Services Active Client 1.0 Type Library (Version 1.0),点击install,你可以选择将其安装到现在的包中,也可以新建一个,选择Into new package-->点击Browser将其保存为D:Program FilesBorlandccrunmstscmstsc.bpk。在Description一栏可以填:Microsoft Terminal Service Control,这个名称将出现在安装完成后的Package列表中。点击OK以后,稍等片刻,系统会提示mstsc.bpl将被编译并且安装,是否继续,点击yes。这时如果一切正常的话,系统将提示有两个编译错误(嘿嘿,我指的是正常情况下),难道是BCB的BUG?提示找不到OlePrecedure的定义。我靠。记忆中有个OleProcedure,一个o,一个e,该不会真的是笔误吧。将两处OlePrecedure换成OleProcedure,再次编译,ok了,编译成功,点击Install安装。
3. 如果上一个步骤成功的话,在组件面板的ActiveX下将多出两个控件:MsTscAx和MsRdpClient,我们主要是利用MsTscAx控件。
4. MsTscAx控件的常用属性和方法:
MsTscAx1.DesktopHeight = 600;// 桌面高度
MsTscAx1.DesktopWidth = 800;// 桌面宽度
MsTscAx1.ConnectingText = 'Welcome! ccrun.';// 在连接前显示的字符串
MsTscAx1.Server = '127.0.0.1';// 连接的服务器地址
MsTscAx1.FullScreen = false; // 窗口/全屏模式
MsTscAx1.ColorDepth = 16;// 画面色深(通常都是256色)
MsTscAx1.UserName = 'administrator';// 登录用户名
MsTscAx1.DisconnectedText = '886,ccrun.';// 断开连接后显示的字符串
MsTscAx1.AdvancedSettings.BitmapPeristence = 1;// 将位图缓存到磁盘
MsTscAx1.AdvancedSettings.Compress = 1;// 启用数据压缩
MsTscAx1.SecuredSettings.set_StartProgram('C:\ccrun\123.exe');// 连接后运行的Shell程序,当关闭此Shell程序后自动断开连接
MsTscAx1.Connect();// 连接
MsTscAx1.Disconnect();// 断开连接
5. 新建一个Project,在Form上拖一个MsTscAx控件,根据上面介绍的属性和方法,相信你在BCB中建立自己的终端服务客户端没问题了。
代码示例:
[delphi] view plaincopy
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, MSTSCLib_TLB, StdCtrls;
type
TForm1 = class(TForm)
btn1: TButton;
msrdpclnt: TMsTscAx;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
proj: ImsRdpclientAdvancedSettings; // 定义密码用
p1: IMsRdpClientAdvancedSettingsDisp; // 自定义端口用
begin
msrdpclnt.Server := '127.0.0.1';
if msrdpclnt.AdvancedSettings.QueryInterface(IMsRdpClientAdvancedSettingsDisp, p1) = S_OK then
begin
p1.RDPPort := 3389;
end;
msrdpclnt.UserName := 'administrator';
if msrdpclnt.AdvancedSettings.QueryInterface(ImsRdpclientAdvancedSettings,proj) = S_OK then
begin
proj.Set_ClearTextPassword('123');
end;
msrdpclnt.Connect;
end;
end.
示例2:
[delphi] view plaincopy
unit uRDP;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, MSTSCLib_TLB, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
MsRdpClient: TMsRdpClient;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
MsRdpClient := TMsRdpClient.Create(Self);
with MsRdpClient do
begin
Name := 'MsRdpClient';
Parent := Self;
Left := 0;
Top := 0;
Width := 800;
Height := 600;
TabOrder := 0;
ControlData := {0003000008000200000000000B000000030000000000}; // Dies kennt er nicht
end;
Edit1.BringToFront;
Button1.BringToFront;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MsRdpClient.Server := Edit1.Text;
MsRdpClient.Domain := GetEnvironmentVariable('USERDNSDOMAIN');
MsRdpClient.UserName := '<username>';
MsRdpClient.AdvancedSettings2.ClearTextPassword := '<password>';
MsRdpClient.Connect;
end;
end.
6. 编译后的程序发布时必须在目标机器上存在mstscax.dll文件,并且用Regsvr32注册以后才能正常运行。
2. 运行delphi 7-->Components-->Import Active Control,在列表中找到下面的Microsoft Terminal Services Active Client 1.0 Type Library (Version 1.0),点击install,你可以选择将其安装到现在的包中,也可以新建一个,选择Into new package-->点击Browser将其保存为D:Program FilesBorlandccrunmstscmstsc.bpk。在Description一栏可以填:Microsoft Terminal Service Control,这个名称将出现在安装完成后的Package列表中。点击OK以后,稍等片刻,系统会提示mstsc.bpl将被编译并且安装,是否继续,点击yes。这时如果一切正常的话,系统将提示有两个编译错误(嘿嘿,我指的是正常情况下),难道是BCB的BUG?提示找不到OlePrecedure的定义。我靠。记忆中有个OleProcedure,一个o,一个e,该不会真的是笔误吧。将两处OlePrecedure换成OleProcedure,再次编译,ok了,编译成功,点击Install安装。
3. 如果上一个步骤成功的话,在组件面板的ActiveX下将多出两个控件:MsTscAx和MsRdpClient,我们主要是利用MsTscAx控件。
4. MsTscAx控件的常用属性和方法:
MsTscAx1.DesktopHeight = 600;// 桌面高度
MsTscAx1.DesktopWidth = 800;// 桌面宽度
MsTscAx1.ConnectingText = 'Welcome! ccrun.';// 在连接前显示的字符串
MsTscAx1.Server = '127.0.0.1';// 连接的服务器地址
MsTscAx1.FullScreen = false; // 窗口/全屏模式
MsTscAx1.ColorDepth = 16;// 画面色深(通常都是256色)
MsTscAx1.UserName = 'administrator';// 登录用户名
MsTscAx1.DisconnectedText = '886,ccrun.';// 断开连接后显示的字符串
MsTscAx1.AdvancedSettings.BitmapPeristence = 1;// 将位图缓存到磁盘
MsTscAx1.AdvancedSettings.Compress = 1;// 启用数据压缩
MsTscAx1.SecuredSettings.set_StartProgram('C:\ccrun\123.exe');// 连接后运行的Shell程序,当关闭此Shell程序后自动断开连接
MsTscAx1.Connect();// 连接
MsTscAx1.Disconnect();// 断开连接
5. 新建一个Project,在Form上拖一个MsTscAx控件,根据上面介绍的属性和方法,相信你在BCB中建立自己的终端服务客户端没问题了。
代码示例:
[delphi] view plaincopy
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, MSTSCLib_TLB, StdCtrls;
type
TForm1 = class(TForm)
btn1: TButton;
msrdpclnt: TMsTscAx;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
proj: ImsRdpclientAdvancedSettings; // 定义密码用
p1: IMsRdpClientAdvancedSettingsDisp; // 自定义端口用
begin
msrdpclnt.Server := '127.0.0.1';
if msrdpclnt.AdvancedSettings.QueryInterface(IMsRdpClientAdvancedSettingsDisp, p1) = S_OK then
begin
p1.RDPPort := 3389;
end;
msrdpclnt.UserName := 'administrator';
if msrdpclnt.AdvancedSettings.QueryInterface(ImsRdpclientAdvancedSettings,proj) = S_OK then
begin
proj.Set_ClearTextPassword('123');
end;
msrdpclnt.Connect;
end;
end.
示例2:
[delphi] view plaincopy
unit uRDP;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, MSTSCLib_TLB, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
MsRdpClient: TMsRdpClient;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
MsRdpClient := TMsRdpClient.Create(Self);
with MsRdpClient do
begin
Name := 'MsRdpClient';
Parent := Self;
Left := 0;
Top := 0;
Width := 800;
Height := 600;
TabOrder := 0;
ControlData := {0003000008000200000000000B000000030000000000}; // Dies kennt er nicht
end;
Edit1.BringToFront;
Button1.BringToFront;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MsRdpClient.Server := Edit1.Text;
MsRdpClient.Domain := GetEnvironmentVariable('USERDNSDOMAIN');
MsRdpClient.UserName := '<username>';
MsRdpClient.AdvancedSettings2.ClearTextPassword := '<password>';
MsRdpClient.Connect;
end;
end.
6. 编译后的程序发布时必须在目标机器上存在mstscax.dll文件,并且用Regsvr32注册以后才能正常运行。
发表评论
-
PBOC规范研究之六、变长记录文件
2014-08-14 20:11 908PBOC规范研究之六、变长记录文件 此博文包含图片 (20 ... -
Windows桌面共享中一些常见的抓屏技术
2014-06-06 15:01 10351. BitBlt 我想做Windows开 ... -
error C2440 “static_cast” 无法从“void (__thiscall )(void)”转换为“LRESULT
2013-11-18 13:51 1528error C2440 “static_cast” 无法从 ... -
WOSA/XFS结构、背景等介绍
2013-11-14 13:28 1193前言: 写给 ... -
查看oracle用户数据库连接数
2013-10-30 12:31 645查看oracle用户数据库连接数 1、查询oracle的连接 ... -
几种穿透防火墙技术
2013-07-12 18:28 958本人对几种穿透防火墙技术 以下是本人对几种穿透技术学习笔记和一 ... -
C# Socket编程笔记
2013-06-16 08:58 0看到这个题目,是不是 ... -
金融行业密钥详解
2013-05-15 16:48 886金融行业因为对数据比较敏感,所以对数据的加密也相应的比较重视。 ... -
xml通配符
2012-11-09 09:33 2397解析xml字符串 < -> < &g ... -
cobol中常用的数据类型
2012-08-22 15:13 1243COBOL上的基本类型大致分为:常量、变量、直接数和结构体。下 ... -
(转)学习maven的使用,看到一篇很实用的入门教程(菜鸟级入门)
2012-07-12 15:19 829一、前言 早 ... -
NFC相关研究
2012-05-15 14:07 1131NFC概述 NFC是短距离的无线通信,通常距 ... -
Android 面试题
2012-05-15 14:05 965Android 面试题 经典 1、 Android dvm的进 ... -
使用Java实现CA
2012-04-11 14:31 902一. 准备 1. JDK 1.6 2. 安 ... -
Eclipse快捷键汇总
2012-03-20 10:39 786自动补齐类名 Alt+. 作用 ... -
SSL的工作流程简介(转)
2012-03-01 16:47 9171:客户端的浏览器向服务器传送客户端 SSL 协议的版本号,加 ... -
Http之Get/Post请求区别
2011-09-06 15:24 8661.HTTP请求格式: <request line> ... -
keystore提取私钥和证书
2011-07-19 10:46 2689keytool -genkey -alias test -ke ... -
Keytool命令行参数说明
2011-07-11 15:47 1130Keytool命令行参数说明 2010-03-19 17:05 ... -
如何用jdk的keytool制作ssl证书
2011-07-11 10:19 1689C=CN,OU=IT,O=YIXIUWANG,ST=BEIJI ...
相关推荐
Delphi远程桌面demo,及使用说明,及相关组件,控年
Delphi编写实现的远程控制程序,若客户端与服务器端端口一致的话,很容易连接上远程桌面,通过远程桌面可控制远程计算机隐藏桌面、关闭系统、重启系统、注销系统等功能,窗体的实现为各种控制操作提供便利条件。...
Java实现远程桌面连接的properjavardp源码工程,可直接运行。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。...
具体介绍请跳转博客http://blog.csdn.net/wochendaixin/article/details/78540828
博客《C# 实现RDP远程桌面连接》的配套项目资源,含有完整项目代码。说明可访问https://blog.csdn.net/weixin_43552645/article/details/105231489
通过注册微软的mstsc组件,调用系统的远程,实现远程桌面,可以通过写代码保存N多服务器远程,自由控制 RDPClient.Server := '192.168.1.2'; //RDPClient.AdvancedSettings2.RDPPort := 3389; RDPClient....
nvidia发布的 让windows的rdp远程桌面环境也可以使用 GrForce GPU来做终端桌面的OpenGL 加速补丁
1)支持Android 2.2(含)以上系统 2)支持RDP协议 3)支持Windows2008 RemoteApp,实现应用交付功能 4)支持远程桌面自定义分辨率,并能自适应手机屏幕全屏显示 5)支持放大、缩小等基本手势操作 6)支持屏幕旋转 7...
基于properJavaRDP实现调用远程桌面,有两种方式,一种是普通java程序,一种是java web方式,包含详细的使用说明,用到的jar包及源码,还有示例工程。
Linux下安装FreeRDP连接Windows远程桌面的好软件软件.pdf
准备生成好一个RDP文件,快速远程协助的配置文件,供web端下载执行
可以直接连接远程桌面,简单连接而已。不过还没完善,映射磁盘的没做。
RDP远程桌面,用于远程桌面快速开发
C#版本的远程桌面源代码,可以替换Widnows自带的远程桌面连接,可记录保存等
远程桌面桌面版和安卓版的对比,远程桌面现在用的比较多的关键技术
项目描述流程地址:http://blog.csdn.net/wochendaixin/article/details/78465095
检测出所有局域网PC,然后通过配置,生成.rdp文件,直接通过算法将密码写入这个文件,运行这个文件就无需输入密码,vs2008下开发,vs2008及以上版本可正常编译
调用window COM组件AxMSTSCLib, 使用RDP进行远程控制桌面,可以嵌入到自己的winfrom程序里面,但是必须设置密码,学习学习
远程桌面连接保存为rdp文件,图文并茂,免费下载