delphi 在TYPE library中构建一个方法 return type :HRESULT
name type modifier
c VARIANT * out
服务器端:
procedure m(out c: OleVariant); safecall;
procedure Tsl_server.m(out c: OleVariant);
begin
c:='123'
end;
客户端调用:
showmessage(socket.AppServer.m('1'));
没有返回值!
name type modifier
c VARIANT * out
服务器端:
procedure m(out c: OleVariant); safecall;
procedure Tsl_server.m(out c: OleVariant);
begin
c:='123'
end;
客户端调用:
showmessage(socket.AppServer.m('1'));
没有返回值!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货