爱的眼睛：求助函数的问题，大伙帮看！不够分再加加加！几贴一起给分！火大！

Question

问题是这样的（怕说不清楚，写得很长了）:已有系列函数：function AS_GetRecords(const ProviderName: WideString; Count: Integer; out RecsOut: Integer; Options: Integer;const CommandText: WideString; var Params: OleVariant; var OwnerData: OleVariant): OleVariant; 在另一个unit里有：function TF2.QueryByIntf(const sFuncName, sParam : string): string;
var
  aExecFunc, vData : String;
begin
  ...
  aExecFunc := 'TF1.'+sFuncName+'('+sParam +')';
  vData :=      ????????                       //如何才能执行 aExecFunc 这个串所描述的函数
  self.cdsQuery.XMLData := vData;
  ...
end;使得类似如下调用aFuncName := 'AS_GetRecords';
aParamStr := 'dspQuery,-1,recNum,??1,sSQLCommand,??2,??3';
QueryByIntf(aFuncName,aParamStr);1.可以达到执行  TF1.AS_GetRecords(dspQuery,-1,recNum,??1,sSQLCommand,??2,??3);的目的。
2.上面AppServer函数如何调用？ 特别调用参数中??1,??2,??3该怎么用？若两问题解决，本贴，下贴，需要的话再开几贴一起给分！
http://community.csdn.net/Expert/topic/3688/3688486.xml?temp=.5886804   [email protected]

Answer 1

我也不是很懂, 想先問下:
 你的TF1, TF2 是不是在同一個exe 中, 還是你在做 com, dcom 之類, AS_GetRecords 是一個在反台執行的???

Answer 2

TEffectProc = procedure(Screen, Image: TBitmap; const Rect: TRect;
    Step: Integer; Progress: Integer);  TEffect = record
    Name: String;
    Proc: TEffectProc;
  end;procedure Effect001(Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
begin
...
end可以定义很多函数调用
PSEffects: array[1..2] of TEffect = ((Name: 'Expand from right';Proc: Effect001));这样调用
PSEffects[1].Proc(Media, Pic, R, Step, Progress);
当然也可以用Name得到Proc，也可以写个类来代替record或定义更多的信息，代码来自picshow组件，仅供参考.

Answer 3

查了以往的贴子，问题2自己解决了！呵呵
剩下问题1了，大伙帮帮忙，我的意思是想把客户端要调用的函数进行分解，把需要调用的函数名称及参数进行包装，通过一个通用的函数传递到服务器端，在服务器端才调用它。 [ 把客户端函数A分解（函数A的名称，函数A的参数:string）当做形参，传递给服务器端的一个函数B，在函数B中重新合成函数A（即aExecFunc）并执行函数A。 ]
不用通用的函数传递，单在客户端调用函数A我也会，但因为要调用的函数类型不一又非常的多，所以想传给服务器，让它来调用。

Answer 4

TO: Erice(白雪公猪) 我的意思是想把客户端要调用的函数进行分解，把需要调用的函数名称及参数包装成两字符串，再通过一个通用函数传递到服务器端，在服务器端才调用它。 [[[ 把客户端函数A分解（函数A的名称，函数A的参数:string）当做形参，传递给服务器端的一个函数B，在函数B中重新合成函数A，并执行函数A。 ]]]不用通用的函数传递，单在客户端调用函数A我也会，但因为要调用的函数类型不一又非常的多，所以想传给服务器，让它来调用。

Answer 5

感觉在一个什么“delphi葵花宝典”那资料上看的功能有点儿象，
感觉想完全这样操作要考虑的有点多，多个参数放一起，这样操作挺复杂
是不是还有分解这些数据才行呀。

Answer 6

为什么一定要用把函数名做参数的思路呢？难道就不能上传函数名，通过函数名来判断
执行哪个函数么？
如
if str=func1 then
result = func1(......)
else str=func2 then
result = func2(......)
.....
另外如果在服务器端可能函数还会不断增多，而不想升级客户和服务端程序的话，不妨
把函数写在dll中来调用，用函数名来识别dll文件，各dll内部结构用相同的。
不知道我的理解是不是理解骗了。

Answer 7

TO:  kuki84() 你的理解没偏,不过不能采用if的判断,因为如果要进行判断的话,那if可能要套上五六十个啦呵呵,
目前函数已有五六十个之多!
我下午在考虑一个和你类似的想法,就是用CASE,但是它不支持串,只支持有序数列(如数字),
于是想能不能定义个stringList的类型,把每个函数名存一行,在通过判断行数,得到行数,再用case
不知道行不行,弄不出来,高手指点一下.TO: whbo(王红波（决心找份工作）) 
谢谢提醒,我马上去查一下"delphi葵花宝典"各位高手出来指点一下呀,兄弟先谢啦!

Answer 8

可以得....
1. 你服務端　用TList保存可能調用到的所有函數指針（意圖很明顯了吧)
　　當然　裡面得函數指針都已經被初始化為實際得函數
   再用TStringList之類的保存所有函數的名稱(跟上面TList中的完全一致，這裡暫時不考慮函數重載之類的)
