S
shuyi
Unregistered / Unconfirmed
GUEST, unregistred user!
比如我在程序中要调我写的一个COM+是非常方便的,代码如下
var
aa: Variant;
begin
aa := CreateOleObject('project1.test1');
showmessage(aa.msg('test'));
aa := Unassigned;
end;
但是如果"project1" "test1" "msg" "test"是作为四个变量在程序中的如何来调用?
其实说白了三个本来就是变量,只是执行Msg方法如何来实现比较困难;
var
aa: Variant;
ObjName,MethodName,Params:string;
begin
ObjName:=project1.test1;
MethodName:='msg';
Params:='test';
aa := CreateOleObject(ObjName);
这里怎么来写??
aa := Unassigned;
end;
var
aa: Variant;
begin
aa := CreateOleObject('project1.test1');
showmessage(aa.msg('test'));
aa := Unassigned;
end;
但是如果"project1" "test1" "msg" "test"是作为四个变量在程序中的如何来调用?
其实说白了三个本来就是变量,只是执行Msg方法如何来实现比较困难;
var
aa: Variant;
ObjName,MethodName,Params:string;
begin
ObjName:=project1.test1;
MethodName:='msg';
Params:='test';
aa := CreateOleObject(ObjName);
这里怎么来写??
aa := Unassigned;
end;