Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 023

•  TDictionary Custom Sort  6 127

•  Fast Watermark Sources  5 925

•  3D Designer  8 773

•  Sik Screen Capture  6 254

•  Patch Maker  6 674

•  Айболит (remote control)  6 671

•  ListBox Drag & Drop  5 530

•  Доска для игры Реверси  95 687

•  Графические эффекты  6 898

•  Рисование по маске  6 115

•  Перетаскивание изображений  5 059

•  Canvas Drawing  5 429

•  Рисование Луны  5 145

•  Поворот изображения  4 691

•  Рисование стержней  3 305

•  Paint on Shape  2 544

•  Генератор кроссвордов  3 433

•  Головоломка Paletto  2 748

•  Теорема Монжа об окружностях  3 543

•  Пазл Numbrix  2 328

•  Заборы и коммивояжеры  3 012

•  Игра HIP  1 969

•  Игра Go (Го)  1 887

•  Симулятор лифта  2 241

•  Программа укладки плитки  1 951

•  Генератор лабиринта  2 394

•  Проверка числового ввода  2 080

•  HEX View  2 406

•  Физический маятник  2 042

 
скрыть

  Форум  

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

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



Delphi Sources

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




Похожие по теме исходники

Stud WebServer (web-сервер)

Proxy 1.0 (прокси-сервер)




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте