如何将char **转换为delphi？

Question

我认为char **意思是ppansiChar但我不知道以后如何使用它以及目的。 我有这个功能

char **MagickGetImageProfiles(MagickWand *,const char *,size_t *), 

我这样翻译：

function MagickGetImageProfiles(wand: PMagickWand; const pattern: pAnsiChar; const number_profiles: pSize_t): ppAnsiChar;

它是可行的，但是我不知道现在如何将结果作为ppansiChar :(为什么不简单地使用pansiChar？所以将我用作ppansichar可能不对吗？通常MagickGetImageProfiles必须返回一个数组或类似的东西，因为在number_profiles中它是返回返回的配置文件数

Answer 1

它是指向字符串数组的指针。 我个人将这样声明该函数：

function MagickGetImageProfiles(
    wand: PMagickWand; 
    pattern: pAnsiChar; 
    out number_profiles: size_t
): ppAnsiChar; cdecl;

这样称呼它：

var
  i: Integer;
  number_profiles: size_t;
  profiles, p: ppAnsiChar;
... 
profiles := MagickGetImageProfiles(wand, pattern, number_profiles);
// error checking goes here, as described by API documentation 
p := profiles;
for i := 0 to number_profiles-1 do begin
  Writeln(p^);
  Inc(p);
end;
MagickRelinquishMemory(profiles);

您可以同样设置{$POINTERMATH ON}并这样写：

var
  i: Integer;
  number_profiles: size_t;
  profiles: ppAnsiChar;
... 
profiles := MagickGetImageProfiles(wand, pattern, number_profiles);
// error checking goes here, as described by API documentation 
p := profiles;
for i := 0 to number_profiles-1 do
  Writeln(profiles[i]);
MagickRelinquishMemory(profiles);