Форум: "Основная";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
ВнизПроблемма с DLL Найти похожие ветки
← →
Dmitriy_R (2003-03-04 12:58) [0]Подскажите где ошибка. Взял пример из форума запустил все работает но в одном месте происходит ошибка.
Программа выполнила недопустимую операцию и будет закрыта.
вот пример кода:
begin
{"Чистим" адрес функции от "грязи"}
@GetSimpleText := nil;
{Пытаемся загрузить библиотеку}
LibHandle := LoadLibrary("MYDLL.DLL");
{Если все OK}
if LibHandle >= 32 then begin
{...то пытаемся получить адрес функции в библиотеке}
@GetSimpleText := GetProcAddress(LibHandle,"GetSimpleText");
{Если и здесь все OK}
if @GetSimpleText <> nil then
{...то вызываем эту функцию и показываем результат}
ShowMessage(StrPas(GetSimpleText(True)));
end;
{И не забываем освободить память и выгрузить DLL}
FreeLibrary(LibHandle);
ShowMessage("Memori Free.");
end; // вот здесь и происходит ошибка.
← →
dim- (2003-03-04 14:22) [1]у меня такое было, не поставил free для формы в DLLке и TStringList.Free
Может поможет
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c