delphi 调用 VC 的 DLL

Question

Delphi 调用VC的DLL
VC中DLL声名格式： Extern “C” void __declspec(dllexport) __stdcall ShowMess(HWND hwnd, char* mess);输出格式为：_ShowMess@8，“8”为函数参数字节数为了避免名称分裂，可采用以下方法解决：1.声明中不加__stdcall，采用VC默认格式__cdecl，但在Delphi中要注明调用格式为cdecl。2.在VC工程中添加def文件，如：LIBRARYEXPORTSShowMess @1则DLL中输出函数名称不分裂。
Delphi中调用格式： Procedure ShowMess (h:HWND; mess:PChar); Stdcall;{Cdecl;} external LibName;如无Stdcall或Cdecl声名，Delphi默认Register(FastCall)调用格式。
注意Delphi与VC的对齐格式不同，在VC中定义结构时要用以下格式： #pragma pack(4)//结构定义#pragma pack()

Answer 1

vb能调应该是Stdcall
回调函数声明错了

Answer 2

声明如下：Type
  Pparam_byname_data = ^Tparam_byname_data;
  Tparam_byname_data = record
    point_name : array[0..255] of Char ;
    param_name : array[0..255] of Char ;
    param_offset : LongInt ;
    padding1 : LongInt ;     //for byte alignment between VB and C
    param_value : Variant;
    param_type : word;
    padding2 : Integer ;   //for byte alignment between VB and C
    status : LongInt ;
End; {param_byname_data}  function rhsc_param_value_put_bynames(Server : PChar; num_requests : Integer;
    numb_prm:Pparam_byname_data) : LongInt; cdecl;
    external  'hscnetapi.dll';调用
var servername: array[0..255] of char;
    params    : arrray[0..10] of Tparam_byname_data;    fillchar(servername,0,256);
    fillchar(params,0,sizeof(Tparam_byname_data)*11);
    rhsc_param_value_put_bynames(@servername[0],11,@params[0]);