Question

我试图从Delphi XE5调用一个dll。

我花了一天左右的时间用Google搜索来自Delphi的＃C; Call C DLL＆＃34;并找到了一些页面，但没有什么真正帮助我。

我收到了如何在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;

Answer 1

问题是字符编码。在Delphi 2009+中，PChar是PWideChar的别名，但DLL使用的是Ansi字符串，因此您需要使用PAnsiChar而不是PChar。

试试这个：

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

...

procedure TfrmXYZ.btn1Click(Sender: TObject);
var
  LocalResult : Integer;
  ArrayStrCmd : array[0..134] of AnsiChar;
  ArrayStrMbx : array[0..134] of AnsiChar;
begin
  ArrayStrCmd := 'Accel?:a' + #0;
  LocalResult := IxCommand(ArrayStrCmd, ArrayStrMbx);
end;

可替换地：

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

...

procedure TfrmXYZ.btn1Click(Sender: TObject);
var
  LocalResult : Integer;
  ArrayStrCmd,
  ArrayStrMbx : AnsiString;
begin
  SetLength(ArrayStrCmd, 135);
  StrPCopy(ArrayStrCmd, 'Accel?:a');
  SetLength(ArrayStrMbx, 135);
  LocalResult := IxCommand(PAnsiChar(arg1), PAnsiChar(arg2));
end;

Answer 2

您正在使用Unicode版本的Delphi，Char是16位WideChar的别名，PChar是PWideChar的别名。

只需将Char替换为AnsiChar，将PChar替换为PAnsiChar。

function IxCommand(command, mailbox: PAnsiChar): Cardinal; 
  stdcall; external 'IxxDLL.dll';

返回值为UINT，在Delphi中映射到Cardinal。

您使用的调用代码不必要地复杂。我这样做：

var
  retval: Cardinal;
  mailbox: array [0..134] of AnsiChar;
....
retval := IxCommand('Accel?:a', mailbox);
// check retval for errors

正如您所看到的，缓冲区溢出有余地。我不确定你是怎么想防范的。图书馆的文档（如果存在）可能会解释如何。

用字符串从delphi调用c dll

2 个答案: