欢迎讨论，调用函数的问题(50分)

qiubole · 2001-10-17

现有一个dll文件，提供若干函数 比如     procedure proc1;     procedure proc2(count:integer);    ........ 现在在主程序中调用，但我想通过ini文件作为一个中间件     即我在ini文件里这样写     proc1;     proc2(12); 最后我在主程序中通过调用ini文件里的内容来决定调用dll里的函数 我初期的构想如下，用一个解释器，分解ini文件里的内容，最后在解释器里调用；但我发现异常的烦琐 因为有参数，所以通过 getprocaddress(name,inistring);也不好用 最后我想，能不能利用方法名重载，于是这样，定义一个类,原型如下； SelectProcedure=class   public     procedure proc1;overload;virtual;     procedure proc1(count:integer);overload;virtual;     procedure proc1(str:string);overload;virtual;     。。。。。。。。。。。。   end; 在使用的时候] var   myclass:SelectProcedure;   t:thandle; begin   try     t:=loadlibrary('my.dll');     myclass:=SelectProcedure.Create;     @(myclass.proc1):=getprocaddress(t,从ini里读的函数名);//但在此句出错，呵呵，看样子是行不通     myclass.proc1(从ini里读的参数);   finally     freelibrary(t);     myclass.Free;   end; end; 请问各位，难道除了用解释器，还有没有别的好办法

lha · 2001-10-17

>>getprocaddress(t,从ini里读的函数名); 这里的函数名后不能包含参数哦

qiubole · 2001-10-17

to lha;不包含参数的东东太简单了    现在就是说要包含参数;

xianjun · 2001-10-17

如果参数类型是简单类型即string, Integer, Float等都好办 若是其他就没招了吧？ 我想可以这样： 统一参数入口为： TFunc = function(ArgType, Arg: Longint): LongInt; ArgType表示传入的参数的类型，Arg表示参数的地址，在函数中你就可以根据类型来 用不同的方法取得参数的值。你调用的时候就统一了。 我也是随便想的，没实践过，你可以参考一下API: SendMessage,PostMessge等的做法。

qiubole · 2001-10-17

大哥方法是好，但是，我的参数是从ini文件里面读的，何来地址？ 最好是用一个@proc=getprocaddress就好了，但这个proc的类型很关键呀

xianjun · 2001-10-17

我的意思就是： var   proc: TFunc;   FuncName: string;   ArgType, Arg: string; begin   FuncName := GetFuncNameFromIni;   @proc := GetProcAddress(H, FuncName);   ArgType := GetArgTypeByFuncName(FuncName);   Arg := GetArgByFuncName(FuncName);   if ArgType = 'STRING' then     Proc(ArgType, LongInt(@Arg[1]));   if ArgType = 'INT' then     Proc(ArgType, LongInt(StrToInt(Arg)));   .... end;

qiubole · 2001-10-17

to xianjun 如果是这样，你的TFunc为什么类型 你的GetArgTypeByFuncName 这个函数是自定义的？ 如果有多个参数该怎么办？

qiubole · 2001-10-17

另外，我有个想法，如果在dll中用variant类型，将多个参数封装，但我调试发现不行

xianjun · 2001-10-17

TFunc = function(ArgType, Arg: Longint): LongInt; 我这就设了一个参数，当然你也可以加多一个，至于说多个参数，这完全没有问题 因为你可以把几个参数封装成一个再传进去的，这就是ArgType的作用，相当于两者 间交流的协议吧。我是从SendMessage函数想到的。 GetFuncNameFromIni，　GetArgTypeByFuncName，GetArgByFuncName都是自定义的 目的是从INI文件中取出相应的东西。 这些都是我顺手写下来的，没有经过试验，但想来问题不大。

qiubole · 2001-10-17

to xianjun     你的意思我还是没有明白  在你的getargtypebyfuncname里，你的返回值为一种单一的类型，如果我将'123',123封装，那成什么类型了 何况调用@proc的时候，本身就是根据实际参数，也就是你所定义的参数的个数而定的，它并不是读取某一个缓冲区的内容 呵呵 我得好好想想，理会一下你的意思

