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

Question

有下面一个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。

Answer 1

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

Answer 2

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

Answer 3

//运行时把你得dll文件和可执行文件放在一个文件夹下，记得给分：）unit Unit1;interfaceuses
  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.

Answer 4

以下位置申明错误
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);
// 初始化开局和变例字符串，调用以下函数前务必先调用此函数

Answer 5

应该改为
procedure EccoInitOpenVar(Triditional: LongBool); stdcall; external 'ecco.dll' name '_EccoInitOpenVar@4';
//VOID (WINAPI *EccoInitOpenVar)(BOOL Triditional);VC里面BOOL可是4个字节哟~~

Answer 6

问题已解决,谢谢yrb!分全给你!
同时感谢"知我",不过我已先说谁能给我具体代码,就给100分,所以暂不给分你,在我的另一个主题"给一个中国象棋棋谱管理软件搜索思路!高分相赠! "里给分给你,谢谢!
QQ号码:11231221