VPF::Динамически загружаемая Dll и процедура

ivan219

Дата 11.10.2006, 22:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Код процедуры в Dll.

Код


procedure EditChange(Name:PChar; A:Real); StdCall;
begin
 if Name='Edit1' then C:=A;
 if Name='Edit2' then L:=A;
 if Name='Edit3' then F:=A;
end;

Вот так я её загружаю в EXE.

Код


procedure DllEditChange(Name,NameEdit:PChar; A:Real);
var
   EditChange: procedure(NameEdit:PChar; A:Real);
begin
 EditChange:=GetProcAddress(LibHandle, Name);
 if Assigned(EditChange) then EditChange(NameEdit,A);
end;

Вызывая процедуру DllEditChange

Код


   NameEdit:=PChar(TEdit(Sender).Name);
   A:=StrToFloat(TEdit(Sender).Text);
   DllEditChange('EditChange',NameEdit,A);

Библиотека загружается и выгружается отдельной процедурой и она загружена, это 100%

Вобщем такая проблема как только я вызываю эту DllEditChange процедуру вылетает ошибка в Delphi а просто в Windows приложение просто закрывается smile

Что я зделал не так smile

Добавлено @ 22:39
Ещё если загружать так

Код


procedure EditChange(NameEdit:PChar; A:Real); StdCall;
 external DLLLoadLabel Name 'EditChange';

И вызыват так

Код


   NameEdit:=PChar(TEdit(Sender).Name);
   A:=StrToFloat(TEdit(Sender).Text);
   EditChange(NameEdit,A);

То всё работает отлично smile

но мне надо чтоб загрузка была динамическая!

--------------------

Мой первый сайт и моя первая программа!!!!!

Snowy

Дата 11.10.2006, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

не указал, что процедура stdcall в exe.

Добавлено @ 22:41

Цитата(ivan219 @ 11.10.2006, 22:32

)

Ещё если загружать так

А так указал - потому и работает.

ivan219

Дата 11.10.2006, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Ну а без пораметров тоже работает

Код


procedure DllEdiCleaner(Name:PChar);
var
   EdiCleaner: procedure;
begin
 EdiCleaner:=GetProcAddress(LibHandle, Name);
 if Assigned(EdiCleaner) then EdiCleaner;
end;

А где что неуказал smile

Добавлено @ 22:45
А кажись понял smile

Добавлено @ 22:47
А почему без пораметров тогда работало smile

Код


procedure DllEditChange(Name,NameEdit:PChar; A:Real);
var
   EditChange: procedure(NameEdit:PChar; A:Real); StdCall;
begin
 EditChange:=GetProcAddress(LibHandle, Name);
 if Assigned(EditChange) then EditChange(NameEdit,A);
end;

--------------------

Мой первый сайт и моя первая программа!!!!!

Snowy

Дата 11.10.2006, 22:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

stdcall - соглашение о передаче параметров.
Без параметров - пофигу.
А с параметрами - разная очерёдность укладывания в стек при вызове.
Ты их клал в одном порядке, а извлекал в другом.

Добавлено @ 22:59
Точнее не ты, а компилятор, потому что ты его обманул smile

ivan219

Дата 11.10.2006, 23:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Цитата(Snowy @ 11.10.2006, 22:58

)

потому что ты его обманул

Я больше так не буду smile

Спасибо!!!

--------------------

Мой первый сайт и моя первая программа!!!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »