2Pascal-新时代的Pascal

 找回密码
 立即注册
搜索
热搜: fastreport
楼主: wang_80919
打印 上一主题 下一主题

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

   关闭 [复制链接]

0

主题

23

帖子

118

积分

注册会员

Rank: 2

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

使用道具 举报

29

主题

73

帖子

726

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
726
地板
发表于 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;
回复 支持 反对

使用道具 举报

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

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

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

再也不需要写线程了。


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

使用道具 举报

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-7-6 02:40 , Processed in 0.068478 second(s), 19 queries .

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

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