2Pascal-新时代的Pascal

 找回密码
 立即注册
搜索
热搜: fastreport
查看: 18964|回复: 104
打印 上一主题 下一主题

RO SDK 9.0.97.1245 带源码测试版 支持手机开发 带破解 D7-RAD10.1

   关闭 [复制链接]

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
83952
跳转到指定楼层
楼主
发表于 2016-2-23 11:56:08 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
京东购书支持本站
新版本来源
2ccc


RemObjects Remoting SDK for Delphi - 9.0.97.1245 FullSource D6-RAD10.2 破解版
http://www.2pascal.com/forum.php ... =2739&fromuid=4
(出处: 2Pascal-新时代的Pascal)


以下是旧版本。

RemObjects Remoting SDK for Delphi - 9.0.97.1245 官方带源码测试版 支持手机开发 带破解 D6-RAD10.1 V2016-06-27.zip
下载地址
链接:
http://pan.baidu.com/s/1i5rzDOh
密码:
游客,如果您要查看本帖隐藏内容请回复



下面是旧版本的。
来源:
http://blog.csdn.net/tht2009/article/details/50596458

RemObjects Remoting SDK for Delphi - 9.0.94.1207 官方带源码测试版 支持手机开发 带破解 D6-RAD10.1 V2016-04-19

下载地址
链接:
http://pan.baidu.com/s/1dFC64nR
密码:
游客,如果您要查看本帖隐藏内容请回复



如果提示你注册过期,请找到注册文件删除。具体位置在
%appdata%\emObjects Software\Licenses
删除里头的注册文件即可。
(C)(P)Flying Wang
回复

使用道具 举报

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
83952
沙发
 楼主| 发表于 2016-2-23 12:58:36 | 只看该作者
京东数码购物支持本站
经过测试 RAD10UP1 + RO9 跨平台 BIN 格式非常好。
低版本的 DELPHI 可能 安卓 APP 退出 发生错误。
RAD10UP1 编译的 APP 没问题。
(C)(P)Flying Wang
回复 支持 反对

使用道具 举报

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
83952
板凳
 楼主| 发表于 2016-2-23 14:17:51 | 只看该作者
京东数码购物支持本站
RO SDK 异步执行。在手机上最好。图中的 Sleep(33); 改成 Sleep(10); 比较好。

大家的手机再也不会无响应了。
大家执行之前,来一个 动画开始。
用 上面的代码等待。
这个时候,动画会自动进行。
然后 就能等到数据返回。

再也不需要写线程了。


(C)(P)Flying Wang
回复 支持 反对

使用道具 举报

29

主题

73

帖子

727

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
727
地板
发表于 2016-2-23 15:07:40 | 只看该作者
京东数码购物支持本站
RO 接口中任何 对象 做 var 都会 变成 2 个对象
假设接口如下:
procedre TestVar(var Aval:TOjbect);

调用代码。
begin
  Aval1: TObject;
  Aval2: TObject;
begin
  Aval1 := TObject.Create;
  Aval2 := Aval1;
  try
    //Some Code;
    TestVal(AVal2);
    //Some Code;
  fianlly
    if (Aval2 <> Aval1) and (Aval2 <> nil) then
      FreeAndNil(AVal2);
    FreeAndNil(AVal1);
  end;
end;

另外 也可以 修改接口为:
procedre TestVar(in Inval:TOjbect; out Outval: TObject);

调用代码。
begin
  Aval1: TObject;
  Aval2: TObject;
begin
  Aval1 := TObject.Create;
  Aval2 := nil;
  try
    //Some Code;
    TestVal(AVal1, Aval2);
    //Some Code;
  fianlly
    if (Aval2 <> nil) then
      FreeAndNil(AVal2);
    FreeAndNil(AVal1);
  end;
end;
回复 支持 反对

使用道具 举报

0

主题

23

帖子

118

积分

注册会员

Rank: 2

积分
118
5#
发表于 2016-4-20 13:23:30 | 只看该作者
京东数码购物支持本站
thanks..
goooooooooooooooooooooog
回复 支持 反对

使用道具 举报

0

主题

13

帖子

66

积分

注册会员

Rank: 2

积分
66
9#
发表于 2016-4-20 19:22:01 | 只看该作者
京东数码购物支持本站
好东西要顶
回复 支持 反对

使用道具 举报

0

主题

25

帖子

229

积分

中级会员

Rank: 3Rank: 3

积分
229
10#
发表于 2016-4-20 20:44:14 | 只看该作者
京东数码购物支持本站
带破解的10.1出来了
谢谢分享
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|新时代Pascal论坛

GMT+8, 2024-12-22 15:53 , Processed in 0.081282 second(s), 27 queries .

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表