Пытаюсь сделать динамическую загрузку dll. Dll-библиотека не подает признаков жизни

@Артемида1996 · Регистрация: 26.11.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте. У меня такое дело, я пытаюсь создать в своей программе динамическую загрузку dll-библиотеки:

Delphi

type
  TApple = procedure;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
    Apple : TApple;    
    DLLName : THandle;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
DLLName := LoadLibrary('DLLName.dll');
if DLLName <> 0 then
begin
@Apple := GetProcAddress(DLLName, 'Apple');
Apple;
end
else
ShowMessage('dll not found');
end;

Где Apple - это имя процедуры, из dll-библиотеки. Когда я запускаю программу, все норм, работает без ошибок. Но сама dllка, не подает признаков жизни, т.е. собственно ее код не выполняется.

murderer · 10.09.2017, 05:30

Видимо не отрабатывает условие.

Delphi

1	if DLLName <> 0 then

То есть dll не загружается. Попробуй указать полный путь к dll.

@Артемида1996 · 10.09.2017, 18:47 **[ТС]**

Сообщение от murderer

То есть dll не загружается. Попробуй указать полный путь к dll.

Я уже пробовала. Без толку. И да, если dll не загружается, программа пишет что она не найдена:

Delphi

1 2	else ShowMessage('dll not found');

@cotseec · 10.09.2017, 18:52

Сообщение от Артемида1996

Но сама dllка, не подает признаков жизни, т.е. собственно ее код не выполняется.

как понимается, что код не выполняется? (как должна оповестить функция Apple, что ее код как-то выполнился?)

@Артемида1996 · 10.09.2017, 19:13 **[ТС]**

Сообщение от cotseec

как понимается, что код не выполняется? (как должна оповестить функция Apple, что ее код как-то выполнился?)

Она должна скачать файл.

@cotseec · 10.09.2017, 19:22

Сообщение от Артемида1996

Она должна скачать файл.

и не скачивает?

варианты:
источник невалиден;
время скачивания превышает время ожидания (функция не успела скачать, а не найдя файла программа выключается с криком не работает);
не там ищется скачанный файл (не в той папке, в которой ожидается, имхо, стоит в функцию передавать путь, куда складывать результат);
соглашения о вызовах (в библиотеке помечена, например, как stdcall, а в вызывающем коде - нет, хотя при отсутствии передаваемых и возвращаемых данных не особо критично);
в функции попытка использовать Application и его производные;
и т.д. и т.п.

библиотека самописная?

@Артемида1996 · 10.09.2017, 19:25 **[ТС]**

Сообщение от cotseec

и не скачивает?
варианты:
источник невалиден;
время скачивания превышает время ожидания (функция не успела скачать, а не найдя файла программа выключается с криком не работает);
не там ищется скачанный файл (не в той папке, в которой ожидается, имхо, стоит в функцию передавать путь, куда складывать результат);
соглашения о вызовах (в библиотеке помечена, например, как stdcall, а в вызывающем коде - нет, хотя при отсутствии передаваемых и возвращаемых данных не особо критично);
в функции попытка использовать Application и его производные;
и т.д. и т.п.
библиотека самописная?

Да, не скачивает. С библиотекой все порядке, так как при обычном вызове, не динамическом, она нормально работает. Проблема в самой вызывающей программе.

@cotseec · 10.09.2017, 19:29

после

Delphi

1	@Apple := GetProcAddress(DLLName, 'Apple');

Apple<>null? (смотри в отладчике)

@Артемида1996 · 10.09.2017, 19:54 **[ТС]**

Сообщение от cotseec

Apple<>null? (смотри в отладчике)

В смысле?

murderer · 11.09.2017, 06:56

cotseec
Если бы apple было невалидным вылетел бы GP Fault.

@Артемида1996 · 12.09.2017, 16:53 **[ТС]**

Бамп.

@cotseec · 12.09.2017, 19:53

murderer, GetProcAddress вернет или действительный адрес или null, при недействительном адресе - исключение, при null - стоит проверить

murderer · 13.09.2017, 12:59

Артемида1996
Выкладывай dll - надо смотреть под отладчиком.

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	10.09.2017, 18:52	4
	Сообщение от Артемида1996 Но сама dllка, не подает признаков жизни, т.е. собственно ее код не выполняется. как понимается, что код не выполняется? (как должна оповестить функция Apple, что ее код как-то выполнился?) 0

@Артемида1996 0 / 1 / 0 Регистрация: 26.11.2016 Сообщений: 189
	10.09.2017, 19:13 [ТС]	5
	Сообщение от cotseec как понимается, что код не выполняется? (как должна оповестить функция Apple, что ее код как-то выполнился?) Она должна скачать файл. 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	10.09.2017, 19:22	6
	Сообщение от Артемида1996 Она должна скачать файл. и не скачивает? варианты: источник невалиден; время скачивания превышает время ожидания (функция не успела скачать, а не найдя файла программа выключается с криком не работает); не там ищется скачанный файл (не в той папке, в которой ожидается, имхо, стоит в функцию передавать путь, куда складывать результат); соглашения о вызовах (в библиотеке помечена, например, как stdcall, а в вызывающем коде - нет, хотя при отсутствии передаваемых и возвращаемых данных не особо критично); в функции попытка использовать Application и его производные; и т.д. и т.п. библиотека самописная? 0

@Артемида1996 0 / 1 / 0 Регистрация: 26.11.2016 Сообщений: 189
	10.09.2017, 19:25 [ТС]	7
	Сообщение от cotseec и не скачивает? варианты: источник невалиден; время скачивания превышает время ожидания (функция не успела скачать, а не найдя файла программа выключается с криком не работает); не там ищется скачанный файл (не в той папке, в которой ожидается, имхо, стоит в функцию передавать путь, куда складывать результат); соглашения о вызовах (в библиотеке помечена, например, как stdcall, а в вызывающем коде - нет, хотя при отсутствии передаваемых и возвращаемых данных не особо критично); в функции попытка использовать Application и его производные; и т.д. и т.п. библиотека самописная? Да, не скачивает. С библиотекой все порядке, так как при обычном вызове, не динамическом, она нормально работает. Проблема в самой вызывающей программе. 0

@Артемида1996 0 / 1 / 0 Регистрация: 26.11.2016 Сообщений: 189
	10.09.2017, 19:54 [ТС]	9
	Сообщение от cotseec Apple<>null? (смотри в отладчике) В смысле? 0

murderer 4174 / 1824 / 218 Регистрация: 06.10.2010 Сообщений: 4,111
	11.09.2017, 06:56	10
	cotseec Если бы apple было невалидным вылетел бы GP Fault. 0

@Артемида1996 0 / 1 / 0 Регистрация: 26.11.2016 Сообщений: 189
	12.09.2017, 16:53 [ТС]	11
	Бамп. 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	12.09.2017, 19:53	12
	murderer, GetProcAddress вернет или действительный адрес или null, при недействительном адресе - исключение, при null - стоит проверить 0

murderer 4174 / 1824 / 218 Регистрация: 06.10.2010 Сообщений: 4,111
	13.09.2017, 12:59	13
	Артемида1996 Выкладывай dll - надо смотреть под отладчиком. 0

Опции темы