2. 當客戶端發送　'FuncA',那麼就直接　TStringList.IndexOf...直接獲得對應得下標　比如i
那麼　就直接　TList[i](argA,argB..)　因為TList裡面保存得就是函數指針　就直接用就是
3. 當然　解析規則你就自己定了　這樣吧　你可以定義一個結構
type CallRec = record
  FuncName: string;
  Args: array of string; // 只要傳值就可以了　類型不需要傳了　服務端知道
end;你再看看　我說得是不是你得意思。。

Answer 9

这个实际上就是以前人们讨论过的用MethodAddress实现用函数名调用函数的问题。可以搜索到很多文章的，我大概copy一点过来

Answer 10

不定参数function MyFunc(Params: Array of const):Variant;varI: Integer;beginResult := '';for I := 0 to High(Args) dowith Args[I] docase VType ofvtInteger: ...vtBoolean: ...vtChar: ...vtExtended: ...vtString: ...vtPChar: ...vtObject: ...vtClass: ...vtAnsiString: ...vtCurrency: ...vtVariant: ...vtInt64: ...end;end;调用:varafunc:TFUNC;begin;afunc := GetFunc('MyFunc');afunc([1,2.34,'abcde']);GetFunc根据一个字符串返回一个TFUNC变量(函数指针);afunc([1,2.34,'abcde']);是用一个整型、一个浮点型和一个字符串型参数去调用。假设现在调用的是MyFunc：在循环中：（i := 0 to 2）i=0:VType=vtInteger,VInteger=1i=1:VType=vtextended,VExtended^=2.34i=2:VType=vtAnsiString,string(VAnsiString)='abcde'详见TVarRec的帮助.不过这种方法无法得到函数的参数信息,调用者必须保证参数匹配,或所有的函数都要能处理任意个数任意类型 的参数,更好的方法是使用Automation对象,由于内容太多,我就不多讲了,用Delphi编写Automation对象非赏容 易,调用也很容易,因为Delphi内置了对Automation对象的支持,可要按字符串调用反而要自己去做了,你可以看 一下MSDN中IDispatch的帮助.C++Builder由于没有Automation对象的内置支持,所以是用字符串来查找 Automation对象的方法的,反而容易实现你的要求.GetFunc由你自己去写;Args写错了,应该是Params,VType是Params[i]的成员.String可以转化为PChar:PChar(String1);

Answer 11

GetFunc函数的实现，你自己参考Tobject的MethodAddress方法：class function MethodAddress(const Name: ShortString): Pointer;

Answer 12

TO: whbo(王红波（决心找份工作）) 
    找过了，不是，那个是用形参传递函数类型，而不是函数名这样的一个串类型。TO： beyondtkl(大龙驹<*百善孝为先*>) 
    你说的正是我原来想的变通之道的方法，我试试。TO： fjx99(fjx99) 
     谢谢指点，不过还有些地方不大明白怎么用，我再看看。谢谢各位指点，相关不懂的再请教上面的各位。
其它走过路过的兄弟请继续支招。

Answer 13

看你的函数的意思，好象写的过于集成了，好象还要取回BLOB字段内容一样，不过没关系，你的函数定义其实还真够罗嗦，觉得你的问题应该是多个SQL同时发到中间层，也就是批SQL处理，我这样理解对吗？
你可以使用STRINGLIST或者在字段后面加上#0，进行字段分隔，这样在中间层就好分离了

Answer 14

>>你的理解没偏,不过不能采用if的判断,因为如果要进行判断的话,那if可能要套上五六十个啦呵呵,如果是統一參數類型的, 還簡單 , 如果每個函數的參數個數, 類型不同的, 這樣做, 最後更加麻煩, 容易出錯! 
是可以, 只是得不償失!

Answer 15

哦，这样呀，不过已经弄了，只好等下版再改了，呵呵，谢谢aiiriigetit911,没问题，可以先祝贺啦，呵呵