涛哥的blog

Delphi移动开发笔记（一）

4 Comments 2014-07-28 admin

        Delphi从XE4版本就开始支持移动开发了，但是笔者最近才开始学习这块内容。因为笔者原来一直使用的是Delphi7，对于很多新语法没有了解过，所以把其中一些东西记录下来。
        程序开发，调试是少不了的。关于搭建调试环境，网上已经有很多文章，这里就不复述了，大家可以自己搜索搜索。个人推荐，对于安卓平台，使用真机比较好，因为模拟器的速度是非常非常非常非常慢的，对于我这种急性子简直是无法忍受。不过你也可以在虚拟机里面搭建IOS的环境，那个速度就非常快了，比安卓的手机速度还快。一般地说，IOS下能跑，编译成安卓的也不会有问题。
下图是我的三星手机：

这一个则是IOS模拟机，里面正在运行着一个UDP可靠传输的程序，跟外面实体机进行数据传输：

一、字符串操作

        在移动环境下，字符串的索引是从0而不是1开始。注意：这个实际上只涉及到引用和赋值，对于Pos、Delete、Copy、Trim来说，索引还是从1开始的。例如：

var
 str:string;
begin
 str:='Hello!';
 ShowMessage(str[1]);//Win程序为“H”，Mobile下为"e"
 str[2]:='W';//同上
end;

        如果你的代码需要同时支持老版本的编译器，例如Delphi7，那么需要自己加编译开工。

var
 str:string;
begin
 str:='Hello!';
 {$IFDEF MSWINDOWS}
 str[3]:='W';
{$ELSE}
 str[2]:='W';
{$ENDIF}
end;

        如果你的程序不需要支持老版本的编译器，那么可以使用TStringHelper来处理Strings。例如：

var
 str:string;
 nIndex:Integer;
begin
 str:='Hello!';
 n:=str.IndexOf('e');//类似Pos函数，但不管Win环境还是Mobile,索引都是从0开始，都是返回1，下同。
//str.Remove===>类似Delete
//str.Substring===>类似Copy
//str.Trim===>类似RTL的Trim
end;

二、生存期自管理

        例如，很多人喜欢使用这种代码：

例1：
var
 g_List:TList;

..............

procedure DoSoneThing;
var
  MyObj:TMyObject;
begin
 MyObj:=TObject.Create;
 g_List.Add(MyObj);
end; 

例2：
function GetAObject:TMyObject;
begin
 Result:=TMyObject.Create;
end;

        这个代码在Win平台下工作的很好，但在Mobile平台下会出错，原因在于Mobile下对象是自管理的，类似以前的COM对象，编译器会自动加上“__ObjAddRef;”和”__ObjRelease”，例如局部变量，离开函数后会被__ObjRelease给释放掉。
        解决方案：

例1：
var
 g_List:TList<TMyObject>;//改成泛型的TList,记得uses Generics.Collections单元

例2：
function GetAObject:TMyObject;
begin
 Result:=TMyObject.Create;
{$IFDEF AUTOREFCOUNT}
 Result.__ObjAddRef;//多加一次计数，真正释放的时候记得减少
{$ENDIF AUTOREFCOUNT}
end;

三、自释放不要使用Destroy，否则会出现“Project Project_Mobile raised exception class ESafecallException with message ‘Exception in safecall method’.”错误。

function TUDPBuff.Release: integer;
begin
  Result:={$IFDEF DELPHI7}InterlockedDecrement{$ELSE}TInterlocked.Decrement{$ENDIF}(m_nRef);
  if Result= 0 then
  begin
    {$IFDEF MSWINDOWS}
    Destroy;
    {$ELSE}
    DisposeOf;//或Free;
    {$ENDIF}
  end;
end;

分类：基础知识