新手问题：如何在DLL中调用宿主程序中的函数？在线等候

[rocsoar]

请问：如何才能够在DLL中调用VB主程序中的函数？找了N多资料，都没说得很详细。
最好能给个小小的示例说明，谢谢！！！！

[ithinkthereforeiam]

DLL是公用的，让它调用宿主的函数，好像不和逻辑啊。
不能把那个函数写到DLL里面？
要不使用回调函数，把函数做参数传给DLL，让DLL调用。

[sdzeng]

在exe的工程文件里用exports导出
调用的时候和dll一样，LoadLibrary

[sdzeng]

不过最好还是把公共的函数做成dll,或者像一楼说的，用回调机制

[rocsoar]

怎么写回调函数？能否给个示例？谢谢

[clasj]

library dll;

//uses
// SysUtils,
// Classes;

{$R *.res}

procedure Init(P: Pointer);
var
Func: procedure(Str: PChar);
begin
Func:=P;
Func('Hello World!');
end;

exports
Init;

begin

end.

program exe;

{$APPTYPE CONSOLE}

uses
SysUtils;

procedure Init(P: Pointer); external 'dll.dll';

procedure CallBackFunc(Str: PChar);
begin
WriteLn(Str);
end;

begin
Init(@CallBackFunc);
ReadLn;
end.