RDP procedure TForm1.Button1Click(Sender: TObject); var pwdset:IMsRdpClientAdvancedSettings; begin Mstsc1.Server:=edtIP.Text; Mstsc1.UserName:=edtName.Text;
if Mstsc1.AdvancedSettings.QueryInterface(IID_IMsRdpClientAdvancedSettings,pwdset) = s_ok then begin pwdset.ClearTextPassword:=edtPwd.Text; pwdset.RDPPort:=3389; end; Mstsc1.Connect; end;
我采用此机制实现了局域网的桌面共享互动,远程一样支持。
只有这个现成的可用
网址:http://www.nnv1.com/Com_Screen.htm
系统是基于p2p架构的,单台服务器支持100万在线。
不过你这个数量级别话,费用有点高。不过用户有100万,同时在线可能就几万人。费用要5、6万一年吧。
procedure TForm1.Button1Click(Sender: TObject);
var pwdset:IMsRdpClientAdvancedSettings;
begin
Mstsc1.Server:=edtIP.Text;
Mstsc1.UserName:=edtName.Text;
if Mstsc1.AdvancedSettings.QueryInterface(IID_IMsRdpClientAdvancedSettings,pwdset) = s_ok then
begin
pwdset.ClearTextPassword:=edtPwd.Text;
pwdset.RDPPort:=3389;
end;
Mstsc1.Connect;
end;
1、全套SDK包括屏幕取图模块,屏幕显示模块,编解码模块,P2P传输模块、控制检测和还原模块;
2、全面支持WinXP,Win2000,Win2003,Win2008,Win7等32位/64位Windows系统;
3、支持开机自启动,支持登录界面操作;(配合远程开机模块可实现远程启动)
4、对系统配置要求低,CPU占用率低;
5、采用显卡驱动技术获得图像数据,快速屏幕传输,画质可调;
6、多种编码模式传输,只传输变化部分图像;
7、带宽占用少,1366*768画面只需平均30K带宽;
8、操作流畅,用户体验好;
9、适用于本地和远程;
10、调用方便,容易嵌入到您的软件中,加快远控类软件开发进度
11、提供DLL调用Demo程序