Проблемма с 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
Может поможет

Проблемма с DLL Найти похожие ветки