用字符串从delphi调用c dll

我试图从Delphi XE5调用dll。

我花了大约一天的时间在Google上搜索“从Delphi调用C DLL”之类的内容，但发现了许多页面，但没有任何帮助。

我收到了有关如何在VB中调用dll的示例：

Declare Function IxCommand Lib "IxxDLL.dll" (ByVal command As String, ByVal mailbox As String) As Integer

...

Sub Command1_Click ()
         Dim command As String * 135
         Dim mailbox As String * 135

         command = "move:a,1000"
         IxCommand( command, mailbox)
End Sub

还可以在VC 6.0中调用DLL：

#include "stdafx.h"

#include "windows.h"
#include "stdio.h"
#include "string.h"

typedef UINT (CALLBACK* LPFNIXDLLFUNC)(char *ixstr, char *mbstr);

int main(int argc, char* argv[])
{
    HINSTANCE hDLL;              // Handle to DLL
    LPFNIXDLLFUNC lpfnIxDllFunc; // Function pointer

    hDLL = LoadLibrary( "IxxDLL.dll" );

    if (hDLL == NULL) // Fails to load Indexer LPT
    {
        printf("Can't open IxxDLL.dll\n");
        exit(1);
    }
    else // Success opening DLL - get DLL function pointer
    {
        lpfnIxDllFunc = (LPFNIXDLLFUNC)GetProcAddress(hDLL, "IxCommand");
    }

    printf( "Type Indexer LPT command and press <Enter> to send\n" );
    printf( "Type \"exit\" and press <Enter> to quit\n\n" );

    while( 1 )
    {
        char ix_str[135];      // String to be sent to Indexer LPT
        char mailbox_str[135]; // Results from call into Indexer LPT

        gets( ix_str ); // Get the string from the console
        if( _stricmp( ix_str, "exit" ) == 0 ) // Leave this program if "exit"
            break;
        lpfnIxDllFunc( ix_str, mailbox_str ); // Otherwise call into Indexer LPT
        printf( "%s\n\n", mailbox_str );      // Print the results
    }

    FreeLibrary( hDLL );
    return 0;
}

我注意到一个麻烦是需要在调用DLL之前定义内存分配的大小，如上所示。

dll在第一个参数中接受命令，并在第二个参数中返回结果文本。

这是我生成的尝试调用DLL的Delphi代码。我知道dll加载是因为它具有显示的启动屏幕。当我调用dll时，没有错误生成。您将看到我使用数组分配空间，然后将其位置分配给Pchar变量。我没有原始dll的任何头文件，也没有源代码。您将看到我使用stdcall声明了外部函数，但我也尝试了cdecl且未做任何更改。

问题： arg2中返回的信息不是预期的文本字符串，而是翻译成非英语字符（看起来像中文）的字符串。

我猜我没有向dll发送正确的变量类型。

问题：有人可以帮助我制定外部函数的声明并正确使用它，以便我根据需要取回文本字符串吗？

见下文：

function IxCommand (command : PChar; mailbox : PChar) : Integer; stdcall; external 'IxxDLL.dll';

...

procedure TfrmXYZ.btn1Click(Sender: TObject);

var
  LocalResult : Integer;
  arg1,
  arg2        : PChar;


  ArrayStrCmd : array[0..134] of char;
  ArrayStrMbx : array[0..134] of char;

begin

  ArrayStrCmd := 'Accel?:a' + #0;
  ArrayStrMbx := '          ' + #0;
  arg1 := @ArrayStrCmd;
  arg2 := @ArrayStrMbx;


  LocalResult := IxCommand(arg1, arg2);

end;