safearraygetdata函数在Delphi中使用safearray作为输入参数而不是vararray

function SafeArrayGetData(psa: PSafeArray; pData: Pointer): HResult; stdcall;

var
  sa: PSafeArray;
  data: Pointer;
  hResult: HResult;
begin
  // 创建一个 SafeArray
  hResult := SafeArrayCreate(VT_UI1, 1, @sa);
  if hResult <> S_OK then
    raise Exception.Create('SafeArrayCreate failed');

  // 分配内存
  hResult := SafeArrayAllocData(sa);
  if hResult <> S_OK then
  begin
    SafeArrayDestroy(sa);
    raise Exception.Create('SafeArrayAllocData failed');
  end;

  // 获取数据指针
  hResult := SafeArrayGetData(sa, data);
  if hResult <> S_OK then
  begin
    SafeArrayDestroy(sa);
    raise Exception.Create('SafeArrayGetData failed');
  end;

  // 使用数据指针
  // ...

  // 释放内存
  hResult := SafeArrayUnaccessData(sa);
  if hResult <> S_OK then
  begin
    SafeArrayDestroy(sa);
    raise Exception.Create('SafeArrayUnaccessData failed');
  end;

  // 销毁 SafeArray
  SafeArrayDestroy(sa);
end;