Client端，Form上放一个TADOQuery,不用连接Connection:
 
获取资料
procedure TForm1.Button5Click(Sender: TObject);
var
  V:OLEVariant;
  AR:_Recordset;
  AStream:_Stream;
  MS1:TMemoryStream;
  P:Pointer;
  s:string;
begin
  DCOM.Connected:=true;
  try
    s:=‘‘;
    V:=DCOM.AppServer.ReadADOData(‘select * from FORMDD‘);
    MS1:=TMemoryStream.Create;
    try
      MS1.Size:=VarArrayHighBound(V,1)+1;
      P:=VarArrayLock(V);
      try
        Move(P^,MS1.Memory^,MS1.Size);
      finally
        VarArrayUnLock(V);
      end;
      V:=VarArrayCreate([0,MS1.Size-1],varByte);
      P:=VarArrayLock(V);
      try
        Move(MS1.Memory^,P^,MS1.Size);
      finally
        VarArrayUnLock(V);
      end;
    finally
      MS1.Free;
    end;
    AStream:=CoStream.Create;
    AStream.Open(EmptyParam,adModeUnknown,adOpenStreamUnspecified, ‘‘, ‘‘);
    AStream.Type_:=adTypeBinary;
    AStream.Write(V);
 
    AR:=_Recordset(CoRecordset.Create);
    AStream.Position:=0;
    AR.Open(AStream,EmptyParam,adOpenUnspecified, adLockUnspecified, -1);
    ADOQuery1.Recordset:=ADOInt._Recordset(AR);
  finally
    DCOM.Connected:=false;
  end;
end;
 
//保存资料
procedure TForm1.Button6Click(Sender: TObject);
var
  AStream:_Stream;
  V:OLEVariant;
begin
  DCOM.Connected:=true;
  try
    ADOQuery1.CheckBrowseMode;
    AStream:=CoStream.Create;
    OLEVariant(ADOQuery1.Recordset).Save(AStream,adPersistADTG);
    AStream.Position:=0;
    V:=AStream.Read(AStream.Size);
    DCOM.AppServer.SaveADOData(V);
    ADOQuery1.UpdateBatch;  //no connection,means clearchangelog
  finally
    DCOM.Connected:=false;
  end;
end;