同样的代码为何在delphi7编译运行正常~而在Xe2会出错呢?解决办法

同样的代码为何在delphi7编译运行正常~而在Xe2会出错呢?
代码如下:

Delphi(Pascal) code

unit UnitUtil;interfaceuses  System.SysUtils, System.Classes, Winapi.Windows;function HexToString(S:string):string;function HexScan(t:tstream; s:string):integer;function HexRead(t:tstream; s:DWORD; b:Byte):Integer;function ReadAddress(FlagCode:string;MyFile:TFileStream;Offset:Integer):string;function ReadOffsetAdress(FlagCode:string;MyFile:TFileStream;Offset:Integer;const nSize:Integer=4):string;function ReadCallAddress(FlagCode:string;MyFile:TFileStream;Offset,Modify:Integer):string;implementationfunction HexToString(S: string): string;//转十六进制字符串var  i: integer;  tmpstr:string;Begin  Result := '';  for i := 1 to Length(S) do  begin    if ((i mod 2)=1) then    begin      tmpstr:=Copy(S, i, 2);      if tmpstr='**' then        Result:=Result+'*'      else        Result:=Result + Chr(StrToInt('0x' + Copy(S, i, 2)));    end;  end;end;function HexScan(t:tstream; s:string):integer;  //找地址所在位置var  i, j: integer;  p: pchar;begin  Result:=-1;  getmem(p, t.size);                  // ---- 分配内存  t.readbuffer(p^, t.size );        // ---- 读  for i:=0 to t.size -1 do  begin    for j:=1 to length(s) do    begin      if s[j]='*' then                    //匹配通配符'*',强制下一轮循环        Continue;      if p[i+j]<>s[j] then             // ---- 有一个不同即退出      begin        break;      end;    end;    if j>length(s) then               // ---- 依据    begin      Result:=i+1;      break;    end;  end;  freemem(p);  t.seek(0, soBeginning);      // ---- 返回文件头end;function HexRead(t:tstream; s:DWORD; b:Byte):Integer;//读地址所在位置var  d: DWORD;begin  t.seek(s, soBeginning);       // ---- 到Length位置；  t.Read(d, b);                 // ---- 读b字节  Result:=d;  t.seek(0, soBeginning);       // ---- 返回文件头end;function ReadAddress(FlagCode:string;MyFile:TFileStream;Offset:Integer):string;var  Addr:Integer;begin  Addr := HexScan(MyFile, HexToString(FlagCode));  if Addr = -1 then    Result := 'Null'  else    Result :='$' + IntToHex($400000 + Addr + Offset, 1);end;function ReadOffsetAdress(FlagCode:string;MyFile:TFileStream;Offset:Integer;const nSize:Integer=4):string;var  Addr:Integer;begin  Addr:=HexScan(MyFile,HexToString(FlagCode));  if Addr=-1 then    Result:='Null'  else    Result:='$'+ IntToHex(HexRead(MyFile, Addr + Offset, nSize),1)end;function ReadCallAddress(FlagCode:string;MyFile:TFileStream;Offset,Modify:Integer):string;var  Addr:Integer;begin  Addr:=HexScan(MyFile,HexToString(FlagCode));  if Addr=-1 then    Result:='Null'  else    Result := '$' + IntToHex(($400000 + Addr) + HexRead(MyFile, Addr+Offset, 4) + Modify, 1)end;end.

Delphi(Pascal) code

