Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





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

Автор: Xavier Pacheco

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.
Скачать весь проект
           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011