Скачать: CL | DM;

Вопрос по TDXInput и DLL   Найти похожие ветки 

← →
Shurik   (2003-04-28 04:45) [0]

Хотел, чтобы все функции, ответственные за ввод, располагались в отдельной 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) [1]

Всё, вопрос решился сам собой. Переправил динамическую загрузку на статическую - всё Ok. В чём была проблема, правда так и не понял.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c