Первый CORBA сервер

Previous  Top  Next

    
 

 

Code:

unit uMyFirstCorbaServer;

 

interface

 

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, ComObj, StdVcl,

CorbaObj, FirstCorbaServer_TLB;

 

type

 

TMyFirstCorbaServer = class(TCorbaImplementation, IMyFirstCorbaServer)

private

   { Private declarations }

public

   { Public declarations }

protected

   procedure SayHelloWorld; safecall;

end;

 

implementation

 

uses CorbInit;

 

procedure TMyFirstCorbaServer.SayHelloWorld;

begin

 

end;

 

initialization

TCorbaObjectFactory.Create('MyFirstCorbaServerFactory', 'MyFirstCorbaServer',

   'IDL:FirstCorbaServer/MyFirstCorbaServerFactory:1.0', IMyFirstCorbaServer,

   TMyFirstCorbaServer, iMultiInstance, tmSingleThread);

end.

 

 

©Drkb::04360

http://delphiworld.narod.ru/

DelphiWorld 6.0