urdmdeltademoserver.pas

就是这本书的随书代码。包括《实战Delphi 5.x-分布式多层应用系统篇》

unit urdmDeltaDemoServer;

interface

uses
  Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  DBClient, PDeltaDemoServer_TLB, StdVcl, Provider, Db, DBTables;

type
  TDeltaDemoServer = class(TRemoteDataModule, IDeltaDemoServer)
    Session1: TSession;
    quryCustomers: TQuery;
    Database1: TDatabase;
    pdCustomers: TDataSetProvider;
    quryBanks: TQuery;
  private
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
    function Get_Banks: OleVariant; safecall;
    function GetBankIDFromName(vName: OleVariant): OleVariant; safecall;
  public
    { Public declarations }
  end;

implementation

{$R *.DFM}

class procedure TDeltaDemoServer.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 TDeltaDemoServer.Get_Banks: OleVariant;
var
  vBanks : OleVariant;
  iCount : Integer;
begin
  vBanks := VarArrayCreate([0, quryBanks.RecordCount - 1], varVariant);
  quryBanks.First;
  iCount := 0;
  while not quryBanks.Eof do
  begin
    vBanks[iCount] := quryBanks.FieldByName('BANKNAME').Value;
    Inc(iCount);
    quryBanks.Next;
  end;
  Result := vBanks;
end;

function TDeltaDemoServer.GetBankIDFromName(vName: OleVariant): OleVariant;
begin
  if (quryBanks.Locate('BANKNAME', vName, [])) then
    Result := quryBanks.FieldByName('BANKNO').Value;
end;

initialization
  TComponentFactory.Create(ComServer, TDeltaDemoServer,
    Class_DeltaDemoServer, ciMultiInstance, tmApartment);
end.