lha · 2001-10-17

to qiubole: >>不包含参数的东东太简单了 你的意思我还是不太明白，是我不懂DLL 还是没有看懂需求！？ 调用过程当然可以包含参数啦！

xianjun · 2001-10-17

晚上我试试能不能写个DEMO出来。

qiubole · 2001-10-17

to lha;    呵呵，没有参数，就可以用你那种方法啦，所以我说简单。 to xianjun    真是麻烦你了；先谢过

xianjun · 2001-10-18

简单例子如下： [blue]DLL中：[/blue] type   TTestRec = record     A, B: Word;   end; function TestProc(AArgType, AArg: Longint): Longint; stdcall; implementation {$R *.DFM} function TestProc(AArgType, AArg: Longint): Longint; var   S: string;   F: Single; begin   Result := 0;   case AArgType of     0:       Result := TTestRec(AArg).A * TTestRec(AArg).B;     1:       begin         S := 'OH! my god! ' + PChar(AArg);         Result := Longint(@S[1]);       end;     2:     begin       F := Single(Pointer(AArg)^) * 0.5;       Result := LongInt(@F);     end;   end; end; 导出： exports   TestProc; [blue]调用程序：[/blue]   TTestRec = record     A, B: Word;   end;   TTestProc = function(AArgType, AArg: Longint): Longint; stdcall; var   LibHandle: THandle;   Proc: TTestProc;   A: TTestRec;   S: string;   F: Single;   R: LongInt;   ArgType, FuncName: string; begin   LibHandle := LoadLibrary('TESTDLL.DLL');   if LibHandle = 0 then     raise Exception.Create('Unable to Load DLL');   try     ArgType := Edit1.Text; //输入参数类型，调用者与DLL编写者约定     FuncName := 'TestProc';     @Proc := GetProcAddress(LibHandle, PChar(FuncName));     if not (@Proc = nil) then     begin       if ArgType = '0' then　//0时传入的是TTestRec的记录类型       begin         A.A := 10;         A.B := 20;         Edit2.Text := IntToStr(Proc(0, Longint(A)));       end;       if ArgType = '1' then //1为字符串类型       begin         S := 'This is Test string';         R := Proc(1, LongInt(@S[1]));         Edit2.Text := PChar(R);       end;       if ArgType = '2' then //2为Single       begin         F := 3.14;         R := Proc(2, LongInt(@F));         Edit2.Text := FloatToStr(Single(Pointer(R)^));       end;     end;   finally     FreeLibrary(LibHandle);   end; D6 + Win2K　测试通过。

xianjun · 2001-10-18

自定义类型   TTestRec = record     A, B: Word;   end; 在两边都要声明，因此你可以把它写在一个INC文件内，然后两边引用就行了： {$I MyTypes.inc}

qiubole · 2001-10-18

谢谢了，老大

qiubole · 2001-10-18

接受答案了.

lha · 2001-10-18

to qiubole: >> 呵呵，没有参数，就可以用你那种方法啦，所以我说简单。 当然可以有参数呀！如你还这样认为我无话可说！

qiubole · 2001-10-21

to lha     你做个参数不确定，而且类型不同的试试看

lha · 2001-10-21

呵呵那就用COM了

欢迎讨论，调用函数的问题(50分)

qiubole

Unregistered / Unconfirmed

lha

Unregistered / Unconfirmed

qiubole

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

qiubole

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

qiubole

Unregistered / Unconfirmed

qiubole

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

qiubole

Unregistered / Unconfirmed

lha

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

qiubole

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

qiubole

Unregistered / Unconfirmed

qiubole

Unregistered / Unconfirmed

lha

Unregistered / Unconfirmed

qiubole

Unregistered / Unconfirmed

lha

Unregistered / Unconfirmed

Similar threads