3

我有 dll，它接受来自 C++ 的指向字节数组的指针，并尝试通过以下方式将此数据移动到 AnsiString

procedure Convert(const PByteArr: Pointer; ArrSize: Cardinal); export; cdecl;
var
  Buf: AnsiString;
begin
  SetString(Buf, PAnsiChar(PByteArr^), ArrSize);
end;

如果我从 Delphi 调用这个方法

procedure Try;
var
  M: TMemoryStream;
  Arr: TBytes;  
begin
  M := TMemoryStream.Create;
  try
    M.LoadFromFile('myfile.dat');
    SetLength(Arr, M.Size);
    M.Position := 0;
    M.Read(Arr[0], M.Size);
  finally
    M.Free;
  end;
  Convert(@Arr, Length(Arr));
end;

它工作正常，但从 c++ 如果在 SetString 上给出 AV。

请帮我解决一下这个。

来自 RredCat：

让我对 Yuriy 的问题添加一些解释：首先是关于我们使用的语言。我们需要在 C# 项目中调用 Delphi dll。为此，我创建了 C++\CLI 层（代理）。现在关于头文件中的 C++\CLI 代码：

HINSTANCE hDelphiDLL;
typedef void (*pPBDFUNC)(byte* aBytes, int size);
pPBDFUNC Convert;

在 cpp 我在构造函数中设置 Convert ：

hDelphiDLL = LoadLibrary(<path to dll>);

if(NULL != hDelphiDLL ){
    pPBDFUNC clb= GetProcAddress(HMODULE(hDelphiDLL), "Convert");
        if(NULL != clb){
            Convert= pPBDFUNC (clb);
        }...

最后一个我从 C# 调用的方法：

void Class1::Test(byte* aBytes, int size){
    Convert(aBytes,size);
}
4

2 回答 2

5

您的 Delphi 代码将指针传递给指向字节数组的指针。将其简化为仅使用指向字节数组的指针：

procedure Convert(const PByteArr: Pointer; ArrSize: Cardinal); export; cdecl;
var
  Buf: AnsiString;
begin
  SetString(Buf, PAnsiChar(PByteArr), ArrSize);
end;

并将其称为

Convert(@Arr[0], Length(Arr));

或者

Convert(Pointer(Arr), Length(Arr));

这是一样的。

于 2012-02-01T15:34:07.043 回答
1

您正在使这项任务比它需要的复杂得多。当您拥有现有的 C 或 C++ 代码主体或具有非常大接口的本机库时，C++/CLI 非常有用。只要您只有少数几个函数，直接 p/invoke 到本机 Delphi DLL 就可以了。

Serg 已经在您的 Delphi 函数中指出了虚假的额外间接级别。所以我会把Delphi函数写成：

procedure TestFunction(Text: PAnsiChar); stdcall;
var
  Buf: AnsiString;
begin
  Buf := Text;
end;

在 C# 端，您可以像这样声明函数：

[DllImport(@"mydll.dll")]
static extern void TestFunction(string Text);

您可以从 C# 代码中调用此函数，如下所示：

TestFunction("Hello");
string str = GetStringFromSomewhere();
TestFunction(str);

就是这样！由于在 C# 端您有一个字符串变量，您可以依靠 p/invoke 编组器向本机代码提供一个以 null 结尾的字符串。因此没有必要传递长度。p/invoke 的默认调用约定stdcall在 Delphi 代码中更受欢迎。

于 2012-02-01T18:38:54.173 回答