基本的三层问题
我在应用服务器端定义了一个函数.
procedure Ttest.sqlexec(const sqlstr: WideString);
begin
if Trim(sqlstr) = '' then
raise ERangeError.Create(
'查询语句不能为空!');
with ADOQuery1 do
begin
if Active then close;
sql.Clear;
sql.Add(sqlstr);
end;
end;
在客户端中调用.
procedure TForm3.Button1Click(Sender: TObject);
begin
with DataModule4 do
begin
DCOMConnection1.Connected := true;
DCOMConnection1.AppServer.test(Edit1.Text);//这一句运行期错
ClientDataSet1.Open;
end;
end;
error: mothed 'test' not support automation object.
请教.