Злосчастное dll

[5cek]

Вообщем прошу помощи, уже весь гугл затёр, не могу не как справится, есть dll с парой форм и одним DataModule, по сути эта dll работает с БД, одна из форм при открытии показывает список строк при выборе возвращает основной проге ID записи, с этим всё ок, форма работает ровно, так же попытавшись засунуть в dll вторую форму, некий редактор строк, столкнулся с проблемой, форма открывается всё редактируется, но при освобождении библеотеки FreeLibrary прога виснет намертво. При этом, есть ещё одна библиотека так же с формами, там другая проблемма, форма открывается, закрывается и библиотека вроде бы освобождается, второй раз вызываю форму, уже не подсвечивается крестик у окна при наведении, но закрывается тоже, третий раз вызываю окно и при закрытии так же прога виснет намертво. ShareMem подключен, строки в функциях не возвращаю. Код чего угодно предоставлю.

[Stilet]

при освобождении библеотеки FreeLibrary прога виснет намертво.

Формы в ДЛЛ просто закрываются или именно освобождаются?

[5cek]

Сообщение от Stilet

Формы в ДЛЛ просто закрываются или именно освобождаются?

Освобождаются по закрытию, пробовал несколькими способоами:
1. Загружается библиотека, вызывается процедура:

procedure ShowClassForm; stdcall;
begin
  if ClassForm = nil then
  begin
    ClassForm := TClassForm.Create(nil);
    ClassForm.ShowModal;
  end;
end;

В обработчике OnClose у формы стоит Action := caFree
Естественно модальная форма закрывается и дальше в приложении наступает шаг FreeLibrary. - Приложение зависло.
2. Загружается библиотека, вызывается процедура:

procedure ShowClassForm; stdcall;
begin
  if ClassForm = nil then
  begin
    ClassForm := TClassForm.Create(nil);
    ClassForm.ShowModal;
    FreeAndNil(ClassForm);
  end;
end;

То есть после закрытия формы, она обнуляется и освобождается, дальше в приложении наступает шаг FreeLibrary. - Приложение зависло.

[5cek]

Кстати говоря если убрать FreeLibrary то ошибки нет, то приложение не виснет, а при закртытии приложения вылетает Runtime Error

[Аватар]

ShowModal и Action := caFree

Модальные формы закрывают например так: ModalResult:=mrOk в обработчике кнопки выхода и

 ClassForm := TClassForm.Create(nil);
 ClassForm.ShowModal;
 ClassForm.Free;

[5cek]

Сообщение от Аватар

Модальные формы закрывают например так: ModalResult:=mrOk в обработчике кнопки выхода и

 ClassForm := TClassForm.Create(nil);
 ClassForm.ShowModal;
 ClassForm.Free;

Не люблю сильно спорить, по этому сделал по вашему, всё равно повисло приложение. Чёт не то короче)

[Stilet]

Аватар

FreeAndNil(ClassForm); сделает то же самое что и Free.
Не, там ошибка в другом. Не зря Борланд сделал BPL для работы с формами в динамических библиотеках против стандартных DLL.
Чесслово не помню в чем глюки, просто многие не рекомендую в ДЛЛках формы VCL крутить.

[5cek]

Блин я уже не знаю, может я не так гружу?

procedure TForm2.ExecLibararyProcedure(ProcName, LibName: String);
Var
  dHandle: THandle;
  Proc: procedure; stdcall;
begin
  @Proc := nil;
  dHandle := LoadLibrary(PChar(LibName));
  if dHandle <> 0 then
  begin
    @Proc := GetProcAddress(dHandle, PChar(ProcName));
    if @Proc <> nil then
    begin
      Proc;
    end
    else
    begin
      MessageBox(handle, PChar('Процедура ' + ProcName +
        ' не найдена в ' + LibName), 'Ошибка', MB_ICONERROR);
      Exit;
    end;
    FreeLibrary(dHandle);
  end
  else
  begin
    MessageBox(handle, PChar('Библиотека ' + LibName +
      ' не может быть загружена.'), 'Ошибка', MB_ICONERROR);
    Exit;
  end;
end;

[5cek]

Сообщение от Stilet

FreeAndNil(ClassForm); сделает то же самое что и Free.
Не, там ошибка в другом. Не зря Борланд сделал BPL для работы с формами в динамических библиотеках против стандартных DLL.
Чесслово не помню в чем глюки, просто многие не рекомендую в ДЛЛках формы VCL крутить.

Да с BPL у меня честно говоря жопотёрка вышла, так и не смог я скомпилить проэкт с ними, то одно то другое, компонентов в проэкте море, с одним из них от которого я не мог отказаться и вышла проблема, потом с фаст репортом, короч не то. Да и кажется мне dll это не так уж и страшно, используют же люди как то, и живут их приложения, только остался главный вопрос... КАК?

[evg_m]

DLL а также Exe это не только твой код (твои формы) но и куча другого
Application, Screen, Mouse (навскидку)
и DLL.Аpplication<>Exe.Application
и DLL не имеет кода аналогичного Application.Run
и BPL не предлагать.

Да и кажется мне dll это не так уж и страшно, используют же люди как то, и живут их приложения, только остался главный вопрос... КАК?

например