CORBA клиент-сервер

Delphi , Технологии , CORBA

Автор: Xavier Pacheco

unit ufrmCorbaClient;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, SimpleCorbaServer_TLB, corbaObj, Grids;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    edtDatabase: TEdit;
    Label3: TLabel;
    edtUserName: TEdit;
    Label4: TLabel;
    edtPassword: TEdit;
    Button5: TButton;
    GroupBox2: TGroupBox;
    memoSQL: TMemo;
    GroupBox3: TGroupBox;
    Button6: TButton;
    grdCorbaData: TStringGrid;
    procedure ConnectClick(Sender: TObject);
    procedure ExecuteClick(Sender: TObject);
  private
    { Private declarations }
    FQueryServer: IQueryServer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ConnectClick(Sender: TObject);
begin
  if not (assigned(FQueryServer)) then
    FQueryServer := TQueryServerCorbaFactory.CreateInstance('SimpleServer');
  FQueryServer.Login(edtDatabase.Text, edtUserName.Text, edtPassword.Text);
end;

procedure TForm1.ExecuteClick(Sender: TObject);
var
  i, j: integer;
  CorbaData: OLEVariant;
begin
  FQueryServer.SQL := memoSQL.Text;
  FQueryServer.Execute;

  grdCorbaData.ColCount := FQueryServer.FieldCount;
  grdCorbaData.RowCount := 0;
  j := 0;

  while not (FQueryServer.EOF) do
  begin
    inc(j);
    grdCorbaData.RowCount := j;
    CorbaData := (FQueryServer.Data);
    for i := 0 to FQueryServer.FieldCount - 1 do
    begin
      grdCorbaData.Cells[i + 1, j - 1] := CorbaData[i];
    end;
    FQueryServer.Next;
  end;
end;

end.

Программа на Delphi, которая реализует приложение клиент-сервер с использованием технологии CORBA с помощью компонентов SimpleCorbaServer_TLB и corbaObj.

Проект состоит из единственного формы (ufrmCorbaClient) с рядом контролов:

• Четыре текстовых поля для ввода базы данных, имени пользователя, пароля и SQL-запроса
• Два кнопки: Connect и Execute
• Мемобокс для отображения SQL-запроса
• Сетка строк для отображения результатов запроса

Приложение использует компонент TQueryServerCorbaFactory для создания экземпляра интерфейса IQueryServer. Этот интерфейс используется для подключения к серверу CORBA, выполнения запросов и получения данных.

Разбивка кода:

• В процедуре ConnectClick приложение проверяет, является ли переменная FQueryServer зарезервированной. Если нет, то создается новый экземпляр интерфейса IQueryServer с помощью компонента TQueryServerCorbaFactory. Затем вызывается метод Login, чтобы аутентифицироваться на сервере CORBA.
• В процедуре ExecuteClick приложение задает SQL-запрос, который будет выполнен, используя мемобокс, и затем вызывает метод Execute интерфейса IQueryServer. Результаты запроса получаются и отображаются в сетке строк.

Заметки:

• Код использует тип OLEVariant для представления данных CORBA, возвращенных с сервера.
• Переменная FQueryServer объявлена как экземпляр интерфейса IQueryServer, но не ясно, где определен этот интерфейс. Вероятно, что компоненты SimpleCorbaServer_TLB и corbaObj предоставляют этот интерфейс.
• Код предполагает, что сервер CORBA запущен и имя пользователя, пароль и база данных являются валидными. Возможно, необходима обработка ошибок для случаев, когда эти предположения не выполняются.

В целом, это проект демонстрирует, как создавать приложение клиент-сервер с использованием Delphi и технологии CORBA с помощью компонентов SimpleCorbaServer_TLB и corbaObj.

В статье представлен пример implementation CORBA-клиента на Delphi, который обеспечивает работу с сервером SimpleCorbaServer.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: CORBA ::