C 到 Delphi 翻译

Question

我有一个程序在回调函数中崩溃(用 Delphi 6 编写)的问题。该函数在该函数中没有任何问题，因为它在其他地方使用，并且我有一个跟踪语句作为该函数中获取输出的最后一行。我想知道我的界面是否有问题。 C 头文件的摘录是...

/*
#ifdef SSLCLIENT_EXPORTS
    #define SSLCLIENT_API __declspec(dllexport)
#else
    #define SSLCLIENT_API __declspec(dllimport)
#endif
*/
#define SSLCLIENT_API
#define CDR_EXPORT CALLBACK

typedef int   CDRHANDLE;
//  The definition of preceding call back functions is as follows:
#define CDR_PRORESS_CONTINUE 0
#define CDR_CANCEL_CONNECTION -1

#define CONNECTION_TERMINATED       1
#define CONNECTION_CLOSED           2

#ifdef __cplusplus
//extern "C" {
#endif

typedef int (CDR_EXPORT *RECEIVEINGFUNC )
(
    char *callData,
    void *applicationData
);

SSLCLIENT_API CDRHANDLE CDR_EXPORT CdrOpenConnection
(
   char             *IPAddressOrMachineName,
   char             *usernameOfCDRUserGroup,
   char             *password,
   RECEIVEINGFUNC    CDRRecord,
   STOPFUNC          CDRStop,
   void             *applicationData
);


#ifdef __cplusplus
//} // extern "C"
#endif
#endif

我使用 Drbobs 程序生成了一个 Delphi 源代码，它给出了...

type
  RECEIVEINGFUNC = function(CallData: PChar; ApplicationData: Pointer): integer;
  STOPFUNC = procedure(StopReason: integer; ApplicationData: Pointer);

(*  = INT (CDR_EXPORT*RECEIVEINGFUNC ) ( CHAR*CALLDATA, VOID*APPLICATIONDATA );
type
  = VOID (CDR_EXPORT*STOPFUNC ) ( INT STOPREASON, VOID*APPLICATIONDATA );
*)

var
  CdrOpenConnection: function(IPAddressOrMachineName: PChar;
                              usernameOfCDRUserGroup: PChar;
                              password: PChar;
                              CDRRecord: RECEIVEINGFUNC;
                              CDRStop: STOPFUNC;
                              applicationData: Pointer): CDRHANDLE cdecl  {$IFDEF WIN32} stdcall {$ENDIF};

我有功能

function DoCdrRecord1(CallData: PChar; ApplicationData: Pointer): integer;
begin
  try
    // do stuff...
    trace('DoCdrRecord1::back from _HndlCdrRec');
  except
    on e: exception do
    begin
      trace('DoCdrRecord1::exception -> ' + e.message);
    end;
  end
end;

我的问题是...

1. 上面的 Delphi 声明看起来正确吗？
2. 我应该在编译程序时包括 WIN32 吗？

我不知道程序哪里出错了。非常感谢任何帮助。

Answer 1

<强>1。上面的 Delphi 声明看起来正确吗？

它们是正确的，只有一个异常(exception)。两种回调函数类型的调用约定不正确。在 C 代码中，回调函数类型使用 CDR_EXPORT 声明，而 CDR_EXPORT 又定义为 CALLBACK。这又在 Windows 头文件和 __stdcall 中定义。所以您的 Delphi 函数类型需要匹配。

RECEIVEINGFUNC = function(CallData: PChar;
    ApplicationData: Pointer): integer; stdcall;
STOPFUNC = procedure(StopReason: integer;
    ApplicationData: Pointer); stdcall;

这是翻译中唯一的错误。

<强>2。编译时我应该包括WIN32吗？程序？

我猜你的意思是，定义而不是包括。这里没什么可做的。 WIN32 条件由 Delphi 6 编译器定义。您不需要定义它。

我希望 IFDEF 在那里，因为 Bob 博士的转换器最初针对 16 位 Delphi 1。在 16 位 Windows 上，默认的 Windows 调用约定是早已被遗忘的 pascal 调用约定。该 IFDEF 现在已成为遗物，您可以将其删除。但自然而然地保留 stdcall。

我对自动 header 翻译器从来都不是特别满意。我个人认为您最好手动完成。