c - 如何将这个C函数指针转换为delphi函数

Question

有一个第三方C DLL，用Delphi 2007开发的程序(新手级别)，在DLL头文件中，函数结构比较复杂，有大神能给点思路吗？ C头文件定义:

typedef int (*SetValueFunc)(const char* path, const char* value);
typedef const char* (*GetValueFunc)(const char* path);
typedef const ConfigNode* (*GetPropertysFunc)();

typedef struct  tagIProperty
{
    SetValueFunc     SetValue;
    GetValueFunc     GetValue;
    GetPropertysFunc GetPropertys;
}IProperty;

调用C:

property->SetValue("0/baud_rate", "1000000")

如果有人给我一些建议，我将不胜感激。

Answer 1

尝试这样的事情:

type
  ConfigNode = record
    ...
  end;
  PConfigNode = ^ConfigNode;

  SetValueFunc = function(const path, value: PAnsiChar): Integer; cdecl;
  GetValueFunc = function(const path: PAnsiChar): PAnsiChar; cdecl;
  GetPropertysFunc = function: PConfigNode; cdecl;

  tagIProperty = record
    SetValue: SetValueFunc;
    GetValue: GetValueFunc;
    GetPropertys: GetPropertysFunc;
  end;
  IProperty = tagIProperty;

var
  property: ^IProperty;
...
property := ...;
...
property.SetValue('0/baud_rate', '1000000');