如何通过nil代替const记录？

Question

我正在尝试调用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 。

那我怎么把它传给你呢？

如何通过需要nil记录的const？

我尝试了天真的解决方案：

const
   NULL_GUID: TGUID = ();

factory.CreateEncoder(GUID_ContainerFormatIco, NULL_GUID, {out}encoder);

虽然这不会失败，但它并没有真正遵循正确的规则。它传递一个非NULL地址，指向API不知道的GUID。

我尝试了天真的解决方案：

factory.CreateEncoder(GUID_ContainerFormatIco, TGUID(nil), {out}encoder);

但这是无效的类型转换。

Answer 1

您可以使用以下内容：

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);    

也有效。