Форум: "Начинающим";
Текущий архив: 2008.03.23;
Скачать: [xml.tar.bz2];
Внизвыгрузка dll из пямяти Найти похожие ветки
← →
Антон (2008-02-21 21:41) [0]если я в dll при проверке некоторых условий сделаю exit, то длл выгрузиться сама из памяти???
← →
Leonid Troyanovsky © (2008-02-21 21:48) [1]
> Антон (21.02.08 21:41)
> если я в dll при проверке некоторых условий сделаю exit,
> то длл выгрузиться сама из памяти???
Смотря где сделаешь, и, в общем случае, не обязана.
--
Regards, LVT.
← →
Leonid Troyanovsky © (2008-02-21 21:52) [2]
> Leonid Troyanovsky © (21.02.08 21:48) [1]
Мда.
Даже на FreeLibrary не обязана.
--
Regards, LVT.
← →
Антон (2008-02-21 21:53) [3]загружаю dll так:
@GetSimpleText := nil;
LibHandle := LoadLibrary("MYDLL.DLL");
if LibHandle >= 32 then begin
@GetSimpleText := GetProcAddress(LibHandle,"GetSimpleText");
if @GetSimpleText <> nil then
memo.lines.text := GetSimpleText(text_1);
end;
FreeLibrary(LibHandle);
в длл в функции GetSimpleText когда получаю text_1 и например делаю условиеif xz then begin
result := "error";
exit;
end;
← →
Антон (2008-02-21 21:53) [4]Удалено модератором
← →
Leonid Troyanovsky © (2008-02-21 22:00) [5]
> Антон (21.02.08 21:53) [3]
> делаю условие
Плохо делаешь.
Небось, пространный комментарий в заготовке длл и не осмыслял.
--
Regards, LVT.
← →
Loginov Dmitry © (2008-02-21 22:01) [6]> if LibHandle >= 32 then begin
Откуда такая магическая цифра? Где взял?
← →
Loginov Dmitry © (2008-02-21 22:03) [7]> if xz then begin
> result := "error";
> exit;
> end;
exit в данном контексте - это досрочный выход из процедуры.
← →
Антон (2008-02-21 22:16) [8]ну не 32 а <> 0,прост копирнул код не из дельфи, а с сайта с котого код брал :)
а с exit чет и вправду ступил...думаю над закрыть тему,пока еще больше не попозорился...=)
← →
Дмитрий Патрушев © (2008-02-22 00:02) [9]Ты прав
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.03.23;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c