Access violation после выгрузки dll

← →
evgenij (2009-07-27 15:15) [0]

Здравствуйте!
Подскажите, плиз, с проблемкой...
Динамически загружаю длл, вызываю нужную функцию,выгружаю-все вроде ок, а при выходе из функции, которая это все делает выдает ошибку Access violation.....
function TForm1.hesh(we:String):String; type THesh = function(stt : String):String; var DLLInstance : THandle; md51 : THesh; begin DLLInstance := LoadLibrary("manager.dll"); if DLLInstance = 0 then begin MessageDlg("...... manager.dll.", mtError, [mbOK], 0); exit end; @md51 := GetProcAddress(DLLInstance, "md5"); if @md51 <> nil then result:=md51(we) else MessageDlg(".....", mtError, [mbOK], 0); FreeLibrary(DLLInstance); end;
при пошаговом прохождении на последнем энде и матюкается..

Спасибо.

← →
Palladin © (2009-07-27 15:22) [1]

uses sharemem указано?

← →
evgenij (2009-07-27 15:33) [2]

нет..........

← →
evgenij (2009-07-27 15:35) [3]

указал-то же самое

← →
Юрий Зотов © (2009-07-27 15:35) [4]

> evgenij (27.07.09 15:35) [3]

Покажите uses в EXE и в DLL.

← →
Юрий Зотов © (2009-07-27 15:36) [5]

В смысле - в обоих DPR.

← →
evgenij (2009-07-27 15:39) [6]

в ехе:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, ComboBoxEvg, DB, ADODB,sharemem;
в длл:

uses
SysUtils,
Classes,
Variants,
Math,
strUtils,
forms,StdCtrls,Graphics,
unit12 in "unit12.pas" {Form12};

← →
Palladin © (2009-07-27 15:40) [7]

то есть комментарии в dll начисто проигнорированны... )

← →
Сергей М. © (2009-07-27 15:41) [8]

> evgenij (27.07.09 15:39) [6]

В обоих dpr юнит ShareMem должен быть указан самым первым.

> [6] evgenij (27.07.09 15:39)

File/New/Other/New/DLL Wizard и внимательно читаем написанное

> evgenij (27.07.09 15:39) [6]

Кроме того, есть подозрение, что uses в EXE взят из главной формы, а не из DPR.

← →
evgenij (2009-07-27 15:53) [11]

спасибо....помогло...

Access violation после выгрузки dll Найти похожие ветки