rdmunit.pas.~4~

三层系统设计中,应用服务层和客户端使用结构体传送数据进行通信.

unit RDMUnit;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  DBClient, Srv_TLB, StdVcl,Comm;

type
  Txxx = class(TRemoteDataModule, Ixxx)
  private
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
    function GetRec: OleVariant; safecall;
    function GetRecTest(var Param1: OleVariant): OleVariant; safecall;
  public
    { Public declarations }
  end;

implementation

{$R *.DFM}

class procedure Txxx.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
    EnableWebTransport(ClassID);
  end else
  begin
    DisableSocketTransport(ClassID);
    DisableWebTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;

function Txxx.GetRec: OleVariant;
var
  myRec1:TARec;
begin
  myRec1.Name := '中英Chinese';
  myRec1.Age := 34;
  Result := RecordToVariant2(myRec1);
end;

function Txxx.GetRecTest(var Param1: OleVariant): OleVariant;
var
        MyRec1 : TARec;
begin
        VariantToRecord2(Param1);
end;

initialization
  TComponentFactory.Create(ComServer, Txxx,
    Class_xxx, ciMultiInstance, tmApartment);
end.