关于Delphi：Delphi – 程序无法完成，但在“showmessage”之间工作正常。

Delphi - procedure fails to complete, but works fine with “showmessage” between.?

我不太确定如何问这个问题，因为我不知道它是否与执行时间，应用程序进程，消息程序或其他任何内容有关。

我(对我来说)奇怪的情况，程序无法运行并在运行时引发系统异常，而如果我在其间放置"showmessage"，它完全无故障运行(我这样做，以便我可以很快看到会发生什么介于两者之间。我更喜欢这种方式而不是手表...)。

我不确定代码是否重要，但我会在下面给出：

1
2
3
4
5
6
7
8
9
10

procedure LoadSettings;
var SettingsBuffToLoad: TStringList;
begin
SettingsBuffToLoad:=TStringList.Create;
Encoding:=TEncoding.ANSI;
SettingsBuffToLoad.LoadFromFile('bin/settings.txt', Encoding);
// showmessage(settingsbufftoload.Strings[0]);
SettingsBuffer:=Decode(SettingsBuffToLoad);
// showmessage(settingsbuffer.Strings[0]); //decode
end;

解码过程声明为外部，并从dll读取。

如果我只删除那些"/"，以便它成为代码而不是注释，它就可以正常工作。但是，按照您现在的设置，它会引发异常，但在该过程已经完成之后。 (调试器的最后一个断点在"end;"处停止，然后继续它会引发异常而不是显示表单;此过程在FormCreate过程中被调用为最后一个。

有没有什么与时间有关，ShowMessage解决了，还是......？：/

更新：
解码函数，如下所述：

这是它的声明方式，正好在表单的实现和变量之上：

function Decode(Buff：TStringList)：TStringList; STDCALL;外部'bin settings.txt';

这是在DLL中：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

function Decode(Buff: TStringList): TStringList; export;
var
t, u, h: integer;
s: String;
begin
DecodeBuffer.Clear;
DecodeBuffer:=Buff;
for h := 0 to DecodeBuffer.Count-1 do
begin
s := DecodeBuffer.Strings[h];
t := Length(s);
if t > 0 then
begin
for u := 0 to t-1 do
begin
s[u+1] := DecodeChar(s[u+1], (h mod 5) + 1);
end;
DecodeBuffer.Strings[h] := s;
end;
end;
Result:=DecodeBuffer;
end;

这个代码在Delphi的一个问题中进行了讨论，在字符串中更改了Chars - 错误理解的行为 - XE3，并使用了Remy的答案。 DecodeChar，我相信在这里根本不重要，或者是它？

此外，保存设置的功能也是如此，在FormClose事件中调用：

这是：

1
2
3
4
5
6
7
8
9
10

procedure TScribbles.SaveSettings;
var SettingsBuffToSave: TStringList;
begin
SettingsBuffToSave:=TStringList.Create;
Encoding := TEncoding.ANSI;
// Showmessage(settingsbuffer.Strings[0]);
SettingsBuffToSave:=Encode(SettingsBuffer);
// Showmessage(settingsbufftosave.Strings[0]);
SettingsBuffToSave.SaveToFile('bin/settings.txt', Encoding);
end;

第一个ShowMessage用作代码而不是注释，它可以工作，而在上面写的注释函数中，它以与Decode相同的方式调用外部异常。
是否有可能，当它已经调用函数Encode时，尚未创建SettingsBuffToSave，或者是什么？
那时，SettingsBuffer存在并被填充，所以它引发错误似乎很奇怪，只需将ShowMessage放在那里就会消失。

(函数编码基本上是解码的镜像，所以代码在这里并不重要......)

相关讨论

如果我们对Decode函数一无所知，那么几乎不可能帮助您解决这个问题。什么是DLL函数声明？它期待什么参数，它返回什么类型？没有这些信息，你要求我们猜测可能出现的问题，你可以自己做。
Decode返回什么？谁对它的回报负责？它是如何被摧毁的？
我预计我可能需要发布更多代码......就像我说的那样，我不知道发生了什么以及它停止了..然而，@ Ken，Decode函数被声明为外部，stdcall，期望TStringList并返回完全相同的。我在这里的另一个问题中对此进行了讨论，它只是在字符串列表的每个字符串中交换字符。我很抱歉，如果它看起来我想要你猜，我只是不知道我应该发布多少，因为背后有很多代码，而且，如上所述，如果我放一个简单的ShowMessage之间，什么都没有任何意义......
@SertacAkyuz你的意思是"谁对它的回报负责"和"它是如何被摧毁的"？该函数简单地声明为外部函数，之后才调用。与FromClose事件上的Encode功能相同，基本上也有同样的问题;与showmessage它只是工作。我正在用Decode函数更新问题;
@Just - 我的查询涉及通过模块边界传递的内容，dll是否将可执行文件交给字符串或类等，以及如何管理其生命周期。不是如何声明函数等。你的问题和大卫的答案现在包括相关的细节/信息。
@JustMarc：期望我们查看您的个人资料，看看您是否在之前的问题中提供了详细信息，这有点不合理。如果您包含该信息("我之前询问过此代码")并包含指向您之前帖子的链接，那么我们就可以找到它。
@Ken我确实在我的问题中包含了这个链接。请参见下面的第二段代码段。
@Marc：是的，但是在我做出第一次评论之后，这很好。 :-)如果你从一开始就把它包括在内，我就不需要留下那个评论，这就是为什么我提到它。

