Модальная форма из DLL.

← →
tytus © (2004-03-29 20:33) [0]

Добрый вечер господа. Задача такова: есть главная форма, в которой вызывается модальная форма из библиотеки. (Сделал по примеру D5 Пачека и Тейксейры закачаного из DDP. С календарем как в примере получается.) В этой ворме есть функция типа string, которой мне нужно присвоить имя файла из OpenDialog-a. Форма вызывается нормально, но если нажимаю на буттон чтобы выбрать файл - то получается AccessViolation...
function GetFilName(AHandle:THandle):string;
var
SelFileFm: TSelFileFm;
begin
Application.Handle:=AHandle;
SelFileFm:=TSelFileFm.Create(Application);
try
SelFileFm.ShowModal;
Result:=SelFileFm.OpenDialog1.FileName;<--???Где получить Result
finally
SelFileFm.Free;
end;
end;

← →
just me (2004-03-29 20:50) [1]

OpenDialog вызывается из DLL? Тогда нужно проинициализировать явно СОМ с помощью CoInitialize (а при выходе из DLL вызвать CoUninitialize). Оказsвается OpenDialog для формирования списка фолдеров типа "My Documents" и пр. явноиспользует СОМ-интерфейсы, например, IShellFolder. В обычной апликации СОМ инициализируется автоматом при запуске, а в DLL - нет. Как следствие - GPF/ См. MSDN, INFO: Calling Shell Functions and Interfaces from a Multithreaded Apartment

← →
Гаврила (2004-03-29 20:55) [2]

>>В этой ворме есть функция типа string

вроде как не а форме
>> но если нажимаю на буттон чтобы выбрать файл

На какой ?

>>то получается AccessViolation...

В какой строке?

Надеюсь, передача строки между DLL и Host"ом не происходит еще в этот момент ?

← →
Гаврила (2004-03-29 20:57) [3]

>>just me (29.03.04 20:50) [1]

ТОгда скроее поднялся бы не AV, а "coinitialize не был вызван"

← →
Petr V. Abramov © (2004-03-29 21:05) [4]

Так где AV возникает? Внутри приведенной функции или в точке ее вызова? ShareMem используете?

← →
tytus © (2004-03-29 21:06) [5]

procedure TSelFileFm.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
Button2.Enabled:=true;
end;

procedure TSelFileFm.Button2Click(Sender: TObject);
begin
close;
end;

← →
Petr V. Abramov © (2004-03-29 21:11) [6]

Ну так AV-то в какой строке? :)

← →
just me (2004-03-29 21:12) [7]

"coinitialize не был вызван" в данном случае не должно выскакивать, так как исключение генерится не в самописном коде, а где-то в Comdlg32.dll

← →
Гаврила (2004-03-29 21:13) [8]

А OpenDialog1 создан ??

PS
всякое может быть...

← →
Гаврила (2004-03-29 21:14) [9]

>>В обычной апликации СОМ инициализируется автоматом при запуске

Неправда, не инициализируется.
Только при испльзоавнии некоторых модулей в Uses

← →
tytus © (2004-03-29 21:15) [10]

>Petr V.Abramov
begin
Application.Initialize;
Application.CreateForm(TTgrpFm, TgrpFm);
Application.Run;
end.<--- тут, в модуле главной программы, после закрытия модальной формы...

← →
Гаврила (2004-03-29 21:19) [11]

>>> tytus © (29.03.04 21:15) [10]

Important note about DLL memory management: ShareMem must be the
first unit in your library"s USES clause AND your project"s (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters.

← →
just me (2004-03-29 21:29) [12]

2 Гаврила (29.03.04 21:14) [9]
Я вроде написал "в обычной апликации", так что Application.Initialize; должно присутствовать. И не надо ничего специального подключать по Uses

← →
Гаврила (2004-03-29 21:58) [13]

>>just me (29.03.04 21:29) [12]
ComObj надо подключить

← →
Матлабист (2004-03-30 11:44) [14]

А может все-таки использовать пакеты?

В разделе uses unit`а формы пропиши на первой позиции (!) мудоль из стандартной поставки Delphi - ShareMem!

← →
just me (2004-03-30 12:58) [16]

2 Гаврила (29.03.04 21:58) [13]
ComObj не надо подключить - достаточно визардом сделать новую апликацию с пустой формой и можно вызывать СОМ-овские функции

Модальная форма из DLL. Найти похожие ветки