ucorbadmmdserver.pas

来自「就是这本书的随书代码。包括《实战Delphi 5.x-分布式多层应用系统篇》」· PAS 代码 · 共 52 行

unit ucorbadmMDServer;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComObj, VCLCom, StdVcl, DataBkr, CorbaRdm, CorbaObj,
  PCORBAMDServer_TLB, Db, DBTables, Provider, DBClient;

type

  TCORBAMDServer = class(TCorbaDataModule, ICORBAMDServer)
    Database1: TDatabase;
    quryCustomer: TQuery;
    quryOrders: TQuery;
    dsCustomer: TDataSource;
    dspCustomerOrders: TDataSetProvider;
    procedure dspCustomerOrdersUpdateData(Sender: TObject;
      DataSet: TClientDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    function Get_ServerTime: OleVariant; safecall;
  end;

var
  CORBAMDServer: TCORBAMDServer;

implementation

{$R *.DFM}

uses CorbInit, CorbaVcl, fCORBAMDServerMain;

procedure TCORBAMDServer.dspCustomerOrdersUpdateData(Sender: TObject;
  DataSet: TClientDataSet);
begin
  Form1.ClientDataSet1.Data := DataSet.Data;
end;

function TCORBAMDServer.Get_ServerTime: OleVariant;
begin
  Result := DateTimeToStr(Now);
end;

initialization
  TCorbaVclComponentFactory.Create('CORBAMDServerFactory', 'CORBAMDServer', 'IDL:PCORBAMDServer/CORBAMDServerFactory:1.0', ICORBAMDServer,
    TCORBAMDServer, iMultiInstance, tmSingleThread);
end.