unit UnitMain;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, UnitUtil;type  TMainForm = class(TForm)    edt_Path: TEdit;    Label1: TLabel;    btn_GetClient: TButton;    dlgOpen: TOpenDialog;    lv_Show_Addr: TListView;    procedure btn_GetClientClick(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  MainForm: TMainForm;implementation{$R *.dfm}procedure TMainForm.btn_GetClientClick(Sender: TObject);var  MyFile: TFileStream;  VerionFilePath:string;  VerionFile:TextFile;  Version:string;  tmp_Addr:Integer;begin  if not dlgOpen.Execute then    Exit;  edt_Path.Text := dlgOpen.FileName;  VerionFilePath := ExtractFilePath(edt_Path.Text)+'..\'+'config\element\version.sw';  if FileExists(VerionFilePath) then  begin    AssignFile(VerionFile,VerionFilePath);    Reset(VerionFile);    Readln(VerionFile,Version);    Self.Caption:=Self.Caption+'--客户端版本号:'+Copy(Version,1,3);  end  else  begin    Self.Caption:=Self.Caption+'--无法检测到客户端版本';  end;  if edt_Path.Text<>'' then  begin    MyFile:=TFileStream.Create(edt_Path.Text,fmShareDenyNone);    lv_Show_Addr.Items.Clear;    try      with lv_Show_Addr.Items.Add do      begin        Caption:='基址';        SubItems.Add(ReadOffsetAdress('53578b4820e8',MyFile,-$4));      end;    except      on Err:Exception do      begin        ShowMessage('异常类名称:'+Err.ClassName+#13#10+'异常信息'+Err.Message);      end;    end;  end;end;end. 
 

这是Xe2编译运行的异常提示

这是Delphi编译后运行的结果


[解决办法]
xe2下Char是双字节的。单字节的叫AnsiChar。
[解决办法]
Delphi2007升级到Delphi 2010总结

这两天把一个使用Delphi2007成功升级到了Delphi2010。升级途中很艰辛，总结了 以下经验与大家分享。另外，D7使用的第三方组件，由于官方没有发布For Delphi2010的更新，修改的第三 方组件列表见文章尾部。

1，PChar
因为Delphi不支持无类型指针的算术运算，很多程序员使用 PChar来代替Pointer，即使指针指向目标并不是PAnsiChar。

考虑如下代码：

var 
P:PChar;
Buffer:Pointer;
begin
GetMem(Buffer,255);
P:=Buffer;
p^:=#1;
Inc(P);
p^:=#2;
FreeMem(Buffer,255);
end;
在2010中PChar已经不再表示PAnsiChar而是表示PWideChar，如果依然这样写，运行时很可能会得到一个内存访问错误。因为每 次Inc(P)，实际上指针向前移动了2字节，因为SizeOf(WideChar)=2，Inc(P)相当于 P:=P+SizeOf(WideChar)。

解决方法是把PChar替换成PAnsiChar 



2，Move FillChar CopyMemory
这些函数依赖的是字节长度，往往我们直接使用Length(Str)来获取，这是行不通的。

考虑如下代码：

var
P1,P2:String;
begin
P1:='test';
SetLength(P2,Length(P1));
Move(P1[1],P2[1],Length(P1));
在2010中String默认映射到UnicodeString，单个字符是2字节，所以上文中P1实际占用了8字节内存，而传给Move函数的长 度只有4字节，最终结果是P2="te"。

解决办法1：

修改String为AnsiString，该方案虽然可行，但你的程序就享受不到Unicode待遇了。

解决办法2：

SetLength 函数不要修改，因为他的长度参数是字符长度，而不是字节长度。

Move函数的最后一个参数 Length(P1) 修改成 Length(P1)*SizeOf(Char)。

注意：不要偷懒使用万一老师说的ByteLength函数，该函数并没有For AnsiString的重载，编译器会 把参数隐式转化为UnicodeString然后，ByteLength函数计算UnicodeString的长度。例如：一旦你不小心传入了一个 AnsiString类型长度为4的字符串，函数会返回8，而不是你期望的长度4。 



3，Key in ['a'..'z','B','C']
这类代码最好替换成CharInSet(Key,['a'..'z','B','C']) 不然会当作AnsiChar处理。



4，WideString
代码中的所有WideString都考虑替换成String，现在 WideString只是为了与COM兼容而存在，且没有引用计数，性能低下。 



5，Tnt控件
如果你的工程使用了Tnt控件或以前的WideTextPos WideStringReplace之类的东西都替换成标准的吧，不用曲线救国了。 


---------经过修改，可以在Delphi2010下运作的第三方组件--------------



1，PNGDelphi

2，EmbeddedWB 

3，SynEdit的语法高亮组件 unihighlighter

4，JEDI Win32API Header 



这些组件现在可以在Delphi2010下运作了。

6，引用AnsiStrings单元
如果你有必要使用 AnsiLowerCase AnsiCompareStr之类的函数，一定要引用AnsiStrings单元。

如果你不引用该单元，即便编译不报错，你实际上是用的还是Unicode版本的函数，会有隐式的转化。不信你打开参数自动完成，看看IDE提示给你的类型是什么？天啊AnsiLowerCase参数竟然还是String，而不是AnsiString。看来Delphi2010太迫切的要抛弃Ansi字符串了，以至于你不引用AnsiStrings单元，所有Ansixxxx函数实际上还是Unicode版本。



7，AnsiCopy AnsiPos AnsiDelete
不要用AnsiCopy AnsiPos AnsiDelete，因为Copy Pos Delete三个函数已经有了For Ansi的重载。



8，把Char转化为小写用什么？
答案：试试看Character单元的新函数 ToUpper ToLower。以前我都是用System里面的UpCase函数，现在依然可用不过却找不到LowCase DownCase之类的函数，困扰我好久好久。索性全使用Character单元提供的新函数吧。



9，编译期警告：[DCC Warning] Unit1.pas(31): W1057 Implicit string cast from 'AnsiString' to 'string'
如果你的代码中包含了两种字符串（Unicode、Ansi）之间进行隐式转化的时候就会出现该提示。

如下代码就会触发该警告：



var Unicode:String; Ansi:AnsiString; begin Ansi:='test..'; Unicode:=Ansi; 


把旧版本的Delphi项目升级到2010，我通常都是借助编译警告来快速寻找需要改动的部分。通常你可以把赋值双方都声明为String(默认影射到UnicodeString)，就可以避免该警告。但如果你确定必须在此处保留Ansi并进行转化的时候，建议你显式的转化他们（例如：Unicode:=String(Ansi);），这样可以避免该警告，方便你在升级过程中继续寻找其他需要修改的地方。



10，Readln Writeln 写入文件时候要注意
如果你传给Writeln一个AnsiString，那么它也会在文件中写入AnsiString，那么你读取得时候就必须传给Readln一个AnsiString的类型，否则就是乱码。例如旧工程的配置文件是Ansi的，而你已经把相关读取配置的代码升级为支持Unicode，那么运行工程前你首先要用记事本之类的工具把配置文件另存为成Unicode编码。当然你还要注意跳过Unicode文件头的两个字节FE FF。



11，别再用String来操作二进制数据了
一定要记住String只是字符串，不要把它当作缓冲区、内存流使用。我的项目中，有很多地方是使用字符串来处理二进制数据，导致在本次升级中颇为费脑。如果当时用TBytes或TStream就好了。

反面教材：

var Int1,Int2,Int3,Int4:Integer; Buf:String; begin SetLength(Buf,12); Move(Int1,Buf[1],SizeOf(Integer)); Move(Int1,Buf[5],SizeOf(Integer)); Move(Int1,Buf[9],SizeOf(Integer)); Buf:=Buf+'前面有3个Integer。'; 

12，还是PChar
注意在2010中是这样的：

PChar= Pointer to a WideChar array;

PAnsiChar = Pointer to a AnsiChar array;

如果你还像是在Delphi 7中那样：PChar(AnsiString)那后果过是很严重的。

[解决办法]
HexScan里
for i := 0 to t.Size div 2 - 1 do
[解决办法]

探讨

Delphi2007升级到Delphi 2010总结

这两天把一个使用Delphi2007成功升级到了Delphi2010。升级途中很艰辛，总结了 以下经验与大家分享。另外，D7使用的第三方组件，由于官方没有发布For Delphi2010的更新，修改的第三 方组件列表见文章尾部。

1，PChar
因为Delphi不支持无类型指针的算术运算，很多程序员使用 PChar来代替Poin……

[解决办法]
升级确定会很蛋痛。。。
主要就是单字节与宽字节问题，还有一些单元引用会不同
[解决办法]
我已经升级过来了，从D7到D2010，主要是之前的第三方库写的比较规范，修改比较少，一般是PChar改为PAnsiChar，以后写代码，也要注意这些区别，尽量使用byte代替char

查看更多 下一篇