而客户端是远程调用服务器端所提供的function,在客户端里已经做了个Unit来声明这个远程接口。如下的一个子过程:
procedure Tmainform.BitBtnSendClick(Sender: TObject);
var
ediobj:IEDISvr;
res:string;
begin
ediobj:=(HTTPRIO1 as IEDISvr);
res:=ediobj.sendedi(editCode.Text,editID.text,editPW.text,editType.Text,memo1.Lines.Text);
showmessage(res);
end;
要是另外再建立一个单元,在单元中定义接口做输出COM,这样还可以?