如何将SocketConnection的AppServer转成接口??

cncharles 2006-06-22 04:11:38

//服务器端的DataModule
type
TTest = class(TRemoteDataModule, ITest)
DataSetProvider1: TDataSetProvider;
ADOQuery1: TADOQuery;
ADOConnection1: TADOConnection;
private
{ Private declarations }
protected
class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
procedure GetValue(var I: SYSINT); safecall;

public
{ Public declarations }
end;

LIBID_Server: TGUID = '{F56A9A6D-94D9-4D53-B08C-5CA01F2939EC}';

IID_ITest: TGUID = '{71D745E1-2AE3-4623-846B-4DC57E11C429}';
CLASS_Test: TGUID = '{2CFC79FC-3F38-4678-9D94-9A37A033F03E}';

ITest = interface(IAppServer)
['{71D745E1-2AE3-4623-846B-4DC57E11C429}']
procedure GetValue(var I: SYSINT); safecall;
end;

// *********************************************************************//
// DispIntf: ITestDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {71D745E1-2AE3-4623-846B-4DC57E11C429}
// *********************************************************************//
ITestDisp = dispinterface
['{71D745E1-2AE3-4623-846B-4DC57E11C429}']
procedure GetValue(var I: SYSINT); dispid 301;
function AS_ApplyUpdates(const ProviderName: WideString; Delta: OleVariant; MaxErrors: Integer;
out ErrorCount: Integer; var OwnerData: OleVariant): OleVariant; dispid 20000000;
function AS_GetRecords(const ProviderName: WideString; Count: Integer; out RecsOut: Integer;
Options: Integer; const CommandText: WideString; var Params: OleVariant;
var OwnerData: OleVariant): OleVariant; dispid 20000001;
function AS_DataRequest(const ProviderName: WideString; Data: OleVariant): OleVariant; dispid 20000002;
function AS_GetProviderNames: OleVariant; dispid 20000003;
function AS_GetParams(const ProviderName: WideString; var OwnerData: OleVariant): OleVariant; dispid 20000004;
function AS_RowRequest(const ProviderName: WideString; Row: OleVariant; RequestType: Integer;
var OwnerData: OleVariant): OleVariant; dispid 20000005;
procedure AS_Execute(const ProviderName: WideString; const CommandText: WideString;

现在客户端如何用SocketConnection.AppServer转换成ITest或ITestDisp呢?

感谢 YY群的哈欠提供下面的方法, 不过只能得ITestDisp并且代码并不安全.
有高手提供更好的方法另外给分.

procedure TForm3.Button1Click(Sender: TObject);
var
I: integer;
ADisp:ITestDisp;
begin
{
SocketConnection1.AppServer.GetValue(I);
ShowMessage(IntToStr(I));} //这样肯定可以得到
ADisp:=ITestDisp(IDispatch(SocketConnection1.AppServer));
ADisp.GetValue(I);
ShowMessage(IntToStr(I));
end;

...全文