这段代码在很多层面都非常危险。以不安全的方式跨DLL边界使用对象。跨函数调用的对象指针管理不善。你需要重新设计。尝试以下作为开始：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

procedure Decode(Buff: PChar; BuffLen: Integer; ListIndex: Integer); stdcall; export;
var
u: integer;
begin
for u := 0 to BuffLen-1 do
begin
Buff^ := DecodeChar(Buff^, (ListIndex mod 5) + 1);
Inc(Buff);
end;
end;

procedure Encode(Buff: PChar; BuffLen: Integer; ListIndex: Integer); stdcall; export;
var
u: integer;
begin
for u := 0 to BuffLen-1 do
begin
Buff^ := EncodeChar(Buff^, (ListIndex mod 5) + 1);
Inc(Buff);
end;
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

procedure Decode(Buff: PChar; BuffLen: Integer; ListIndex: Integer); stdcall; external '...';

procedure Encode(Buff: PChar; BuffLen: Integer; ListIndex: Integer); stdcall; external '...';

procedure LoadSettings;
var
h: Integer;
begin
SettingsBuffer := TStringList.Create;
SettingsBuffer.LoadFromFile('bin/settings.txt', TEncoding.ANSI);
for h := 0 to SettingsBuff.Count-1 do
begin
Decode(PChar(SettingsBuff[h]), Length(SettingsBuff[h]), h);
end;
end;

procedure TScribbles.SaveSettings;
var
h: Integer;
begin
for h := 0 to SettingsBuff.Count-1 do
begin
Encode(PChar(SettingsBuff[h]), Length(SettingsBuff[h]), h);
end;
SettingsBuff.SaveToFile('bin/setpb95enc.dll', TEncoding.ANSI);
end;

相关讨论

这个答案中的代码很好。我想我会避免在这里使用危险这个词。这意味着Q中的代码有效，但容易出错。它肯定无效，因为我知道你认识。
为什么这很危险？我的意思是，如果我在每一行再次传递整个stringlist，有什么区别？我的代码重新设计是不是也可行，所以我把它作为字符串传递？为什么PChar更好？
另外，为什么这个重新设计与你在其他答案中回答的那个(在我的问题中链接的主题)有很大的不同和更好？正如@David所说的那样，我应该将整个代码放在exe中，这是重新设计而不是保持在dll中的好处吗？
对于PChar，我想我从@ David的评论中得到了答案......其余的，期待你的意见。
我不知道怎么能设法让这个答案/代码工作。我在加载和保存调用时都会遇到访问冲突错误。 (另外，保存的第二个文件是settings.txt，用于问题。我只更改了这个问题，但在更新问题代码时忘了它。否则setpb95enc.dll只是一个settings.txt重命名，所以它没有出现在文本文件中... Uops ...)
@JustMarc答案中的代码很好。这是你的代码被破坏了。你有没有听从我给你的建议？特别是你在我的回答中做了第4和第5项吗？在EXE和DLL中？
@JustMarc：我在另一个问题中给你的代码并不是设计用于跨越DLL边界。这为情况增加了一层全新的复杂性。跨边界使用对象，字符串和其他动态/托管类型是不安全的，除非通过启用ShareMem，运行时包等将EXE和DLL编译为使用相同的RTL，相同的内存管理器等。否则，不保证匹配内存布局/语义。通过切换到PCbar参数，它将指针直接传递给字符数据，从而避免任何内存管理/布局问题。
@JustMarc：有很多博客，文章等更详细地解释了DLL互操作问题，特别是在传递字符串参数时，这在DLL编程中很常见。
@Remy谢谢，现在我看到了，正如所说的那样，我知道为什么从大卫的回答中使用了PChar。但是，这个确切的代码不能在我的程序中运行。我完全删除了我在dll中的所有代码，以及之前与之通信的每个exe文件。但它会引发访问冲突。：/唉，我想我会没有dll。这将是最好的事情..我真的以为我正在以正确的方式做到这一点，并且有简单(或更好的说逻辑！)解释为什么从缓冲区读取的ShowMessage解决了这个问题。如果showmessage是随机字符串('你好')
它仍然无法正常工作。就好像它读取缓冲区本身一样。很抱歉打扰并感谢解决方案！

