DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: gtgtfgtgdsf12S
今日帖子: 10
在线用户: 7
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 majx (skin) ▲▲▲▲▲ -
普通会员
2018/8/9 22:10:13
标题:
Delphi 编写的开源远程访问软件 浏览:2214
加入我的收藏
楼主: https://github.com/weshinsley/songbase-classic-viewer
远程查看和控制经典的Songbase Delphi应用程序。


https://github.com/senjaxus/AllaKore_Remote
AllaKore Remote是用Delphi Seattle编写的开源远程访问软件。
这个来源由Maickonn Richard和Gabriel Stilben创建。
如有任何问题,请联系我:senjaxus@gmail.com

我的Github:https://www.github.com/Senjaxus
加入我们的Facebook群组:https://www.facebook.com/groups/1202680153082328/
AllaKore Remote是一个用Delphi Seattle编写的远程访问软件开源软件。
使用的所有组件都是Delphi本身的原生组件。

现在该项目与Delphi Seattle完全兼容。
在开放项目之前需要进行一些观察:

您应该安装本机DCLSockets组件。只需打开Delphi XE,单击“Component” - >“Install Packages”。现在单击“添加”,现在进入安装Delphi XE的“Bin”文件夹(例如:C:\ Program Files(x86)\ Embarcadero \ Studio \ 17.0 \ bin)并打开“dclsocketsXXX.bpl”文件。根据您的Delphi版本,XXX是数字。
该软件需要一个中央服务器,我建议将其托管在您所在国家/地区的服务器上,因此延迟较低。
与任何BETA项目一样,这会受到随时间纠正的错误的影响。我指望所有人的合作。
如果他们可以解决任何问题,只需发送将要发布的解决方案。
服务器的功能是路由所有数据流量,将每个数据包传递给正确的用户。服务器一接收就转发数据包以获得性能。
在Client项目中,该单元有两个Form_Main常量调用“Host”和“Port”。在常量“主机”中,您必须输入服务器的DNS或IP地址。在常量“端口”中,您应该输入在“服务器”的常量中选择的端口。
AllaKore Remote具有以下功能:
连接ID和密码。
使用RFB算法进行远程访问(仅发送屏幕上已更改的内容)。
数据压缩(zLib)。
共享者文件。
聊天。
----------------------------------------------
majx
作者:
男 majx (skin) ▲▲▲▲▲ -
普通会员
2018/8/9 22:37:02
1楼: LZ4Delphi - 由Jose Pascoa对原始LZ4 C源代码进行Delphi转换https://github.com/atelierw/LZ4Delphi - LZ4是一种无损压缩算法,每个内核的压缩速度为400 MB / s https://github.com/lz4 / LZ4

ICS - Internet组件套件由各种Internet组件组成http://www.magsys.co.uk/delphi/magics.asp

ScaleMM2 - 用于多线程场景的内存管理器https://github.com/andremussche/scalemm
----------------------------------------------
majx
作者:
男 chinaz (有缘人) ▲▲▲▲△ -
神秘会员
2018/8/9 22:38:03
2楼: 顶。。。。。。。。。。
----------------------------------------------
一路风雨走过,因为有你们
作者:
男 bbnn38 (伟大的咸鱼) ▲▲▲▲△ -
注册会员
2018/8/9 22:46:43
3楼: 留名先,方便日后查找!
----------------------------------------------
-
作者:
男 glwang (glwang) ★☆☆☆☆ -
盒子活跃会员
2018/8/10 8:40:09
4楼: 不错
----------------------------------------------
-
作者:
男 s421600 (shen) ▲▲▲△△ -
注册会员
2018/8/10 9:28:55
5楼: 简单使用了一下,AllaKore Remote 不显示远程电脑的实时图片,不知道是什么问题。

