当前位置：文江博客话题详情

AnsiString 从 Delphi 2009 应用程序中的 Delphi 2007 DLL 返回值

发布于 2024-07-24 23:31:35 字数 353 浏览 6 评论 0原文

我有一个用 D2007 编译的 DLL，它具有返回 AnsiStrings 的函数。

我的应用程序是在 D2009 编译的。当它调用 AnsiString 函数时，它会返回垃圾。

我创建了一个小测试app/dll来实验，发现如果app和dll都使用相同版本的Delphi（2007或2009）编译，则没有问题。但是当一个是 2009 年编译的，另一个是 2007 年编译的时，我得到的是垃圾。

我尝试在这两个项目中包含最新版本的 FastMM，但即使这样，2009 年的应用程序也无法从 2007 年的 dll 中读取 AnsiStrings。

你知道这里出了什么问题吗？有办法解决这个问题吗？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

随波逐流 2024-07-31 23:31:35

AnsiStrings 的内部结构在 Delphi 2007 和 Delphi 2009 之间发生了变化。（不要沮丧；这种可能性从第一天起就存在。）Delphi 2009 字符串维护一个数字，指示其数据所在的代码页。

我建议您这样做地球上所有其他 DLL 都会做的事情，并传递函数可以填充的字符缓冲区。调用者应该传递一个缓冲区指针和一个指示缓冲区大小的数字。（确保您清楚是以字节为单位还是以字符为单位测量大小。）DLL 函数填充缓冲区，写入的内容不超过给定的大小，并对终止空字符进行计数。

如果调用者不知道缓冲区应该有多少字节，那么您有两个选择：

使 DLL 在输入缓冲区指针为空时进行特殊操作。在这种情况下，让它返回所需的大小，以便调用者可以分配那么多空间并再次调用该函数。
让 DLL 为自己分配空间，并使用预定的方法供调用者稍后释放缓冲区。 DLL 可以导出一个函数来释放它已分配的缓冲区，也可以指定一些相互可用的 API 函数供调用者使用，例如 GlobalFree。您的 DLL 必须使用相应的分配 API，例如 GlobalAlloc。（不要使用 Delphi 的内置内存分配函数，如 GetMem 或 New；不能保证调用者的内存管理器知道如何调用 Free< /code> 或 Dispose，即使它是用相同的语言编写的，即使它是用相同的 Delphi 版本编写的。）

此外，编写只能由单一语言使用的 DLL 是自私的。按照与 Windows API 相同的风格编写 DLL，这样就不会出错。

回复收藏 0 原文

避讳 2024-07-31 23:31:35

好吧，所以还没有尝试过，所以在这个问题上加上了一个很大的免责声明。

在帮助查看器中，查看主题（RAD Stufio 中的 Unicode）ms-help://embarcadero.rs2009/devcommon/unicodeinide_xml.html

将 Delphi 2007 字符串返回到 Delphi 2009，您应该遇到两个问题。

首先是 Rob 提到的代码页。您可以通过声明另一个 AnsiString 并在新 AnsiString 上调用 StringCodePage 来设置此值。然后通过调用 SetCodePage 将其分配给旧的 AnsiString。这应该可行，但如果不行，仍然还有希望。

第二个问题是元素大小，这将是完全疯狂的事情。它应该是 1，所以将其设为 1。这里的问题是没有可以依赖的 SetElementSize 函数。

试试这个：

var
  ElemSizeAddr: PWord; // Need a two-byte type
  BrokenAnsiString: AnsiString; // The patient we are trying to cure
...
  ElemSizeAddr := Pointer(PAnsiChar(BrokenAnsiString) - 10);
  ElemSizeAddr^ := 1; // The size of the element

应该可以了！

现在，如果 StringCodePage/SetCodePage 不起作用，您可以执行与上面相同的操作，更改我们获取地址的行以扣除 12，而不是 10。

它上面写满了 hack，这就是我喜欢它的原因。

您最终需要移植这些 DLL，但这使得移植更易于管理。

最后一句话 - 根据您返回 AnsiString 的方式（函数结果、输出参数等），您可能需要首先将字符串分配给不同的 AnsiString 变量，以确保不会出现内存被覆盖的问题。

