请求思路，一个DELPHI程序要调用DLL，而DLL中的函数名，参数个数，参数类型为不定，要调用的DLL中的函数名、参数个数、参数类型要可以在窗口中Edit中动

Rudder · 2003-11-26

有够难

porsche · 2003-11-26

[red]以上的各位，我用过一个流程开发工具，调用的DLL就是普通的DLL，而并不是所谓的 array of const 之类的，因为这些被调用的DLL是我自己写的 请看截图 http://www.wansoft.com.cn/aaa.jpg  [/red]

lich · 2003-11-26

再实现一个封装版的DLL, 其中，调用某个公开的函数，可以获得所有的函数列表， 函数有一个指针列表，传入字符串数组，再有一个参数表示传入的参数的个数， 此DLL进行转化，并调用实际的DLL

lich · 2003-11-26

SQLServer中实现extenal stored procedure 用的就是类似的技术， 就连Rundll32 所调用的dll也必须编写特殊的接口函数，才能被rundll32调用 rundll32 是不能掉用普通的DLL的

lich · 2003-11-26

我说的没错吧？ MSDN 上是这样说的： 它将命令行参数，直接传递给了某个函数， 能被Rundll32调用的函数的形式必须是 void CALLBACK EntryPoint(   HWND hwnd,        // handle to owner window   HINSTANCE hinst,  // instance handle for the DLL   LPTSTR lpCmdLine, // string the DLL will parse   int nCmdShow      // show state ); Platform SDK: SDK Tools Rundll32 The Run DLL utility (Rundll32.exe) included in Windows enables you to call functions exported from a 32-bit DLL. These functions must have the following syntax: void CALLBACK EntryPoint(   HWND hwnd,        // handle to owner window   HINSTANCE hinst,  // instance handle for the DLL   LPTSTR lpCmdLine, // string the DLL will parse   int nCmdShow      // show state ); Note that EntryPoint is a placeholder for the actual function name. For a list of possible show states, see WinMain. The following is the command-line syntax for Rundll32: rundll32 DllName,FunctionName [Arguments] DllName Specifies the name of the DLL. The name cannot contain spaces, commas, or quotation marks. The utility searches for the DLL using the search criteria documented for the LoadLibrary function. Therefore, it is best to use the short name and provide a full path for the DLL. FunctionName Specifies the name of the function to call in DllName. Requires a comma (without no spaces) between DllName and FunctionName. Arguments Optional arguments for FunctionName. Rundll32 loads the specified DLL using LoadLibrary, obtains the address of the function using the GetProcAddress function, and calls the function with the specified arguments, if any. When the function returns, Rundll32 unloads the DLL and exits. It is possible to create a Unicode version of the function. Rundll32 first tries to find a function namedEntryPointW. If it cannot find this function, it tries EntryPointA, then EntryPoint. To create a DLL that supports ANSI on Windows Me/98/95 and Unicode otherwise, export two functions: EntryPointW and EntryPoint.

lich · 2003-11-26

所以，楼主的要求是很难实现的， 如果能实现的话，就只有一种方法， 那就是，动态的构造调用堆栈， 而且还很危险，参数传递错误，就会Crash 你输入的参数也无法确定它的类型 最好是模拟Rundll32 ,如果要调用普通的DLL，那么需要对这些DLL进行二次封装 将函数参数类型全都封装成上面所说的形式 相关链接 http://msdn.microsoft.com/library/default.asp?url=/library/en-us/tools/tools/rundll32.asp http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q164/7/87.asp&NoWebContent=1 http://support.microsoft.com/default.aspx?scid=kb;EN-US;135068

lich · 2003-11-26

可以根据输入的参数类型， 用汇编语言来将参数压入堆栈，然后再调用， 必须保证你输入的参数和实际的DLL需要的严格一致

porsche · 2003-11-26

TO LICH，谢谢你的回答， 不知你看过 http://www.wansoft.com.cn/aaa.jpg  没有？ 这是一个广州恒讯达公司CALL CENTER交换机的流程生成器中调用用户自定义函数的 一个截图，流程生成器中共有8种变量类型byte,long,small,string(即pchar), boolean,struct(结构), Dynamic Memory(既内存流) 我试着写了个DLL，一个函数，定义了30个参数，各种变量类型都杂乱无序地用到了， 如果事先在程序中TYPE好或重截的话，你算算应该type多少行语句？ 流程生成器生成的是一些代码，我分析过无非是一些数据，并未生成其他动态库，然后一个 SERVER程序运行时调用这些代码，实实在在是实现了这个功能，而且容错能力还不错，调用 失败不会导致程序崩溃

lich · 2003-11-26

实际上，在Delphi中使用代码块异常保护功能， 调用出错并不会有太大的影响，但是错误可能会导致系统崩溃 我想了一种方法，我先试一下，行的话，我贴出代码：

lich · 2003-11-26

我已经实现了一种方法，例子程序在这里： http://www1.51-51.com/pub/args2.rar 支持三种数据类型 S,I,D 表达式样例： 运行外部程序－－－－ kernel32.dll::WinExec S:notepad.exe I:1 显示消息框－－－－－ user32.dll::MessageBoxA I:0 S:"Hello hahaha" S:"TT01 ok" I:64 大家看看，提点意见

lich · 2003-11-26

目前只能处理输入的参数， 也只支持 stdcall 的调用

lich · 2003-11-27

例子中的返回值，不对

cheylin · 2003-11-27

我觉得可以实现，因为我们用delphi通过webservice调用EJB时实现了类似的功能；主要思路如下： 在DLL中定义一个公共接口函数，带上两个参数：一个是要调用的过程名，另一个是被调用的过程的参数数组，如 procedure iMethod(procName: String; vars Array of String); begin   //将所有可能调用的过程进行枚举，当然vars[]中的数据类型在这里要进行转换   if procName = 'Add' then      Add(Vars[0],vars[1]...)          //相应的处理过程需另外编写   else if procName = 'Max' then      Max(Vars[0],vars[1]...)          //相应的处理过程需另外编写   ...... end; 在每次更改了DLL中的方法、或新增加了方法，只需在iMethod中再添加一个else if ****就行

lich · 2003-11-27

返回值的问题已经修正， 同时增加了几个调用的示例： --启动记事本 kernel32.dll::WinExec S:notepad.exe I:1 --显示消息框,并获得返回值 user32.dll::MessageBoxA I:0 S:"Hello hahaha" S:"TT01 ok" I:67 --查找当前程序窗口的句柄 user32.dll::FindWindowA I:0 S:Form1 --赋值本程序到C盘根目录下,如果存在,则覆盖,强制成功,返回1表示成功 kernel32.dll::CopyFileA S:./Project1.exe S:C:/test.exe I:0 当然,你自己可以调用更多的API函数,或者自己DLL中的函数 例子程序到这里下载: http://www1.51-51.com/pub/args2.rar

lich · 2003-11-27

现在也支持传递变参了, 即按地址传递,并可获取传回的字符串参数和整型参数, 譬如: 对API函数 GetComputerName 的调用

porsche · 2003-11-27

Lich,太谢谢你了，能不能把代码发给我？再次感谢：） 4719373@163.com

lich · 2003-11-27

这里贴出关键部分的代码: type   TArg = record     ArgType: Integer;     S: String;     I: Integer;     D: Double;   end;   TWords = array of String;   TFunInfo = record     DllName: String;     FunName: String;     Params: array of TArg;     Ret: Integer;   end; .................. function ParseArg(S: String): TArg; var   m: Integer;   t1, t2: String;   c: Char; begin   Result.ArgType := 0;   Result.S := '';   Result.I := 0;   Result.D := 0.0;   m := Pos(':', S);   if m > 0 then   begin     t1 := UpperCase(Copy(S, 1, m - 1));     t2 := Copy(S, m + 1, Length(S));   end;   if Length(t1) = 1 then   begin     c := t1[1];     case c of       'S':  //String       begin         Result.ArgType := 1;         Result.S := UnQuoteString(Trim(t2));       end;       'I':  //Integer       begin         Result.ArgType := 2;         Result.I := StrToIntDef(t2, 0);       end;       'D', 'F':  //Double       begin         Result.ArgType := 3;         Result.D := StrToFloatDef(t2, 0.0);       end;     end;   end   else   begin     if (t1 = 'INT') or (t1 = 'INTEGER') then     begin       Result.ArgType := 1;       Result.S := UnQuoteString(Trim(t2));     end     else if (t1 = 'STR') or (t1 = 'STRING') then     begin       Result.ArgType := 2;       Result.I := StrToIntDef(t2, 0);     end     else if (t1 = 'FLOAT') or (t1 = 'DOUBLE') then     begin       Result.ArgType := 3;       Result.D := StrToFloatDef(t2, 0.0);     end     else if (t1 = 'VI') or (t1 = 'VINTEGER') then     begin       Result.ArgType := 12;       Result.I := StrToIntDef(t2, 0);     end;   end; end; function ParseFun(S: String): TFunInfo; var   m: Integer;   v: TWords;   i: Integer; begin   Result.DllName := '';   Result.FunName := '';   Result.Ret := 0;   v := SplitWithSpace(S, '"');   if Length(v) > 0 then   begin     m := Pos('::', v[0]);     if m > 0 then     begin       Result.DllName := Copy(v[0], 1, m - 1);       Result.DllName := UnQuoteString(Result.DllName);       Result.FunName := Copy(v[0], m + 2, Length(v[0]));     end;   end;   if Result.DllName <> '' then   begin     SetLength(Result.Params, Length(v) - 1);     for i := 1 to Length(v) - 1 do     begin       Result.Params[i - 1] := ParseArg(v);     end;   end; end; function RunDllFun(var fun: TFunInfo): Integer; var   i, r, t: Integer;   d: Double;   pd: PIntegerArray;   t1, t2: Integer;   dll: Integer;   f: Pointer;   p: PChar; begin   Result := 0;   dll := LoadLibrary(PChar(fun.DllName));   try //finally     try //except       if dll <> 0 then  //load ok       begin         f := GetProcAddress(dll, PChar(fun.FunName));         if Assigned(f) then         begin           for i := Length(fun.Params) - 1 downto 0 do           begin             case fun.Params.ArgType of               0:               begin                 asm                   push 0                 end;               end;               1:               begin                 SetLength(fun.Params.S, 500);                 p := PChar(fun.Params.S);                 asm                   push p                 end;               end;               2:               begin                 t := fun.Params.I;                 asm                   push t                 end;               end;               3:               begin                 d := fun.Params.D;                 pd := @d;                 t1 := pd[0];                 t2 := pd[1];                 asm                   push t2                   push t1                 end;               end;               12: //整数变参               begin                 t := Integer(@(fun.Params.I));                 asm                   push t                 end;               end;             end;           end;           // call the function           asm             call f;             mov r, eax           end;           fun.Ret := r;         end         else         begin           Result := -3;         end;       end       else       begin         Result := -4;       end;     except       Result := -2;     end;   finally     if dll <> 0 then FreeLibrary(dll);   end; end; function RunDLL2(S: String; var Fun: TFunInfo): Integer; begin   Result := -1;   Fun := ParseFun(S);   if Fun.DllName <> '' then   begin     try       Result := RunDllFun(Fun);     except       ShowMessage('发生了调用异常');     end;   end   else     raise Exception.Create('解析失败，可能是格式不正确'); end; ......................................... procedure TForm1.Button2Click(Sender: TObject); var   s: String;   i, r: Integer;   t: String;   FunInfo: TFunInfo;   function GetPaStr(pa: TArg): String;   begin     case pa.ArgType of       0:  Result := 'Null:0';       1:  Result := 'S:' + PChar(pa.S);       2:  Result := 'I:' + IntToStr(pa.I);       3:  Result := 'D:' + FloatToStr(pa.D);       12: Result := 'VI:' + IntToStr(pa.I);       else Result := 'UnKnown';     end;   end; begin   //表达式调用   s := Edit1.Text;   if Trim(s) <> '' then   begin     r := RunDLL2(s, FunInfo);     if r = 0 then     begin       for i := 0 to Length(FunInfo.Params) - 1 do       begin         if i = 0 then t := GetPaStr(FunInfo.Params)         else t := t + #13#10 + GetPaStr(FunInfo.Params);       end;       ShowMessage('调用成功,返回值:' + IntToStr(FunInfo.Ret) + #13#10 +         '参数列表:' + #13#10 + t);     end     else       ShowMessage('调用失败，错误代码:'+ IntToStr(r));   end   else     ShowMessage('请输入函数名称及参数'); end;

porsche · 2003-11-28

Lich,太谢谢你了，能不能把 UnQuoteString  SplitWithSpace 函数的代码也贴出来？谢谢 能不能加我一下？ QQ：4719373 [red]还有一个问题就是： 如 function abcd(a1:string;var a2:string):integer; stdcall; 你的这个例子好象还不能取得 a2 的返回值啊[/red]

lich · 2003-11-28

动态链接库中不要使用String类型,来做参数, 有很多跟共享内存有关的问题,而且其它的语言无法正常调用, 所以,建议沿用Windows API的接口方式,采用PChar 或者指针类型

porsche · 2003-11-28

to lich , SplitWithSpace 函数我已写好了，UnQuoteString  是作什么用的呢？

请求思路，一个DELPHI程序要调用DLL，而DLL中的函数名，参数个数，参数类型为不定，要调用的DLL中的函数名、参数个数、参数类型要可以在窗口中Edit中动

Rudder

Unregistered / Unconfirmed

porsche

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

porsche

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

cheylin

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

porsche

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

porsche

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

porsche

Unregistered / Unconfirmed

Similar threads