Delphi → Взаимодействие Oracle и Delphi

Сен 22, 2010


Для работы с базой данных Oracle наиболее подходящим компонентом является Direct Oracle Access (DOA). После многочисленных неудачных попыток установить этот компонент на используемую мной среду разработки Turbo Delphi Portable (BDS2006), я было отчаялся, и хотел уже устанавливать полную версию Borland Delphi Studio.

Но в конце концов, я одолел установку этого компонента, о чем поведаю вам в этом посте, а в конце статьи вы можете найти ссылки на необходимую IDE и DOA.


Официально стоимость компонента составляет $129 - цена небольшая, если учитывать стоимость базы данных Oracle, но нам нужно "пощупать" компонент и trial версия не для нас. Скачать, скажем так, "notrial" версию для BDS2006 можно с thepiratebay.org, а саму IDE Turbo Delphi Portable из прошлого поста.  Запускаем установщик doa41d2007.exe, после чего нам предлагают ввести Product Code, который можно найти в текстовом файле идущим вместе с компонентом.


После того, как установщик распакует все файлы и выдаст путь к распакованным файлам, отказываемся от дальнейшей установки. Переходим по указанному пути и копируем содержимое папок Units и Package в директорию Lib вашей среды разработки.

Запускаем Delphi и открываем файл doa41d2006.bdsproj из папки Lib. С правой стороны в Project Manager появится пакет doa41d2006.bpl, нажимаем на него правой кнопкой и выбираем Install. Установка закончена!


Теперь в панели инструментов (компонентов) в разделе Data Access должны появится объекты DOA. Работать с компонентом достаточно просто - можно кинуть на форму объекты, а можно создать их программно - пример такой реализации я покажу далее.


За авторизацию отвечает объект TOracleSession, объект отвечающий за SQL запросы TOracleQuery - их экземпляры мы создадим и настроим.

var
// Объявляем переменные для экземпляров
OraSession: TOracleSession;
OraQuery: TOracleQuery;

implementation

procedure TForm1.Button1Click(Sender: TObject);
var argument: string;
begin
argument := 'admin';
// Создаем экземпляр
OraSession := TOracleSession.Create(Self);
// Устанавливаем параметры
OraSession.LogonUsername := 'login';
OraSession.LogonPassword := 'pass';
OraSession.LogonDatabase := 'database';
// Авторизуемся
OraSession.LogOn;
// Создаем экземпляр
OraQuery := TOracleQuery.Create(Self);
// Связываем экземпляры между собой
OraQuery.Session := OraSession;
// Добавляем строку запроса, где :arg переменная
OraQuery.SQL.Add('SELECT USERNAME FROM USERS WHERE LOGIN=:arg');
// Объявляем переменную arg типа String
OraQuery.DeclareVariable('arg', otString);
// Присваиваем переменной arg значение argument
OraQuery.SetVariable('arg', argument);
// Выполняем запрос
OraQuery.Execute;
// Отображаем значение поля USERNAME
ShowMessage(OraQuery.Field('USERNAME'));
// Освобождаем экземпляр
OraQuery.Free;
// Выходим из сеанса
OraSession.LogOff;
// Освобождаем экземпляр
OraSession.Free;
end;


Среду разработки (IDE) можно скачать здесь Turbo Delphi Portable.

Скачать doa2006.zip
Размер: 2.8 MB – Скачиваний: 2915 – Скачан последний раз: 14.08.2012 18:28

Post to Twitter

Похожие статьи:

  1. Portable Delphi
  2. Установка Indy на Portable Delphi
  3. Использование XML в Delphi (msxml_tlb)
  4. Компонент Antigate для Delphi
  5. Привязка к железу в Delphi

Комментарии (2)

  1. avatar

    Pomoshnik
    Сентябрь 29th, 2010 at 00:52 #

    Хороший блог очень понравился буду следить за вашими новостями.

  2. avatar

    RilatouKIMO
    Ноябрь 6th, 2010 at 04:17 #

    Давно искал данную инфу, Сенкс за Вашу работу.

Ваш комментарий

Rambler's Top100 Яндекс.Метрика