c - Convert C Code to Delphi

Question

I need to convert this Line from C to Delphi.

Int CALLBACK EXPORT EXAMPLEFUNCTION(VOID){
  SETEVENT(hasync);
  Return Success;
}

Please i need some help.

thanks ;)

Answer 1

有点猜测，因为风格真的很乱，但我认为这会翻译成这样：

const Success = 1; //or whatever; might not be 1.
                   //assume a const definition for a value 
                   //called Success exists somewhere in scope

function EXAMPLEFUNCTION(): integer; stdcall; //CALLBACK = stdcall calling convention
begin
   SETEVENT(hasync); //hopefully this makes sense in context
   result := Success;
end;

这是我在没有进一步背景的情况下能做的最好的事情。该EXPORT声明是一个预处理器宏，它（可能）意味着这是 DLL 的一部分，并且这是一个应该可以由加载 DLL 的程序调用的函数。在 Delphi 中，这不是函数定义的一部分。相反，您将其放在exports子句中。