另外如果可以改成p2p就好了,可以省好多流量,在天朝用服务器中转得需要多大的带宽的服务器啊,而且速度也不好,p2p就爽了。
----------------------------------------------
-
作者:
男 pcplayer (pcplayer) ★☆☆☆☆ -
普通会员
2018/8/10 9:57:40
6楼: 是指远程桌面?
----------------------------------------------
-
作者:
男 zgc123 (zgc123) ★☆☆☆☆ -
盒子活跃会员
2018/8/10 11:06:11
7楼: 标记一下,方便以后查找。
----------------------------------------------
欢迎访问我的网站:http://zhenggc.cc/http://zhenggc.ys168.comhttp://zhenggc.com/
作者:
男 dragoncbx (dragoncbx) ★☆☆☆☆ -
注册会员
2018/8/10 11:30:51
8楼: 学习了
----------------------------------------------
-
作者:
男 ksrsoft (cb168) ★☆☆☆☆ -
注册会员
2018/8/10 23:17:10
9楼: 呵呵谢谢
----------------------------------------------
-
作者:
男 thinknet (thinknet) ★☆☆☆☆ -
盒子活跃会员
2018/8/11 12:39:55
10楼: 看不到远程桌面,怎么破?
----------------------------------------------
-
作者:
男 majx (skin) ▲▲▲▲▲ -
普通会员
2018/8/11 14:17:50
11楼: 欢迎大家到Github上与原作者交流。互相促进学习。
----------------------------------------------
majx
作者:
男 sail2000 (小帆工作室) ★☆☆☆☆ -
盒子活跃会员
2018/8/11 15:40:54
12楼: 这个我记得有indy版本的,ics版本,自带socket版本的,还有。。。好几个版本,以前收集过
----------------------------------------------
delphi 是兴趣,和工作无关,即使它倒闭。
又不靠它 delphi 吃饭,怕甚?
作者:
男 coolslob (CoolSlob) ★☆☆☆☆ -
盒子活跃会员
2018/8/11 15:46:41
12楼: 还有这么实用的项目开源,赞一个。
----------------------------------------------
-
作者:
男 szlbz (szlbz) ★☆☆☆☆ -
盒子活跃会员
2018/8/11 22:04:27
13楼: 看不到远程桌面
----------------------------------------------
-
作者:
男 fausten (fausten) ★☆☆☆☆ -
盒子活跃会员
2018/8/12 2:16:15
14楼: 标记!!!!!!
----------------------------------------------
-
作者:
男 majx (skin) ▲▲▲▲▲ -
普通会员
2018/8/12 15:16:07
15楼: 谁能公开一个p2p版本的呢?
----------------------------------------------
majx
作者:
男 abcjingtong (jingtong) ▲▲▲▲△ -
注册会员
2018/8/13 9:43:43
16楼: 有人可以显示远程桌面吗
----------------------------------------------
18114532@qq.com
作者:
男 mlskin (mlskin) ▲▲△△△ -
注册会员
2018/8/13 11:09:28
17楼: 收藏
----------------------------------------------
Delphi MlSkin 它能让你的程序拥有像QQ一样多彩炫丽的外观http://www.pngui.com
作者:
男 s421600 (shen) ▲▲▲△△ -
注册会员
2018/8/13 11:30:00
18楼: 不能显示桌面
----------------------------------------------
-
作者:
男 lordaeron (Terry) ★☆☆☆☆ -
注册会员
2018/8/13 13:14:58
19楼: 傳送畫面, 用LOSSELESS的ALGO 來COMPRESS 就夠莫明其妙的了。
----------------------------------------------
-
作者:
男 lastforest (last) ▲▲▲▲▲ -
普通会员
2018/8/13 17:10:14
20楼: marK~~
----------------------------------------------
-
作者:
男 coolslob (CoolSlob) ★☆☆☆☆ -
盒子活跃会员
2018/9/4 8:03:05
21楼: @lordaeron 不要光吐槽,说说你的更优方案。
----------------------------------------------
-
作者:
男 lordaeron (Terry) ★☆☆☆☆ -
注册会员
2018/9/4 9:05:07
22楼: @coolslob, 你要壓JPEG, JPEG2000(這太慢了), lossy PNG, BPG(patent issue?)
PGF。
以上都是方案。不需要問人,隨便找都有。
----------------------------------------------
-
作者:
男 keymark (keymark) ▲△△△△ -
注册会员
2018/9/5 10:47:39
23楼: https://github.com/mozilla/mozjpeg#features 按此在新窗口浏览图片
----------------------------------------------
m3u8播放器:DPlayer/hlsjs-p2p-engine/ckplayer/flashls-dev/sewise-player/http不能播https某些情况下dns服务:coredns/http服务:miniweb/!http://www.lib4dev.com/topics/delphi>http://www.lib4dev.com/topics/pascal?p=34&s=!http://www.lib4dev.com/topics/delphi
作者:
男 lordaeron (Terry) ★☆☆☆☆ -
注册会员
2018/9/5 15:17:44
24楼: 再說,Remote Control 軟體,最大的問題還是如何抓取變動的部分以及FPS。
其它基本不是問題。
----------------------------------------------
-
作者:
男 abcjingtong (jingtong) ▲▲▲▲△ -
注册会员
2018/9/26 19:02:10
25楼: 由于运行后看不到远程界面,所以看了下原理,主要是发送截图时如何判断变化,AllaKore_Remote的原理是:首先截一张完整的屏幕图像并转成流A发送给控制端(控制端收到后保存为A1),然后线程里不停止的截图,每截图一张后转成流B,创建大小和A、B一样的流C,然后PByteA和PByteB指针遍历流A和B的每一个字节,如果PByteA和PByteB值相同则在C的同样位置PByteC^ := 0,否则PBybteC := PByteB^,这样就把不同值记录了下来,完成后,将C发送到控制端,控制端将字节不为0的更新到A1再显示到bitmap上。

