VPF::AV на FreeLibrary со своей DLL - Форум программистов

SergSW

Дата 30.7.2009, 08:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 14.9.2006

Репутация: нет
Всего: нет

Использую свою DLL.
Загрузил, проинициализировал, из DLL получаю интерфейсный объект, провожу с ним работу, всё ок
Удаляю объект (никаких ошибок, деструктор вызывается).
После этого пытаюсь выгрузить Dll на этом падает.

Код


  Result := Handle <> 0;
  if Result then
    Result := FreeLibrary(Handle); // здесь падает

с такой ошибкой

---------------------------
Debugger Fault Notification
---------------------------
Project Sample.exe raised too many consecutive exceptions: 'access violation at 0x00000000: read of address 0x00000000'. Process Stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

В библиотеке использую ShareMem.

PS если убрать FreeLibrary, AV не появляется

Romikgy

Дата 30.7.2009, 09:20 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

а раньше по коду нигде не встречается

Цитата(SergSW @ 30.7.2009, 07:48

)

FreeLibrary(Handle);

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

SergSW

Дата 30.7.2009, 09:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 14.9.2006

Репутация: нет
Всего: нет

Конечно нигде больше не идёт
более того

Код


function FreeDll: Boolean;
begin
  Result := Handle <> 0;
  if Result then
    Result := FreeLibrary(Handle);
end;

...
    IntfObj := nil; // здесь уничтожаем интерфейсный объект и всё работает. Проверено под отладчиком
    FreeDll; // здесь вызываем FreeLibrary. Под отладчиком код на DLL_PROCESS_DETACH отрабатывает без ошибок

PS Такое ощущение что сама система выгружает без ошибок. Т.к. без FreeLibrary, судя по ProcessExplorer утечки памяти не происходит

PPS Действительно осводождает, но всё равно некрасиво убирать FreeLibrary

Это сообщение отредактировал(а) SergSW - 30.7.2009, 09:44

CodeMonkey

Дата 30.7.2009, 09:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Код целиком можно?

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

SergSW

Дата 30.7.2009, 10:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 14.9.2006

Репутация: нет
Всего: нет

Полностью привести код к сожалению немогу

Вот набросал тестовый примерчик на нём тоже самое получается

Код


//DLL
library Project2;
uses
  ShareMem,
  Windows,
  ActiveX,
  SysUtils,
  Classes;


{$R *.res}

procedure DLLEntryPoint(Reason: Word);
begin
 case Reason of
  DLL_PROCESS_ATTACH: CoInitialize(nil);
  DLL_PROCESS_DETACH: CoUninitialize;
 end;
end;

function CreateObj: IInterface;
begin
  Result := TInterfacedObject.Create;
end;  

exports
  CreateObj;

begin
  DLLProc := @DLLEntryPoint;
  DLLEntryPoint(DLL_PROCESS_ATTACH);
end.

// Test exe
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TProc = function : IInterface;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  H: THandle;
  Obj: IInterface;
  P: TProc;
begin
  H := LoadLibrary('project2.dll');
  try
    P := GetProcAddress(H, 'CreateObj');
    Obj := P;
    Obj := nil;
  finally
    FreeLibrary(H); // тут падает
  end;
end;

end.

PS в тестовой удалось решить проблему убрав модуль ShareMem, почему он вызывает ошибку понять не могу.
В рабочем варианте убрать не могу, при работе с объектами начинает валиться

Это сообщение отредактировал(а) SergSW - 30.7.2009, 10:11

MetalFan

Дата 30.7.2009, 11:45 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

имхо не стоит в DllMain пихать CoInitialize/Uninitialize....

Цитата(MSDN)

The entry-point function should perform only simple initialization or termination tasks.
....
Calling functions that require DLLs other than Kernel32.dll may result in problems that are difficult to diagnose. For example, calling User, Shell, and COM functions can cause access violation errors, because some functions load other system components. Conversely, calling functions such as these during termination can cause access violation errors because the corresponding component may already have been unloaded or uninitialized.
....

--------------------

There are always someone smarter than you...

SergSW

Дата 30.7.2009, 11:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 14.9.2006

Репутация: нет
Всего: нет

и без них валится

Это сообщение отредактировал(а) SergSW - 30.7.2009, 11:51

CodeMonkey

Дата 30.7.2009, 12:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Цитата(SergSW @ 30.7.2009, 10:03

)

в тестовой удалось решить проблему убрав модуль ShareMem, почему он вызывает ошибку понять не могу.

ShareMem присутствует первым модулем в dpr-файле?

Цитата(SergSW @ 30.7.2009, 10:03

)

DLL_PROCESS_ATTACH: CoInitialize(nil);

DllMain и жизнь до родов:

Цитата

DllMain - это оружие, из которого вы легко можете застрелиться

Скольких вы знаете людей, которые хоть раз делели такие грубейшие ошибки, как вызов CoInitialize в DllMain? Я знаю случаи, когда это делали в ответ на DLL_THREAD_ATTACH, что означает, что мы не только рискуем попасть на deadlock, но и что COM будет инициализирован в каждом потоке. Что ещё хуже, он может быть инициализирован с неверной потоковой моделью. А потом эти люди будут удивляться: как это у них получились STA-потоки в потоковых пулах.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

SergSW

Дата 30.7.2009, 14:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 14.9.2006

Репутация: нет
Всего: нет

Цитата(CodeMonkey @ 30.7.2009, 14:36

)

ShareMem присутствует первым модулем в dpr-файле?

первым

Убрал из Dllmain CoInitialize/Uninitialize - жить легче не стало

CodeMonkey

Дата 30.7.2009, 15:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

У меня не воспроизводится.

Проблемы начинаются только если неправильно подключать ShareMem. Если правильно или без него - всё работает.
Какая версия Delphi?

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

SergSW

Дата 31.7.2009, 10:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 14.9.2006

Репутация: нет
Всего: нет

Delphi7

Добавлено через 47 секунд

Цитата(CodeMonkey @ 30.7.2009, 17:33

)

Проблемы начинаются только если неправильно подключать ShareMem

это как?

SergSW

Дата 31.7.2009, 10:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 14.9.2006

Репутация: нет
Всего: нет

Попробовал вместо ShareMem использовать FastMM, теперь через раз падает... забавно

Поправлюсь! Падает теперь не на FreeLibrary а при выходе из программы, при условии что из библиотеки был получен хотябы один интерфейс. Поробую покопать мож где дважды уничтожить пытается

Это сообщение отредактировал(а) SergSW - 31.7.2009, 11:12

MetalFan

Дата 31.7.2009, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Выложи лучше аттачем тестовый проект, на котором ошибка воспроизводится. Может что прояснится

--------------------

There are always someone smarter than you...

SergSW

Дата 31.7.2009, 12:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 14.9.2006

Репутация: нет
Всего: нет

Собственно полный код и так выше приводил

ЗЫ В тестовом примере с FastMM не возникает а с ShareMem падает

Присоединённый файл ( Кол-во скачиваний: 13 )

Test.rar 215,51 Kb

CodeMonkey

Дата 31.7.2009, 13:04 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Цитата(SergSW @ 31.7.2009, 10:19

)

это как?

Это подключать не первым или только в одном проекте. Вы уж по ссылочкам-то не ленитесь гулять. Я их не просто так ставлю.

Цитата(SergSW @ 30.7.2009, 14:12

)

ShareMem присутствует первым модулем в dpr-файле?

первым

Ну и зачем вы врёте?

Вот ваш uses из Test.rar/Project1.dpr:

Код

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

В каком месте здесь ShareMem? У вас в exe-проекте ShareMem вообще не подключен.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

MetalFan

Дата 31.7.2009, 20:31 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

CodeMonkey, +1. безобразие какое-то и морочанье головы окружающих!

--------------------

There are always someone smarter than you...

CodeMonkey

Дата 1.8.2009, 08:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

P.S. Посещение каждой предоставленной ссылочки в первый раз даёт +100 exp и 5% crit. hit (читай: озарение идеей) smile

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

atomAltera

Дата 1.8.2009, 12:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 1.8.2009
Где: localHost

Репутация: нет
Всего: нет

Подключил shareMem в exe-шнике. Всё стало ОК. Прикол в том, что без Debuger-а нормально работало тоже (ошибку не выдавало)
У меня Delphi 2009

Присоединённый файл ( Кол-во скачиваний: 6 )

Test.rar 262,48 Kb

MetalFan

Дата 1.8.2009, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

atomAltera, а зачем столько мусора выкладывать? да и по прежнему нет там в проекте подключенного шармем.

--------------------

There are always someone smarter than you...

atomAltera

Дата 2.8.2009, 10:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 1.8.2009
Где: localHost

Репутация: нет
Всего: нет

Цитата(MetalFan @ 1.8.2009, 20:08)

atomAltera, а зачем столько мусора выкладывать? да и по прежнему нет там в проекте подключенного шармем.

Извиняюсь

Наверное я сначала залил, а потом сохранил. Ну в общем у меня без ошибок работало...
Ещё раз извините.

SergSW

Дата 3.8.2009, 05:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 14.9.2006

Репутация: нет
Всего: нет

Цитата(CodeMonkey @ 31.7.2009, 15:04

)

В каком месте здесь ShareMem? У вас в exe-проекте ShareMem вообще не подключен.

а как тогда быть если exe не на Delphi пишется?

ЗЫ пробовал и в exe прописывать до этого результат тот-же

MetalFan

Дата 3.8.2009, 07:59 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Цитата(SergSW @ 3.8.2009, 05:51

)

а как тогда быть если exe не на Delphi пишется?

не использовать ShareMem.

Цитата(SergSW @ 3.8.2009, 05:51

)

ЗЫ пробовал и в exe прописывать до этого результат тот-же

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

--------------------

There are always someone smarter than you...

CodeMonkey

Дата 3.8.2009, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Цитата(SergSW @ 3.8.2009, 05:51

)

а как тогда быть если exe не на Delphi пишется?

Использовать правило: кто память выделил - тот её и освобождает.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

SergSW

Дата 3.8.2009, 10:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 14.9.2006

Репутация: нет
Всего: нет

Цитата(CodeMonkey @ 3.8.2009, 12:14)

Цитата(SergSW @ 3.8.2009, 05:51

)

а как тогда быть если exe не на Delphi пишется?

Использовать правило: кто память выделил - тот её и освобождает.

у меня так и делается

CodeMonkey

Дата 3.8.2009, 13:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Цитата(SergSW @ 3.8.2009, 10:17

)

у меня так и делается

А ShareMem тогда нафига? "Чтобы было"?

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

SergSW

Дата 5.8.2009, 05:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 14.9.2006

Репутация: нет
Всего: нет

Цитата(CodeMonkey @ 3.8.2009, 15:06

)

А ShareMem тогда нафига? "Чтобы было"?

Без него первая версия падала при работе. Щас переписал и ShareMem убрал... теперь работает стабильно но при выгрузке библиотеки всё равно падает...

former

Дата 5.8.2009, 06:55 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

Цитата(SergSW @ 31.7.2009, 10:36

)

О-о-о. Не вы первый сталкиваетесь с такой проблемой. По всей видимости проблемы с самим FastMM4. Вернул SareMem, все стало нормально.

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

CodeMonkey

Дата 5.8.2009, 08:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Цитата(SergSW @ 5.8.2009, 05:38

)

Без него первая версия падала при работе.

Значит не соблюдали правило по выделению и освобождению памяти.

Цитата(SergSW @ 5.8.2009, 05:38

)

но при выгрузке библиотеки всё равно падает

Ищите внимательнее, где чего забыли.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »