Первый 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
DelphiWorld 6.0