serverobject.pas

来自「电脑编程技巧和源码。很不错的。」· PAS 代码 · 共 32 行

unit serverobject;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, ComObj, StdVcl,
  CorbaObj, serverprj_TLB;

type

  TCorbaServerObject = class(TCorbaImplementation, ICorbaServerObject)
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    function MultiplyServe(a, b: Integer): WideString; safecall;
  end;

implementation

uses CorbInit;

function TCorbaServerObject.MultiplyServe(a, b: Integer): WideString;
begin
Result:='TCorbaServerObject:'+IntToStr(a*b);
end;

initialization
  TCorbaObjectFactory.Create('CorbaServerObjectFactory', 'CorbaServerObject', 'IDL:serverprj/CorbaServerObjectFactory:1.0', ICorbaServerObject,
    TCorbaServerObject, iMultiInstance, tmSingleThread);
end.