Question

我想使用Delphi代码，通过C ++ Builder中的DLL导出

Delphi Code片段就像这样

//  function declare 
function NameData(ItemIndex: Integer;
  Buffer: PAnsiChar; var BufSize: DWORD): DWORD; stdcall;
  external 'database.dll' 


// function calling code 
  s1, S2: AnsiString;
begin


  for i := 1 to  ...  do
  begin
    BufSize := 0;
    NameData(i, nil, BufSize);
    SetLength(s1, BufSize);
    NameData(i, PAnsiChar(s1), BufSize);

    mmo_dll.lines.Add(' name ->  ' + string(s1));

相关的DLL代码

library DLLCode; 


function NameData(ItemIndex: Integer;
  Buffer: PAnsiChar; var BufSize: DWORD): DWORD; stdcall;
var
  returnString: Ansistring;
begin
  returnString := ' call some other functions .....';

  if BufSize < Length(returnString) then
    result := ERROR_BUFFER_TOO_SMALL
  else
  begin
    StrPCopy(Buffer, returnString);
    result := ERROR_NO_ERROR;
  end;
  BufSize := Length(returnString);
end;

这和很多东西工作正常，Delphi和Delphi DLL。现在这是我的工作C ++代码：

//  function prototype 
typedef void (__stdcall*IntCharIntIn_VoidOut)(int, PAnsiChar, int);

// DLL prototype 
extern "C" __declspec(dllimport)
    IntCharIntIn_VoidOut  __stdcall NameData(int, PAnsiChar, int);

//  instance declaration 
IntCharIntIn_VoidOut   NameData;


//  load library data, no error raise,  other simpler function call already working

........
NameData = (IntCharIntIn_VoidOut)::GetProcAddress(load,
            "NameData");


///  calling code 
    int  Bufsize;
    PAnsiChar DataName;


    for (i = 0; i < count - 1; i++) {

        *Bufsize = 0;

        NameData(i, NULL, Bufsize);

        StrLen(SignalName);

        NameData(i, DataName, Bufsize );


        Memo1->Lines->Add(IntToStr(i));  // for test only 
    }

在第二次通话中，我遇到了访问冲突，但无法查看原因/我错在哪里

Answer 1

你没有分配任何内存，你的功能声明是错误的。

该函数确实应该这样声明：

typedef void (__stdcall *IntCharIntIn_VoidOut)(int, char*, unsigned int*);

您的主叫代码应为：

unsigned int Bufsize;
char* DataName;

for (i = 0; i < count - 1; i++) {
    Bufsize = 0;
    NameData(i, NULL, &Bufsize);
    DataName = new char[Bufsize + 1];
    NameData(i, DataName, &Bufsize);
    // do something with DataName
    delete[] DataName;
}

我省略了对内存分配和释放的错误检查。如果是我，我将使用成熟的C ++字符串对象而不是原始内存。循环看起来好像错过了最后的迭代，肯定是<= count - 1或< count。您的类型名称IntCharIntIn_VoidOut无法识别其中两个参数是指针。我使用char*而不是PAnsiChar，但我猜后者只是前者的别名。

我会留下以上所有内容给你处理。

将Delphi DLL函数导入C ++ Builder，传输PAnsiChar

1 个答案: