скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Первый 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 © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook