一个关于动态链接库传递数组的问题 ( 积分: 100 )

现有一个C下写的动态链接库，接口函数为RegPass(char FileName[1024],BYTE Res[64]),约定为stdcall。其中FileName为文件路径和文件名，Res为dll处理后返回的数组，我要从这个数组中取值。请问这个函数在Delphi中怎么调用？

现有一个C下写的动态链接库，接口函数为RegPass(char FileName[1024],BYTE Res[64]),约定为stdcall。其中FileName为文件路径和文件名，Res为dll处理后返回的数组，我要从这个数组中取值。请问这个函数在Delphi中怎么调用？

procedure RegPass(FileName: array[1..1024] of Char; Res: array[1..64] of Byte); stdcall; external 'xx.dll';

to 麻子：
应该为：fuction RegPass(FileName: array of Char; Res: array of Byte); stdcall; external 'xx.dll'; 吧？这个我知道，关键是在下面：
procedure TForm1.Button1Click(Sender: TObject);
var
fp:array[0..1023]of char;
ch:array[0..63] of Byte;
begin
FillChar(ch,sizeof(ch),0);
FillChar(fp,sizeof(fp),0);
fp:='c:/temp.jpg';
RegPass(fp,ch);
end;
会报：Access violation at address 10033B3 in module'xx.dll',Write of address 745C3A63.好像是写地址错误，谁能帮忙改一下。

procedure RegPass(FileName: array[0..1023] of Char; var Res: array[0..63] of Byte); stdcall; external 'xx.dll';

1.由于从您提供的信息看不出函数是否有返回值以及是什么类型的返回值所以我写的是procedure

2.C语言的数组参数具体传递方式有点忘了,可能是要象lichengbin那样写,也可以这样试试:
procedure RegPass(FileName: PChar; Res: PByte); stdcall; external 'xx.dll';

麻子写的没错，这个函数是传值不是传引用。。。所以楼主你写错了

C里写的是RegPass(char FileName[],BYTE Res[],int fLen,int resLen)
//flen是FileName长度
//resLen是Res长度
delphi里写的是fuction RegPass(var FileName: array of Char; var Res: array of Byte;flen:integer;reslen:integer); stdcall; external 'xx.dll'

传个指针就行了

这样谢谢看
在我的PORTS.dll中有个函数是
function QueryPath(Prot:Integer;var ExeName,Paths:array of char;var PathLen:Integer):Boolean;stdcall;export;

我是这样调用的：
function QueryPath(Prot:Integer;var ExeName,Paths:array of char;var PathLen:Integer):Boolean;stdcall;export;external 'Prots.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
TempPathchar;
Temp1,Temp2:array [0..1024] of char;
TempInt:Integer;
Temp:String;
I:Integer;
begin
TempPath:='';
FillChar(Temp2,1025,#0);
QueryPath(StrToInt(Edit1.Text),Temp1,Temp2,TempInt);
end;

没有问题的！！

to 麻子and lichengbin：
这个函数在C语言中没有返回值，是void类型（我们副总写的一个狗屁函数，我看不到源代码）。功能就是传给它一个文件名和一个byte类型的数组，它把处理完了的信息放到这个数组里，我再从这个数组里读出一个字符串来（真tmd麻烦），我按照楼上各位的方法都试了，还是报Access violation at address 10033B3 in module'xx.dll',Write of address 745C3A63错误，请大家帮帮忙，现在这位副总已经对delphi有点看法了（是我水平不够，给delphi惹麻烦了）。

如果愿意，你发个dll过来，我看看。要说明接口函数的C语法
lcb@iii-grp.com

要和DELPHI兼容的DLL
VC中DLL声名格式：

Extern “C” void __declspec(dllexport) __stdcall ShowMess(HWND hwnd, char* mess);

输出格式为：_ShowMess@8，“8”为函数参数字节数

为了避免名称分裂，可采用以下方法解决：

1.声明中不加__stdcall，采用VC默认格式__cdecl，但在Delphi中要注明调用格式为cdecl。

2.在VC工程中添加def文件，如：

LIBRARY

EXPORTS

ShowMess @1

则DLL中输出函数名称不分裂。


Delphi中调用格式：

Procedure ShowMess (h:HWND; messChar); Stdcall;{Cdecl;} external LibName;

如无Stdcall或Cdecl声名，Delphi默认Register(FastCall)调用格式。


注意Delphi与VC的对齐格式不同，在VC中定义结构时要用以下格式：

#pragma pack(4)

//结构定义

#pragma pack()


常用工具：

TDump.exe－Delphi 4 和 C＋＋ Builder 3 提供

Impdef.exe 和 Implib.exe － C＋＋ Builder 3提供

DumpBin.exe－VC5.0提供

Lib.exe－VC5.0提供


VC调用Delphi的DLL



Delphi中的声名格式：

Function ShowDialog( hMainWnd:THandle; MsgChar ):integer; stdcall;

输出到Dll文件中时，名称不分裂。


VC中的调用格式：

extern "C" __declspec(dllimport) int __stdcall ShowDialog( HWND hwnd,char* Msg );

．如带有__stdcall，则要求Lib文件中对应函数名称分裂，可有以下步骤生成Lib文件：

．用Impdef.exe生成def文件，格式为：Impdef def文件名 dll文件名

．手工调制def文件参数，如ShowDialog改为ShowDialog@8

．用Lib.exe生成lib文件，格式为：Lib /def:def文件名

．如声名中无__stdcall，默认调用格式仍为stdcall，但不要求名称分裂，用以下批处理文件MkLib.bat可生成Lib文件：

@echo off

if %1.==. goto error

impdef %1.def %1.dll

lib /def:%1.def

goto end

:error

echo Usage: MkLib DllName

echo Note: Don't add extension ".dll" to parameter "DllName"

:end

也就是你的C里函数要这样写
extern "C" __declspec(dllexport) void WINAPI RegPass(char FileName[],BYTE Res[],int fLen,int resLen);
//
delphi里写的是procedure RegPass(var FileName; var Res;flen:integer;reslen:integer); stdcall; external 'xx.dll'

delphi里写的是procedure RegPass(var FileName; var Res;flen:integer;reslen:integer); stdcall; external 'xx.dll'

在C里还要注意XX.DEF文件里写成这样(没有这文件就在VC工程中添加def文件或记事本写也可以,扩展名改成.DEF)
LIBRARY

EXPORTS

RegPass @1