我试图调用WIC(
Windows Imaging Component)工厂方法CreateEncoder：
HRESULT CreateEncoder( [in] REFGUID guidContainerFormat,[in,optional] const GUID *pguidvendor,[out,retval] IWICBitmapEncoder **ppIEncoder );
一般的想法是：
var
encoder: IWICBitmapEncoder;
CreateEncoder(
GUID_ContainerFormatIco,//The GUID for the desired container format
nil,//No preferred codec vendor
{out}encoder);
对于第二个参数,我想传递nil;表示我没有编码器偏好
但是Delphi对WinCodec.pas的翻译是：
function CreateEncoder(const guidContainerFormat: TGuid; const pguidvendor: TGUID;
out ppIEncoder: IWICBitmapEncoder): HRESULT; stdcall;
您会注意到第二个参数,即可选的TGUID,被声明为const.
那我怎么把它传递给你呢？
如何在需要const记录的情况下传递nil？
我尝试了天真的解决方案：
const
NULL_GUID: TGUID = ();
factory.CreateEncoder(GUID_ContainerFormatIco,NULL_GUID,{out}encoder);
虽然这不会失败,但它并没有真正遵循正确的规则.它传递的是非NULL地址,指向API不知道的GUID.
我尝试了天真的解决方案：
factory.CreateEncoder(GUID_ContainerFormatIco,TGUID(nil),{out}encoder);
但这是一个无效的类型转换.
你可以使用这样的东西：
const
NULL_PGUID: PGUID = nil;
begin
factory.CreateEncoder(GUID_ContainerFormatIco,NULL_PGUID^,{out}encoder);
end;
或者正如Sertac建议的那样,更短更甜的版本：
factory.CreateEncoder(GUID_ContainerFormatIco,PGUID(nil)^,{out}encoder);
我做了一个测试,David的建议是：
factory.CreateEncoder(GUID_ContainerFormatIco,TGUID(nil^),{out}encoder);
也有效.