| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2017/3/3 22:18:55 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 以前练习界面开发时的一个副产品，因为一直没有时间更新和维护，为了避免浪费，就放出来给感兴趣的朋友使用。 演示录像地址为：AQ云办公系统演示录像 软件下载页面为：http://www.138soft.com/?p=471 AQ虚拟化办公系统是一个基于云端的办公系统，本系统具有以下功能和特点： 1、 办公软件运行于云端，数据不在本机落地，有效的保护了企业资料外泄。 用户在服务器安装需要用到的办公软件后，根据需要将软件分配给对应的用户，用户端登录平台后，在列表中点击该软件图标，则软件在服务器运行，并将软件界面传输到客户端显示，客户端对该界面的操作将发送到服务器，从而实现软件虚拟化。 由于软件运行于服务器，该软件（例如office word）最终生成的一切数据将保存在服务器，避免了数据被拷贝的可能。 2、 办公软件安装在云端，有效的降低了企业的运营成本。 一些企业本身拥有大量旧电脑，因为性能跟不上新软件，面临淘汰的局面。使用本系统后，因为软件运行在服务器，客户端电脑性能要求将大大降低（只需要能够显示图片即可），这些旧电脑将起死回生，为企业节约了大量的硬件成本。现在总理鼓励大学生创业，对于初创业者，成本也是第一个要面临的问题。例如一个图像工作室，处理图像的电脑对显卡性能要求非常高，一台一般的图形处理电脑就需要几万块。使用本系统后，只需要购买性能好的服务器，然后客户端可以使用淘宝上卖的一体机（例如占美一体机，售价是500元），甚至购买一些二手电脑，成本降低了，但效果不改变。 使用本系统还可以有效的降低软件成本，有利于软件正版化。例如一套正版的Office软件售价大约是人民币5千元，一个公司如果有30个员工，每个员工电脑安装一套，就是人民币15万。使用本系统后，只需要购买一台安装在服务器上，成本马上减少14.5万。又例如，某连锁药店用的收银系统每个点是人民币5万，茂名市下属各个乡镇有30多家分店，使用本系统后，马上节约140多万人民币。（注意：本系统并不对软件进行破解，因为正版软件一般是通过检测机器硬件特征码或加密狗来判断是否合法，本系统类似于：购买一个点，安装在一台电脑，然后在电脑前面放一个摄像头，其他人通过远程视频和电话来使用该软件） 3、 办公软件统一部署在云端，有效的降低了企业的管理成本。 因为所有软件统一安装在服务器，当需要进行软件升级或更新时，只需要更新服务器一台电脑即可，而无须各个员工电脑分别更新，节约了大量工作时间。 另外，服务器可以安装在局域网内，配置双网卡，一个网卡连接内网路由，一个网卡连接外网路由。员工电脑全部仅连接内网路由，然后服务器根据需要分配浏览器等需要连接外网的程序给用户，还可以设置时间（例如：中午12：00～14：00才运行运行IE浏览器），方便了企业网管的管理。 4、 办公软件运行于云端，方便以后的无设备办公。 以后的企业，或许将不再提供电脑给员工，而是由员工自带IPAD等设备上班，因为系统仅传输图片，所以在IOS和Andriod等操作系统上也可以使用Windows平台的软件（毕竟目前的办公软件还是基于Windows系统的）。 5、 本系统可以运行于局域网，也可以运行于互联网，方便远程办公。 6、 企业信息安全，岂可假手他人？ 本系统内置了IM功能，既方便了企业的团队化工作。同时也有效的减少了员工上班时间跟外界闲聊的可能性。最重要的是，因为使用的是自己的服务器，即使聊天内容涉及到本企业的商业秘密，也不会有第三方知道。（现在市面上的公共IM，所有聊天记录都会经过其服务器进行敏感词汇检查；为了让你可以在手机端查看原来在电脑端的聊天，所有的聊天记录都会保存在其服务器。） 对于有需要的用户，我们还可以集成企业现有的OA等系统，实现单点登录。 系统技术指标： 1、 安全性。本系统叫AQ，意为“安全”的拼音缩写。本系统所有的通讯数据均使用网银的SSL级别加密―――例如IM功能，市面上的IM一般只是文字聊天进行了简单加密，图片传输、文件传输等都是明文的，而本系统是所有数据都加密。服务器云端用户则使用了操作系统本身的NT级别的用户加密。这是微软操作系统级别的加密，经过多年的验证，具体请参考微软的安全白皮书。 2、 友好性。操作上完全傻瓜化，无须增加额外的培训和学习成本。 3、 其它技术参数： （1） 通讯协议：TCP＋UDPP2P。云办公功能所需带宽：28.8KB。 （2） 语音功能：GIPS引擎。 （3） 视频传输：X264＋D3D加速。 2015年6月8日 ---------------------------------------------- 是你上错了车,还是我下错了站? |
|||||
| 作者： |
|
2017/3/3 23:05:53 | ||||
| 1楼： | 支持。。。 ---------------------------------------------- 家具安装 万师傅家具安装平台 安装维修师傅黄页 一键式测量仪 |
|||||
| 作者： |
|
2017/3/3 23:17:42 | ||||
| 2楼： | 威武，下来试试看 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/4 1:23:04 | ||||
| 3楼： | 看了视频，太强大了。 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/4 9:32:31 | ||||
| 4楼： | 东西不错，分享下源码就好了。 ---------------------------------------------- delphi|vue|golang hnysoft|hnyerp+mes+srm |
|||||
| 作者： |
|
2017/3/4 11:05:50 | ||||
| 5楼： | 不错，屏幕录像 用的什么软件？ ---------------------------------------------- 我打的是酱油，而不是别的什么油。 我灌的是口水，而不是别的什么水。 我聊的折腾不是那个不折腾的折腾。 我说的阿娇不是那个邓玉娇的阿娇。 3个代表,6个为什么,9个肠胃炎。 D性强的领导干部都不喜欢热比娅。 我特别要讲的是,屁民网黄色论坛是我经常上网必选的 网站之一 |
|||||
| 作者： |
|
2017/3/4 12:49:23 | ||||
| 6楼： | 吊炸天的练习软件啊,棒棒棒! ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/4 14:42:44 | ||||
| 7楼： | 哇，竟然有这种东西。。。。。。。牛13啊 ---------------------------------------------- 学Delphi不久，会问些初级问题，希望有人指引，不胜感激... |
|||||
| 作者： |
|
2017/3/4 14:52:41 | ||||
| 7楼： | 厉害，厉害，支持 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/4 19:48:05 | ||||
| 8楼： | 用微软的rdp协议来做，是否更通用啊？ ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/4 21:02:48 | ||||
| 9楼： | 没有源码 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/4 23:33:34 | ||||
| 10楼： | 膜拜大神 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/5 0:00:35 | ||||
| 11楼： | 过去听过涛哥大名 好像东方快车 里面的核心代码 是你给反编译出来的吧，人物啊 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/5 1:53:03 | ||||
| 12楼： | 很神奇啊，对于特别贵的软件，这样是否支持多人共用了 ---------------------------------------------- Great! |
|||||
| 作者： |
|
2017/3/5 10:38:35 | ||||
| 13楼： | 很不错，为什么没有商业化呢。可以解决好多license问题。 ---------------------------------------------- Delphi爱好者。 |
|||||
| 作者： |
|
2017/3/5 12:21:20 | ||||
| 14楼： | 如果多个用户同时使用，会不会对服务器的性能要求很高？ ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/5 12:30:59 | ||||
| 14楼： | 不错 ---------------------------------------------- -相互学习,共同进步! 努力每一天，不能望山跑死马 发上等愿，结中等缘，享下等福；择高处立，寻平处住，向宽处行 |
|||||
| 作者： |
|
2017/3/5 14:32:43 | ||||
| 15楼： | 没源码 ---------------------------------------------- -相互学习,共同进步! 努力每一天，不能望山跑死马 发上等愿，结中等缘，享下等福；择高处立，寻平处住，向宽处行 |
|||||
| 作者： |
|
2017/3/6 10:29:32 | ||||
| 16楼： | 高大上 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/6 10:52:53 | ||||
| 17楼： | 牛叉 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/6 14:09:23 | ||||
| 18楼： | 老陈威武 ---------------------------------------------- 武稀松http://www.raysoftware.cn |
|||||
| 作者： |
|
2017/3/6 17:45:38 | ||||
| 19楼： | 老陈威武... ---------------------------------------------- Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！我去WC吐一会儿去！ |
|||||
| 作者： |
|
2017/3/7 9:17:18 | ||||
| 20楼： | 09:06:51:正在连接主服务器。。。。。。 09:06:51:连接主服务器成功，正在发送请求。。。。。。 09:06:51:请求发送成功，正在等待反馈。。。。。。 09:06:51:成功获取该应用程序服务器信息！ 09:06:51:正在使用UDP测试该应用程序服务器是否可以直连。。。。。。 09:06:51:正在使用UDP测试该应用程序服务器是否可以直连。。。。。。 09:06:54:正在使用UDP测试该应用程序服务器是否可以直连。。。。。。 09:06:57:该应用程序服务器不在公网而且跟本机没有处于同一内网，尝试P2P方式连接！ 09:06:58:P2P连接成功！ 09:06:58:应用程序服务器正在初始化，请不要关闭本窗口。。。。。。 09:07:31:数据接收失败！ 为何出现此情况 ---------------------------------------------- http://www.inteLw.cn:8077 |
|||||
| 作者： |
|
2017/3/7 10:07:02 | ||||
| 21楼： | 是源码版的？ ---------------------------------------------- -上帝给我们的脑子编程，我们给电脑编程，可上帝却始终站在电脑一边... |
|||||
| 作者： |
|
2017/3/7 21:05:12 | ||||
| 22楼： | 老陈是老鸟了,厉害! ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/10 17:41:40 | ||||
| 23楼： | 下载地址打不开了 ， 然后我看了视频 看到 WPS 本地没安装？ 这是什么鬼 云软件还要本地安装？ 还有操作动作的传输 那自然是远程桌面的原理了 说实话远程传输速度 和 本地再垃圾的显卡的显示速度 哪个快？ 换句话说 本地看不了1080P的电影 远程就可以看了？ 我还没有下载您的软件 等我可以下载您的软件，用了之后 如果我说的不对 那只能对不起 当我说的是放屁 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/11 14:15:13 | ||||
| 24楼： | 回复20楼：感谢测试。这个是因为加入了域的电脑权限跟非域的不同，已经修改了，请重新下载。 这个函数： type PTOKEN_USER = ^TOKEN_USER; _TOKEN_USER = record User: TSidAndAttributes; end; TOKEN_USER = _TOKEN_USER; function GetUserAndDomainFromPID(ProcessId: DWORD; var Domain, User: WideString): Boolean; var hToken: THandle; cbBuf: Cardinal; ptiUser: PTOKEN_USER; snu: SID_NAME_USE; ProcessHandle: THandle; UserSize, DomainSize: DWORD; bSuccess: Boolean; begin Result := False; ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessId); if ProcessHandle <> 0 then begin // EnableProcessPrivilege(ProcessHandle, 'SeSecurityPrivilege', True); if OpenProcessToken(ProcessHandle, TOKEN_QUERY, hToken) then begin bSuccess := GetTokenInformation(hToken, Windows.TokenUser, nil, 0, cbBuf); ptiUser := nil; while (not bSuccess) and (GetLastError = ERROR_INSUFFICIENT_BUFFER) do begin ReallocMem(ptiUser, cbBuf); bSuccess := GetTokenInformation(hToken, Windows.TokenUser, ptiUser, cbBuf, cbBuf); end; CloseHandle(hToken); if not bSuccess then begin Exit; end; UserSize := 0; DomainSize := 0; LookupAccountSidW(nil, ptiUser.User.Sid, nil, UserSize, nil, DomainSize, snu); if (UserSize <> 0) and (DomainSize <> 0) then begin SetLength(User, UserSize); SetLength(Domain, DomainSize); if LookupAccountSidW(nil, ptiUser.User.Sid, PWideChar(User), UserSize, PWideChar(Domain), DomainSize, snu) then begin Result := True; User := WStrPas(PWideChar(User)); Domain := WStrPas(PWideChar(Domain)); end; end; if bSuccess then begin FreeMem(ptiUser); end; end; CloseHandle(ProcessHandle); end; end; 在域用户下，当进程是服务程序时，返回的DoMain是“NT AUTHORITY” 所以的使用另外一个函数： function GetComputerNameExA(NameType: COMPUTER_NAME_FORMAT; lpBuffer: PAnsiChar; lpnSize: PDWORD): BOOL; stdcall; external kernel32; function GetComputerNameExW(NameType: COMPUTER_NAME_FORMAT; lpBuffer: PWideChar; lpnSize: PDWORD): BOOL; stdcall; external kernel32; 回复23楼：不好意思，只有周末有时间上来看看。地址已经修复了。 云软件当然不用本地安装，否则就不叫云了。至于实际用途，一楼已经讲的很清楚，这个问题见仁见智吧，萝卜白菜，各有所爱的。 ---------------------------------------------- 是你上错了车,还是我下错了站? |
|||||
| 作者： |
|
2017/3/11 20:32:03 | ||||
| 25楼： | 真不错，界面做的真好，功能更强到哈！ ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/13 9:41:08 | ||||
| 26楼： | 下载使用了 不清楚这软件还有没有更新吧，我来提一点实际建议吧 如果要做到商业化的话。 1. 如果没猜错的话就是虚拟用户每添加一个，操作系统的用户也会增加一个。 用户的权限问题还是需要细化。 比如用户可访问的服务器文件目录的权限。 现在用户打开一个notebook 就可以打开服务器的所有磁盘的东西 也可以保存到任何地方 建议给出一个用户的特定区域 还有操作系统的某些指令要禁用掉的。 比如我远程开放delphi 的IDE。 然后我只要写一句 shellExecute shutdown 然后整个公司都瘫痪了。 特别是系统盘区域的文件， 万一某公司如果一个人带着仇恨离职，同时又懂一点技术的话， 你懂的 2. 我系统是 win7 我使用过程中任务栏会有点小闪动 和 变形 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/14 15:15:57 | ||||
| 27楼： | 回复ankangkang： 应该不会更新了，也不打算做到商业化。 权限问题实质上是网管部署的时候设置的。默认情况下，这个用户是User权限的，虽然可以看到系统磁盘的文件，但实际上没有写入和删除权限。需要UAC权限的程序也无法运行的，一运行马上就断开了。如果连系统盘都不想给用户看到，那就靠网管设置。实际上，公司的服务器都是基于域管理的多，这种情况下的权限比普通用户的电脑上的权限检查要严格的多。我有个用户，就是普通服务器，想跑个360浏览器都跑不起来，检查才发现，浏览器需要写入数据，因为user无权限写入从而导致程序无法跑起来。另外，安装程序上面也设置了一个私有文件选项，这个就是出于用户权限考虑的。这也是为什么说明书写着：权限管理使用NT的权限。 ---------------------------------------------- 是你上错了车,还是我下错了站? |
|||||
| 作者： |
|
2020/3/28 23:57:06 | ||||
| 28楼： | 我想注册，发邮件也没有回 ---------------------------------------------- - |
|||||
| 作者： |
|
2020/3/29 16:56:39 | ||||
| 29楼： | 牛B ---------------------------------------------- - |
|||||
| 作者： |
|
2020/3/30 11:54:47 | ||||
| 30楼： | 这个太厉害了 ---------------------------------------------- 疯狂并快乐着 |
|||||
| 作者： |
|
2020/3/30 13:52:08 | ||||
| 31楼： | 厉害了，这个到底是怎么实现的 ---------------------------------------------- 疯狂并快乐着 |
|||||
| 作者： |
|
2020/3/31 19:37:58 | ||||
| 32楼： | 打印到本地没有演示。 citrix metaframe 也有类似的功能。 ---------------------------------------------- - |
|||||
| 作者： |
|
2020/4/1 10:59:21 | ||||
| 33楼： | 如果直接用NT权限管理,那对比于直接用远程桌面,优点在于什么地方? ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
