新的Win32 API函数签名是：
function GetPath(DC: HDC; Points: PPointL; Types: PByte; nSize: Integer): Integer; stdcall;
在XE8中,先前该函数具有“var Points,Types”,其通常被称为“var untyped”参数.
修复代码以使用Delphi 10 Seattle意味着“统一”应用程序代码中的任意类型,以准确使用单元本身中声明的类型.然而令我困惑的是,有两种类型,PPointL和TPoint,当我使GetPath函数工作时,它填充的数据被填充到_POINTL记录数组中,因此在Winapi.Windows中声明：
type
_POINTL = record { ptl }
x: Longint;
y: Longint;
end;
{$EXTERNALSYM _POINTL}
PPointL = ^TPointL;
TPointL = _POINTL;
但是,还有另一种类型TPoint,在System.Types中声明：
TPoint = record
X: FixedInt;
Y: FixedInt;
public
在其他地方,对于32位和64位Windows,FixedInt都是Longint的别名,所以就我所知,TPoint和_POINTL至少在Windows平台上是等效的.
如果现有的应用程序组件代码都使用名为TPoint的类型,如下所示：
procedure AddPoint(const P:TPoint);
……对于Delphi 10中的RTL源内部的情况,我有什么意义？我应该怎样解决这个问题？别名TPoint到单位级_POINTL？
我该如何解决这个问题并继续进行？由于此代码是商业组件,我想我会等到供应商修复此问题,但是,我认为理解RTL中的_POINTL和TPoint,以及为什么这些结构在定义中冗余/重复,将有助于其他人将低级Win32代码从Delphi XE8移植到Delphi 10 Seattle.
更新：作为一种解决方法,我发现我可以重新声明GetPath函数的导入,并在我自己的私有单元实现区域导入中将其保留为var无类型,并继续：
{$ifdef D23}
{$POINTERMATH ON}
// Delphi 10 Seattle: function GetPath(DC: HDC; Points: PPointL; Types: PByte; nSize: Integer): Integer; stdcall;
// prevIoUsly had "var Points,Types" untyped,const
gdi32 = 'gdi32.dll';
{$EXTERNALSYM GetPath}
function GetPath(DC: HDC; var Points,Types; nSize: Integer): Integer; stdcall; external gdi32 name 'GetPath';
{$endif}
解决方法
此TPointL类型不是新的,但它是GetPath的错误类型. Win32 API函数是：
int GetPath( _In_ HDC hdc,_Out_ LPPOINT lpPoints,_Out_ LPBYTE lpTypes,_In_ int nSize );
LPPOINT为POINT *,POINT映射到TPoint.有一些Win32 API函数使用POINTL,但大多数使用POINT.当然,微软并没有帮助声明两个相同的类型,当一个就足够了.
很难看出Embarcadero开发人员如何设法在新的GetPath中提出POINTL,但是你去了.在我看来,你应该提交一份QP报告,并要求声明从PPointL更改为PPoint.
与此同时,简单的强制转换就足够了,因为这两种类型是二进制兼容的.你希望传递一个PPoint,但编译器需要PPointL.所以传递PPointL(…)其中…是产生PPoint的表达式.