OK, so haven't tried it, so a big fat disclaimer slapped on this one.

In the help viewer, look at the topic (Unicode in RAD Stufio) ms-help://embarcadero.rs2009/devcommon/unicodeinide_xml.html

Returning the Delphi 2007 string to Delphi 2009, you should get two problems.

First, the code page mentioned by Rob. You can set this by declaring another AnsiString and calling StringCodePage on the new AnsiString. Then assign that to the old AnsiString by calling SetCodePage. That should work, but if it doesn't there is hope still.

The second problem is the element size which will be something completely mad. It should be 1, so make it 1. The issue here is that there is no SetElementSize function to lean on.

Try this:

var
  ElemSizeAddr: PWord; // Need a two-byte type
  BrokenAnsiString: AnsiString; // The patient we are trying to cure
...
  ElemSizeAddr := Pointer(PAnsiChar(BrokenAnsiString) - 10);
  ElemSizeAddr^ := 1; // The size of the element

That should do it!

Now if the StringCodePage/SetCodePage thing didn't work, you can do the same as above, changing the line where we get the address to deduct 12, instead of 10.

It has hack scribbled all over it, that's why I love it.

You are going to need to port those DLLs eventually, but this makes the port more manageable.

One final word - depending on how you return the AnsiString (function result, output parameter, etc) you may need to first assign the string to a different AnsiString variable just to make sure there is no trouble with memory being overwritten.

回复收藏 0 原文

乙白 2024-07-31 23:31:35

您可能只需要将 DLL 转换为 2009。根据 Embarcadero 的说法，转换为 2009 非常“简单”，并且不会花费您任何时间。

回复收藏 0 原文

浅浅 2024-07-31 23:31:35

您的 DLL 一开始就不应该返回 AnsiString 值。首先，正确工作的唯一方法是 DLL 和 EXE 都使用 ShareMem 单元编译，即使如此，也只有它们使用相同的 Delphi 版本编译。 AFAIK，D2007 的内存管理器与 D2009 的内存管理器（或任何其他跨版本使用的内存管理器）不兼容。

回复收藏 0 原文

离线来电— 2024-07-31 23:31:35

我同意 Rob 和 Remy 的观点：普通 Dll 应该返回 PAnsiChar
AnsiStrings 的。

如果使用 D2009 编译 DLL 工作正常，为什么不停止编译它
用D2007开始编译然后用D2009一劳永逸？

回复收藏 0 原文

锦爱 2024-07-31 23:31:35

就像这里的快速解决方案一样：如果字符串中从 dll 传回的实际数据不超过 255 个字符，您可以更改 in-dll 和接口声明以使用 ShortString，无论 2007/2009 版本如何，它都可以工作。由于您在 2007 年就已经使用 AnsiString，没有代码页标识符，因此 unicode 不会给您带来任何麻烦。

如果你这样做，你需要做的就是更改如下声明：（

function MyStringReturningFunction : ShortString ; external 'MyLibrary.dll';

以及分别在dll中：function MyStringReturningFunction : ShortString;）

当然输入/输出参数也是如此：

procedure MyStringTakingAndReturningFunction(s1:ShortString; var s2:ShortString); external 'MyLibrary.dll';

应该比改变很多代码。但要小心，正如我所说，您的数据不得超过 255 个字符，因为这是 ShortString 可以容纳的最大大小。

Just as a quick solution here: if your actual data that you pass back from dll in the string does not exceed 255 chars, you can change both the in-dll and interface declerations to use ShortString, which will work regardless of 2007/2009 version. Since you're using AnsiString already on 2007 without a codepage identifier, unicode wont give you any trouble.

if you go this way, all you need to do is change the declarations like:

function MyStringReturningFunction : ShortString ; external 'MyLibrary.dll';

(and in dll: function MyStringReturningFunction : ShortString; respectively)

Same goes for input/output parameters of course:

procedure MyStringTakingAndReturningFunction(s1:ShortString; var s2:ShortString); external 'MyLibrary.dll';

Should be easier than changing a lot of code. But be careful, as I said, your data must not exceed 255 characters since that is the maximum size a ShortString can hold.

回复收藏 0 原文

~没有更多了~