这里显而易见的问题是代码存在于DLL中。很可能你没有安排DLL来共享它的主机堆。并且Delphi类不能跨DLL边界传递。

如果要在模块之间共享Delphi类，则必须使用包。当然，另一种选择是将所有代码放在同一个模块中。那就是删除DLL，并编译可执行文件中的所有内容。最后一个选项是为DLL使用有效的互操作类型。

当然，实际错误可能还有其他原因。代码闻起来很糟糕。例如，这是什么：

1	DecodeBuffer:=Buff;

DecodeBuffer是全局变量吗？如果是这样，那么在物体被摧毁后引用它是合理的。并不是说我能看到任何被破坏的证据。不希望看起来粗鲁，你的代码看起来可能有多个问题。作为紧急事项，您需要：

处理上面描述的DLL问题。

删除全局变量。

修复终身问题。停止泄漏。

启用范围检查以查找缓冲区溢出。

在调试模式下添加FastMM以尝试捕获堆损坏。

相关讨论

我不确定你的意思是我没有安排DLL来共享它的主机堆？你还意味着delphi类不能通过dll传递？为什么它会在它之间使用像ShowMessage这样的东西，以及它在代码中发生了什么变化？它怎么会在这里具有如此重要的意义？
哦，和DecodeBuffer：= Buf - >这是由于Remy的其他主题/问题建议，我需要在做任何事情之前做一些缓冲区(stringlist)的"副本"。所以我就是这样做的。 DecodeBuffer：= TStringList.Create在dll本身！中声明，并且不作为全局变量传递;它是在一个dll的Begin部分创建的，所以在第一次加载dll时是AFAIK，而且在所有内容都已经完成之后我称它为destroy(.free);这是应用程序在破坏时做的最后一件事。 SaveSettings程序后;
肯定是在LoadSettings之后(因为这是在app start中调用的第一个过程)。在dll实际完全初始化之前，我是否有可能在LoadSettings中调用该过程？我的意思是，真的，ShowMessage有什么不同，除了代码暂停继续执行？
@JustMarc DecodeBuffer:=Buf不复制缓冲区。它需要引用字符串列表对象。你用DecodeBuffer做了什么？现在，使用Sharemem实现共享堆。但这对你没什么帮助。因为您无法跨DLL边界传递Delphi类。 Delphi类对DLL互操作无效。您需要简单的类型，例如您可能在Windows API中找到的类型。
在dll实际完全初始化之前，我是否有可能在LoadSettings中调用该过程？不它不是。你需要深呼吸，并考虑我告诉你的可能性是正确的。您无法跨DLL边界传递Delphi类。
我想到的方法是在你的可执行文件中你有一个名为TStringList的类。在DLL中，您有一个名为TStringList的类。他们不是同一个班级。它们的名字相同。他们的方法名称相同。但他们是不同的阶级。你偶然可以通过调用这样的函数来逃避。有时。但这是错的。您必须停止跨DLL边界传递Delphi类。以前在很多不同的地方已经多次讨论过这个问题。
好的，我明白了，我完全相信你。所以基本上@harmy的答案中的PChar是因为StringList是无效的WinApi类，对吗？仍然，只是好奇，为什么它实际上与ShowMessage一起工作？
是的，由于我所描述的限制，@ Remy正在传递互操作友好类型。正如我所说，我不同意他使用"危险"这个词。问题比这更严重。为什么当你投入ShowMessage时它会起作用？谁知道？也许除了雷米和我指出的那个之外还有其他错误。我们无法看到所有代码。当你调用这样的未定义行为时，预测发生的事情非常困难。未定义的行为本质上是不可预测的。
我恳请你在我的答案中执行所有五个逐项的步骤。它们都很重要。
好。我认为对于那里的ShowMessage有什么变化有更深层的解释。如果它只是随机"它使代码工作"插入代码的一部分，我猜我的问题是不可能的。我需要改变整个概念。

我想我知道这里发生了什么：我认为你的筹码被粉碎了。

此外，我更怀疑实际原因是使用未初始化变量的Decode过程。您的ShowMessage语句(如果我是正确的话，它将是第一个重要的)更改堆栈中的内容，从而更改未初始化的变量。

如果我是对的，这将有一些heisenbug属性 - 你做的任何事情，以找出正在发生的事情将改变未初始化的变量的价值。

要尝试的一件事：声明一个大的局部变量(想法是用尽堆栈空间)并确保编译器不会丢弃它。这将把事情转移到记忆中，从而可能化解爆炸。如果它有效，它对于正在发生的事情是非常确定的。

相关讨论