Delphi中DLL的结果，其中参数为PAnsiChar

Question

我有一个小问题。 在我的 DLL 中，我有：

uses
  ShareMem,
  SysUtils,
  Classes,
  Dialogs;

function My_func (Param1, Param2, Param3: PAnsiChar) : Integer;

var
  s1,s2,s3 : string;

begin

     s1 := string(Param1);
     s2 := string(Param2);
     s3 := string(Param3);
     ShowMessage(s1);
     ShowMessage(s2);
     ShowMessage(s3);

     My_func := 0;
end;

还有来自我的 TestUnit.pas 的调用

unit Utestunit;

interface

uses
  ShareMem, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;

procedure Button1Click(Sender: TObject);
type
  TMy_func = function (Param1, Param2, Param3: PAnsiChar) : Integer; StdCall;
var
  my_func : TMyfunc;

  error_code:integer;
  My_library : THandle;
  the_end : Boolean;
  path_library,
  path_library_full : string;

  test1,
  test2,
  test3 : array [0..255] of AnsiChar;
begin
  // open the DLL
  path_library := ExtractFilePath(Application.ExeName)+'DLL\RS_DLL.dll';
  path_library_full := ExtractFilePath(Application.ExeName)+'DLL\';
  SetCurrentDir(path_library_full);
  try
    the_end := False;
    My_library := SafeLoadLibrary(PChar(path_library));
    if My_library > 32 then
    begin
        @My_func := GetProcAddress(My_library, PChar('My_func'));
        if @My_func = nil then
        begin
          ShowMessage('There is no library in '+path_library);
          the_end := True;
        end;
    end
    else
    begin
      error_code := GetLastError;
      ShowMessage('Błąd biblioteki '+ sciezka_biblioteki+' nr:'+IntToStr(error_code));
      the_end := True;
    end;

    if not the_end then
    begin
      // the calling

      test1 := 'My string nr 1';
      test2 := 'My string nr 2';
      test3 := 'My string nr 3';

      kod_bledu := My_func(
          test1,
          test2,
          test3
      );      
    end;

  finally
    FreeLibrary(My_library);
    SetCurrentDir(ExtractFilePath(Application.ExeName))
  end;
end;

结果是：

My string nr 1

trash

trash

作为来自我的 DLL 的消息。

为什么只有第一个结果是好的，而其余的垃圾是？ 这只是我的应用程序中的测试。

Answer 1

这段代码中有很多非常不好的习惯，我不想去处理，因为这需要付出很多努力。

但是，该行为的原因是您没有在 DLL 中将函数声明为 stdcall。修复它，文本将正确传递。