The use of TADOCommand

玻璃小屋 — Mon, 15 Jan 2007 14:31:00 GMT

http://www.delphibbs.com/keylife/iblog_show.asp?xid=3889

delphi 调用 c++ 的dll的函数声明

玻璃小屋 — Wed, 13 Sep 2006 03:37:00 GMT

C++ 的dll头文件如下：

#ifdef __cplusplus
extern "C"
{
#endif

typedef long (__stdcall *DATADETECTEDPROC)(const unsigned char *pData, unsigned long ulSize, void *pContext);
typedef struct _FN_CONTEXT
{
    unsigned long ulFlags;
    DATADETECTEDPROC pfnDataDetected;
    void *pContext;
} FN_CONTEXT, *PFN_CONTEXT;
typedef const FN_CONTEXT *PCFN_CONTEXT;

long __stdcall InitCommContext(PCFN_CONTEXT pContext);
long __stdcall ExitCommContext();

#ifdef __cplusplus
}
#endif

相应的 delphi文件如下： dddc是一个回调函数。

unit Dlldrd;

interface
uses
  Windows;

type
  DATADETECTEDPROC = function(const pData: PByte; ulSize: DWORD; pContext: Pointer): LongWord;stdcall;

  _PFN_CONTEXT = ^_FN_CONTEXT;
  _FN_CONTEXT = record
    ulFlags: DWORD;
    pfnDataDetected: DATADETECTEDPROC;
    pContext: Pointer;
  end;

function dddc (const pData: PByte; ulSize: DWORD; pContext: Pointer): LongWord; stdcall;

function InitCommContext(pc:_PFN_CONTEXT):integer;stdcall;external 'DllIDRD_U.dll';

var
fc : _FN_CONTEXT;

implementation

uses
MainFrame;

function dddc (const pData: PByte; ulSize: DWORD; pContext: Pointer): LongWord;stdcall;
var
us : DWORD;
strCode : string;
begin
  us := ulSize;
  strCode := PChar(pData);
  Form1.ListBox_Log.Items.Add(strcode);
    result := 0;
end;

end.