|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Ошибка при выгрузке DLL
Доброго времени суток ...
Из главного модуля программы происходит динамическая загрузка DLL. В DLL вносятся данные, в том числе и с помощью OpenDialog, которые потом сохраняются в базу Interbase. После сохранения данных в базе предусмотрена выгрузка DLL. Код программы: Код:
unit Unit2; interface uses Windows, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, DBGrids, StdCtrls, Grids, DBCtrls, DB, Mask; type TShowFormins=procedure(handle: Thandle); stdcall; .... procedure TForm2.N4Click(Sender: TObject); var dllins:thandle; ShowFormins:TShowFormins; begin dllins:=LoadLibrary('ins.dll'); @ShowFormins:=GetProcAddress(dllins, 'ShowFormins'); ShowFormins(handle); freelibrary(dllins); end; Код DLL Код:
unit insUnit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls, Mask, DB, IBCustomDataSet, IBDatabase, IBTable, Grids, DBGrids; type TForm1 = class(TForm) ...... private { Private declarations } public { Public declarations } end; var Form1: TForm1; procedure ShowFormins(handle: Thandle); export; stdcall; implementation {$R *.dfm} procedure ShowFormins(handle: Thandle); begin application.handle:=handle; form1:=tform1.create(application); form1.ShowModal; form1.Free; end; procedure TForm1.FormShow(Sender: TObject); begin form1.IBTable1.Insert; form1.Button1.SetFocus; form1.dbmemo1.Clear; form1.DBEdit1.Clear; form1.DBEdit2.Clear; form1.DBEdit3.Clear; form1.DBEdit4.Clear; form1.DBEdit5.Clear; end; procedure TForm1.Button1Click(Sender: TObject); begin with OpenDialog1, dbMemo1 do if Execute then Lines.LoadFromFile(FileName); end; procedure TForm1.Button2Click(Sender: TObject); begin if IBTable1.Modified then DataSource1.DataSet.FieldByName('t_data').AsString:=formatdatetime('dd.mm.yyyy',now()); IBTable1.Post; form1.dbmemo1.Clear; form1.DBEdit1.Clear; form1.DBEdit2.Clear; form1.DBEdit3.Clear; form1.DBEdit4.Clear; form1.DBEdit5.Clear; Form1.Close; end; procedure TForm1.Button3Click(Sender: TObject); begin form1.IBTable1.Cancel; form1.Close; end; end. При использовании OpenDialog DLL не выгружается и при повторной загрузке (без выхода из программы) выдает ошибку "I/O error for file 'имя базы'". Выручайте, не могу найти где ошибка.... Спасибо. |
#2
|
||||
|
||||
Код:
application.handle:=handle; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#3
|
|||
|
|||
Цитата:
Не, это правильно. Неправильно другое. Должно быть: Код:
form1 := tform1.create(Nil); |
#4
|
|||
|
|||
Цитата:
Вместо form1:=tform1.create(application); ???? Так вроде в библии Фленова написано. |
#5
|
||||
|
||||
Нужно еще учитывать, что вызов OpenDialog порождает дополнительные потоки (так устроен "Проводник"), и они тоже могут вмешиваться.
Не стоит путать форумы с богадельнями. © Bargest |
#6
|
||||
|
||||
Нету здесь кода библиотеки вообще, ключевое слово library отсутствует
Проверок возможно не хватает, надо похоже так делать динамическую загрузку Код:
procedure TForm2.N4Click(Sender: TObject); var dllins:thandle; ShowFormins:TShowFormins; begin try dllins:= LoadLibrary('ins.dll'); if dllins <> 0 then begin @ShowFormins:=GetProcAddress(dllins, 'ShowFormins'); if addr(ShowFormins) <> nil then ShowFormins(handle); finally freelibrary(dllins); end; end else showMessage ('DLL not found...'); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#7
|
|||
|
|||
Цитата:
Этого я и боялся... Потоки.... Мот кто-нибудь поможет с кодом. Как процедуру с opendialog "привязать" к "потокам". В программе для OpenDialog предусмотрена процедура выбора файла (имя файла не известно, но он текстовый) из одной конкретной директории и загрузки его в dbmemo. Т.е. OpenDialog не будет шариться по всему диску. Может предложите простую альтернативу OpenDialog. А может проще из DLL exe-шник сделать, или это неразумное решение? Спасибо. Последний раз редактировалось govorun, 31.10.2013 в 22:16. |