如何在DLL中调用另一个DLL??????????????????????????????????????

[antonye]

我做了一个主程序，两个DLL，其中一是公用函数，一个是子窗体
子窗体如何调用公用函数？？？？？？？？？？？？？？？？？？
我做时老是出错？？？？？？？？？？？？？？？？？？？？

[antonye]

up

[maple2001]

用PChar，参数一定要用空字符结尾的字符串指针，string不是空字符结尾的。

[eastxiang]

up

[antonye]

up

[machin]

帮你UP一下~~~

我也不懂~~~

[hellion]

dll调dll跟exe调dll是一样的，贴代码看看

[antonye]

是这样
主DLL调用子DLL时，子DLL需要返回三个值，
不返回没有问题，返回就有问题

[antonye]

另请教MapViewofFile各个参数的作用和如何应用

[lovewangj]

返回多少个值都是没有问题的，贴出代码来看看。

[antonye]

主DLL和子DLL中都有定义
var
HMapFile: THandle;
SelQuery,SelNo,IsSel: ^string;
const
VirtualFIleName = 'PublicData';
StrSize = Sizeof(string);

initialization
HMapFile := CreateFileMapping($FFFFFFFF,nil,Page_ReadWrite,0,StrSize*3,VirtualFileName);
if HMapFile <> 0 then
begin
SelQuery := MapViewOfFile(HMapFIle,File_Map_Write,0,0,StrSize);
SelNo:= MapViewOfFile(HMapFIle,File_Map_Write,0,StrSize,StrSize);
IsSel := MapViewOfFile(HMapFIle,File_Map_Write,0,StrSize*2,StrSize);
end;

finalization
UnMapViewOfFile(SelQuery);
UnMapViewOfFile(SelNo);
UnMapViewOfFile(IsSel);
CloseHandle(HMapFile);

子调用程序DLL
if ShowModal=mrOK then
if ADOQuery.Active then
begin
IsSel^ := '1';
SelQuery^ := 'Select * ' + SelSQL;
SelNo^ := FirstNo;
end;
Free;

解者感激涕零

[hellion]

不要用string（或^string）传递参数

[antonye]

那用什么??

[hellion]

用长string必须使用sharemem单元，但好象有问题。
用指针吧，若长度变化不大或能确定最大长度，外面申请好，否则传入指针与长度，dll中不够就扩大。

[antonye]

能否举例
也可EMail: [e-mail]

[antonye]

up

[antonye]

to hellion(恶人)　
如何改变指针的的长度，我做的老出错
HMapFile := CreateFileMapping($FFFFFFFF,nil,Page_ReadWrite,0,DataSize*3,VirtualFileName);
if HMapFile <> 0 then
begin
ReStr1 := MapViewOfFile(HMapFIle,File_Map_Write,0,0,StrSize);
ReStr2 := MapViewOfFile(HMapFIle,File_Map_Write,0,DataSize,StrSize);
ReStr3 := MapViewOfFile(HMapFIle,File_Map_Write,0,DataSize*2,StrSize);

请诊断

[antonye]

up gz

[antonye]

zzzz