Delphi 调用 C 的DLL 问题?高分,在线等!

lszxyxl 2006-01-23 10:33:59

有下面一个DLL 怎样用Delphi调用,最好详细点,我是新手!
ECCO.DLL是32位Windows的API函数动态链接库，包含了以下5个函数，其接口是：
　
LPCSTR (WINAPI *EccoVersion)(VOID);
// 返回ECCO编号识别系统版本号(注：这个函数的系统别名应该是"_EccoVersion@0"，下同)
VOID (WINAPI *EccoInitOpenVar)(BOOL Triditional);
// 初始化开局和变例字符串，调用以下函数前务必先调用此函数
LONG (WINAPI *EccoIndex)(LPCSTR FileMoveStr);
// 返回某个开局的ECCO编号(注：这个函数的系统别名应该是"_EccoIndex@4"，下同)
LPCSTR (WINAPI *EccoOpening)(LONG EccoIndex);
// 返回ECCO编号对应的开局名称
LPCSTR (WINAPI *EccoVariation)(LONG EccoIndex);
// 返回ECCO编号对应的变例名称
　
　　其中EccoIndex函数是开局解析系统的核心，MoveFileStr是用符号纵线格式(即C2.5)按顺序排列的字符串，例如"C2.5N8+7"即代表“1. 炮二平五　马８进７”，返回4字节的32位整数(LONG)，其中前3字节即ECCO编号，该32位整数可直接作为EccoOpening和EccoVariation的参数。调用上面这些函数可参考以下C语言的实例：
　
HMODULE hModule = LoadLibrary("ECCO.DLL");
EccoVersion = (LPCSTR (WINAPI *)(VOID)) GetProcAddress(hModule, "_EccoVersion@0");
EccoInitOpenVar = (VOID (WINAPI *)(BOOL)) GetProcAddress(hModule, "_EccoInitOpenVar@4");
EccoIndex = (LONG (WINAPI *)(LPCSTR)) GetProcAddress(hModule, "_EccoIndex@4");
EccoOpening = (LPCSTR (WINAPI *)(LONG)) GetProcAddress(hModule, "_EccoOpening@4");
EccoVariation = (LPCSTR (WINAPI *)(LONG)) GetProcAddress(hModule, "_EccoVariation@4");
// 从ECCO.DLL中获取库函数
EccoVersion();
// 返回指向字符串"ECCO (2004) Analyst 1.0"的指针(LPCSTR)
EccoInitOpenVar(FALSE);
// 使用前务必初始化，参数FALSE表示简体，TRUE表示繁体
EccoIndex("C2.5N8+7N2+3R9.8R1.2P7+1R2+6N2+3P7+1C8.9R2.3C9-1N8+7A4+5C8.9");
// 返回由"C45"对应的4字节组成的32位整数(LONG)
EccoOpening(*(LPLONG) "D29");
// 返回指向字符串"顺炮直车对横车"的指针(LPCSTR)
EccoVariation(*(LPLONG) "D29");
// 返回指向字符串"红两头蛇对黑双横车"的指针(LPCSTR)
　
　　ECCO.DLL的下载地址是：http://www.elephantbase.net/ecco/ecco_dll.rar。

...全文

116 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

lszxyxl 2006-01-24

打赏
举报

能对这个写一具体的代码吗?如能,100分全给你!我是初次学习DLL啊!

ly_liuyang 2006-01-24

打赏
举报

用Stdcall就可以了
GetProcAddress那类代码baidu上N多的

clasj 2006-01-24

打赏
举报

应该改为
procedure EccoInitOpenVar(Triditional: LongBool); stdcall; external 'ecco.dll' name '_EccoInitOpenVar@4';
//VOID (WINAPI *EccoInitOpenVar)(BOOL Triditional);

VC里面BOOL可是4个字节哟~~

yrb 2006-01-24

打赏
举报

以下位置申明错误
procedure EccoInitOpenVar(Triditional: Boolean); stdcall; external 'ecco.dll' name '_EccoInitOpenVar@0';
//VOID (WINAPI *EccoInitOpenVar)(BOOL Triditional);
// 初始化开局和变例字符串，调用以下函数前务必先调用此函数

应该改为
procedure EccoInitOpenVar(Triditional: Boolean); stdcall; external 'ecco.dll' name '_EccoInitOpenVar@4';
//VOID (WINAPI *EccoInitOpenVar)(BOOL Triditional);
// 初始化开局和变例字符串，调用以下函数前务必先调用此函数

yrb 2006-01-24

打赏
举报

<b>d</b>ing

yrb 2006-01-24

打赏
举报

//运行时把你得dll文件和可执行文件放在一个文件夹下，记得给分：）

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

function EccoVersion(): pchar; stdcall; external 'ecco.dll' name '_EccoVersion@0';
//LPCSTR (WINAPI *EccoVersion)(VOID);
// 返回ECCO编号识别系统版本号(注：这个函数的系统别名应该是"_EccoVersion@0"，下同)
procedure EccoInitOpenVar(Triditional: Boolean); stdcall; external 'ecco.dll' name '_EccoInitOpenVar@0';
//VOID (WINAPI *EccoInitOpenVar)(BOOL Triditional);
// 初始化开局和变例字符串，调用以下函数前务必先调用此函数
function EccoIndex(FileMoveStr: PChar): integer; stdcall; external 'ecco.dll' name '_EccoIndex@4'
//LONG (WINAPI *EccoIndex)(LPCSTR FileMoveStr);
// 返回某个开局的ECCO编号(注：这个函数的系统别名应该是"_EccoIndex@4"，下同)
function EccoOpening(EccoIndex: integer): PChar; stdcall; external 'ecco.dll' name '_EccoOpening@4';
//LPCSTR (WINAPI *EccoOpening)(LONG EccoIndex);
// 返回ECCO编号对应的开局名称
function EccoVariation(EccoIndex: integer): PChar; stdcall; external 'ecco.dll' name '_EccoVariation@4';
//LPCSTR (WINAPI *EccoVariation)(LONG EccoIndex);
// 返回ECCO编号对应的变例名称

//示范调用
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := EccoVersion();
end;

end.

lszxyxl 2006-01-24