跟往常一样拿着delphi7老程序放在delphi XE中编译发现一些问题总结
1.Pchar类型报错问题
[dcc32 Error]XXX.pas(1299): E2010 Incompatible types: ‘PAnsiChar‘ and ‘PWideChar‘。
Delphi中有PChar,PWideChar,PAnsiChar三种形式在。在Delphi2010之前Pchar类型默认是PAnsiChar,在Delphi2010之后Pchar类型默认是PWidechar。声明类型要具体指定是PAnsiChar还是PWideChar了。
2.ReadPricessMemory和WriteProcessMemory等一些api函数参数报错问题
[dcc32 Error]XXX.pas(724): E2033 Types of actual and formal var parameters must be identical
在 Delphi Xe中 ReadProcessMemory 和 WriteProcessMemory等一些api的最后一个参数由原来的 var lpNumberOfBytesRead: DWORD 变为了一个指针按他的提示是 type void@
function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;nSize: SIZE_T; var lpNumberOfBytesWritten: SIZE_T): BOOL; stdcall;
function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;nSize: SIZE_T; var lpNumberOfBytesRead: SIZE_T): BOOL; stdcall;
第一个参数不能是 THandle无类型指针,THandle仍然是 Cardinal无符号整型或者THandle类型;第三个参数是个指针类型需要用@取变量地,而最后一个参数必须为THandle类型,使用 Cardinal无符号整型在delphi XE会报错。
3.StrPas函数报错问题
[dcc32 Error] uXHPub.pas(732): E2251 Ambiguous overloaded call to ‘StrPas‘
用Pchar函数替换StrPas函数即可。