搞明白原理后自己移植成DIOCP的了,目前存在的问题
1.远程桌面显示失真,AllaKore_Remote应该也有此问题(因为没有运行后看到过界面),原因如上所述
2.win7控制xp按键有时候无效,xp控制win7正常,可能是api不同造成?
3.鼠标按下并弹起,受控端只收到按下,收不到弹起,可能太快了发送没有响应?
4.AllaKore_Remote的聊天和发送文件功能没有移植。
打算从头做一个通用的通讯聊天工具,所以暂时不打算处理以上问题,如果你解决了可以回馈给我。
此帖子包含附件:abcjingtong_201892619210.rar 大小:791.7K
----------------------------------------------
18114532@qq.com
作者:
男 abcjingtong (jingtong) ▲▲▲▲△ -
注册会员
2018/9/26 19:03:28
26楼: 忘记说了,开发环境10.2.3
----------------------------------------------
18114532@qq.com
作者:
男 s421600 (shen) ▲▲▲△△ -
注册会员
2018/9/26 20:20:19
27楼: to   abcjingtong (jingtong)
测试了你的,可以用,不过我测试好像发现颜色不对劲,有的时候变红了,不知道是 什么原因。

另外就是鼠标操作延时很大,实时图片延时到还好,鼠标操作居然比图片延时大很多。
----------------------------------------------
-
作者:
男 s421600 (shen) ▲▲▲△△ -
注册会员
2018/9/26 20:21:17
28楼: 图片
此帖子包含附件:
JPEG 图像
大小:67.9K
----------------------------------------------
-
作者:
男 abcjingtong (jingtong) ▲▲▲▲△ -
注册会员
2018/9/26 20:30:49
29楼: 颜色不对,见问题1的解释,关于延时,AllaKore_Remote使用了4个TcpClient,我用了一个,如果你有兴,可以将鼠标操作,键盘操作,桌面图像都分别用不同的TcpClient
另外,最好不要本机测试,否则鼠标乱跳。
----------------------------------------------
18114532@qq.com
作者:
男 abcjingtong (jingtong) ▲▲▲▲△ -
注册会员
2018/9/26 20:37:05
30楼: 关于颜色不对

由于运行后看不到AllaKore_Remote远程界面,所以看了下原理,主要是发送截图时如何判断变化,AllaKore_Remote的原理是:首先截一张完整的屏幕图像并转成流A发送给控制端(控制端收到后保存为A1),然后线程里不停止的截图,每截图一张后转成流B,创建大小和A、B一样的流C,然后PByteA和PByteB指针遍历流A和B的每一个字节,如果PByteA和PByteB值相同则在C的同样位置PByteC^ := 0,否则PBybteC := PByteB^,这样就把不同值记录了下来,完成后,将C发送到控制端,控制端将字节不为0的更新到A1再显示到bitmap上。

造成颜色不正确的原因可能是:字节不为0的并不一定是没有发生变化,而可能是由大于0的值变为了0,上面的原理把只有不为0的才更新,所以造成了颜色的问题。
----------------------------------------------
18114532@qq.com
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行46.875毫秒 RSS