Delphi→ Взаимодействие Oracle и Delphi
Сен 22, 2010
![](https://tdlite.ru/wp-content/uploads/2022/01/thumb-directoracleaccess_320x320.jpg)
Для работы с базой данных Oracle наиболее подходящим компонентом является Direct Oracle Access (DOA). После многочисленных неудачных попыток установить этот компонент на используемую мной среду разработки Turbo Delphi Portable (BDS2006), я было отчаялся, и хотел уже устанавливать полную версию Borland Delphi Studio.
Но в конце концов, я одолел установку этого компонента, о чем поведаю вам в этом посте, а в конце статьи вы можете найти ссылки на необходимую IDE и DOA.
Официально стоимость компонента составляла $129 — цена небольшая, если учитывать стоимость базы данных Oracle, но нам нужно «пощупать» компонент и trial версия не для нас. Запускаем установщик 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;
Скачать doa2006.zip
Похожие статьи: