>>client端的DataServer := CoDataServer.CreateRemote('YourMachine');
服务端写组件,提供方法让客户端调用,这居是创建服务器上的组件实例。
具体的你可以参考李维的Ado/Mts/COM+那本书,讲的很好!
>>DataServer.GetParamAndDoProc(a,b,c,d);
这里的abcd是否可以变为edit。text?
这句是调用组件提供的方法,a,b,c,d只是参数,可以为任意简单类型,也可以全部
当成变体类型OleVariant来传递。所以当然可以传递字符串。
你可以定义组件方法的参数全部是Olevariant,然后调用时
client:
var a,b,c,d: OleVariant;
begin
a := Edit1.text;
b := Edit2.Text;
c := COmbobox1.ItemIndex;
d := Memo1.lines.text;
DataServer := CoDataServer.CreateRemote('YourMachine');
DataServer.GetParamAndDoProc(a,b,c,d);