| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос по TDXInput и DLL
Shurik © (2003-04-28 04:45:00)
Хотел, чтобы все функции, ответственные за ввод, располагались в отдельной DLL. Решил использовать DelphiX. Для начала поместил в DLL 2 функции: инициализации и завершения. Создал новое приложение, на нём - 2 батона, каждый вызывает свою функцию. Инициализация проходит нормально, финализация тоже, но при выходе из обработчика нажатия кнопки получаю Access Violation.
Вот код:
DLL/Init:
function Init (var ParentForm: TForm; out Error: PChar): Boolean;
begin
if Assigned (DInput) then
DoneInput;
DInput:=TDXInput.Create (ParentForm);
DInput.UseDirectInput:=True;
DInput.Initialize;
...
DLL/Done:
procedure Done;
begin
if Assigned (DInput) then
begin
DInput.Free;
DInput:=nil;
end;
end;
Что я не так делаю?
Shurik (2003-04-29 07:34:00) [1]
Всё, вопрос решился сам собой. Переправил динамическую загрузку на статическую - всё Ok. В чём была проблема, правда так и не понял.
| |
