将此 C 代码移植到 Delphi/Lazarus

Question

我有这段 C 代码，我想移植到 Delphi，但我无法让它工作。

.CPP 代码

#include <Windows.h>

#include <io.h>
#include <stdio.h>

#include "GLibExp.h"
#pragma comment(lib, "GLib.lib")

void MyCFunc(LPCTSTR GStr)
{
    GFile GVar = NULL;
    GVar = GrfLoad(GStr, 1);
    if ( !GVar )
    {
        printf("Error during loading!\n");
    } else
        printf("All fine!\n");

    GrfFree(GVar);
    system("pause");
}

void main()
{
    CHAR StrG[MAX_PATH] = "Test.grf";
    MyCFunc(StrG);
    return;
}

GLibExp.h

#ifndef GLibExpH
#define GLibExpH

#if defined(GRF_DLL)
#define GEXPORT __declspec(dllexport)
#else
#define GEXPORT extern
#endif

class CGFILE;
typedef CGFILE* GFile;
//typedef void* GFile; //Also works like this

#ifdef __cplusplus
extern "C" {
#endif
GEXPORT GFile GrfLoad(const char *GName, unsigned char Mode = 1);
GEXPORT void GrfFree(GFile GVar);
#ifdef __cplusplus
}
#endif

#endif//GLibExpH

程序在运行时调用 DLL 以使用 GRFLoad 和 GRFFree 函数。我尝试将其移植到 Delphi，但没有成功。

德尔福/拉撒路代码：

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

{$Link GLib.lib}

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

function GrfLoad(const fname: PChar; Modo: Boolean): Pointer; cdecl; external 'GLib.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
  PVar: Pointer;
begin
  PVar:= GrfLoad(PChar('test.grf'),false);
end;

end. 

如果我注释掉{$Link GLib.lib} 行，程序会运行，但是当我调用GRFLoad 时它总是崩溃（程序停止工作然后关闭）。如果我留在{$Link GLib.lib}这一行，程序不编译并报错：

project1.lpr(20,1) Error: Illegal COFF Magic while reading GLib.lib

有什么提示吗？

注意：我刚刚添加了一个指向 Visual C++ 2010 项目的链接，其中包含所有需要的文件。其实我只是做了一个“New project -> Win32 Console Application”（我在Wizard中标记了“empty project”），添加一个新的CPP文件并粘贴代码，并更改“Properties -> Configuration Properties -> Linker - > 启用增量链接：否”，仅此而已。

https://drive.google.com/open?id=1JxW4Wra_kT8gfBda1t0WWqagzazzQVne

Answer 1

函数的正确声明应使用PAnsiChar（char 在 C 和 C++ 中始终是单字节类型）：

type
  GFile = Pointer; // alternatively: GFile = THandle;

function GrfLoad(const FName: PAnsiChar; Mode: Boolean): GFile; cdecl; external 'GLib.dll' name 'GrfLoad';
procedure grfFree(GVar: GFile); cdecl; external 'GLib.dll' name 'GrfFree';

但很可能导出的名称不是GrfLoad 和GrfFree，而是不同的名称，例如_GrfLoad 和 _GrfFree。您可以使用 MS 的 Dependency Walker 之类的工具或使用 Delphi 自己的 TDump.exe（查找 Exports 部分）找出实际导出的名称，即使用

tdump glib.dll

在glib.dll所在目录的命令行中。

如果名称不同，则必须更改外部声明的名称部分，例如 external 'Glib.dll' name '_GrfLoad'; 等。

我的文章中有更多信息：Pitfalls of converting。

当然，DLL 也有可能找不到它所依赖的另一个 DLL。 Dependency Walker 还会告诉您缺少导入的信息。

更新

请注意，您链接到的 zip 文件中的 DLL 称为 GrfLib.dll，而不是 GLib.dll。并且名称确实导出为GrfLoad 等。

很可能您的系统上也有一个 glib.dll，但其中不包含您正在寻找的功能。

---

另外请注意，大多数人不喜欢从未知来源下载 zip。他们不知道里面到底是什么。

Answer 2

解决了！我只是将声明更改为：

function GrfLoad(const fname: PChar; Modo: Boolean): Pointer; cdecl; external 'GLib.dll';

到：

function GrfLoad(const fname: PChar; Modo: Byte): Pointer; cdecl; external 'GLib.dll';

电话来自：

PVar:= GrfLoad(PChar('test.grf'),false);

到：

PVar:= GrfLoad(PChar('test.grf'),1);

仅此而已。感谢 Mbo、Victoria 和 Rudy Velthuis 的帮助。