ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Из новых (XE8) DLL нельзя вызывать TOpenDialog/TSaveDialog?
11 сообщений из 11, страница 1 из 1
Из новых (XE8) DLL нельзя вызывать TOpenDialog/TSaveDialog?
    #39674649
nicholaos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nicholaos
Гость
Есть функция в DLL, использующая стандартный диалог, например:

 
library
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
library TestDLL;

uses
  Vcl.Dialogs;

{$R *.res}

procedure ShowSaveDialog; stdcall;
var
  SaveDialog: TSaveDialog;
begin
  SaveDialog := TSaveDialog.Create(nil);
  try
    SaveDialog.Execute;
  finally
    SaveDialog.Free;
  end;
end;

exports ShowSaveDialog;

end.




При вызове:

 
exe
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
procedure TForm1.Button1Click(Sender: TObject);
var
  h: NativeUInt;
  ShowSaveDialog: procedure; stdcall;
begin
  h := LoadLibrary('C:\Test\TestDLL.dll');
  if h > 0 then begin
    ShowSaveDialog := nil;
    @ShowSaveDialog := GetProcAddress(h, 'ShowSaveDialog');
    if Assigned(ShowSaveDialog) then ShowSaveDialog;
    FreeLibrary(h);
  end;
end;




На SaveDialog.Execute происходит AV. Если тот же код библиотеки скомпилировать на Delphi 2007 - AV нет. Что-то не так с Vcl.Dialogs?
...
Рейтинг: 0 / 0
16.07.2018, 19:00
| Ответить | Цитировать | Написать  
Из новых (XE8) DLL нельзя вызывать TOpenDialog/TSaveDialog?
    #39674653
Фотография Dimonka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimonka
Участник
А отладчик у тебя тоже в Delphi 2007 остался?
...
Рейтинг: 0 / 0
16.07.2018, 19:21
| Ответить | Цитировать | Написать  
Из новых (XE8) DLL нельзя вызывать TOpenDialog/TSaveDialog?
    #39674867
nicholaos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nicholaos
Гость
Падает на первой строчке TOpenDialog.DoExecute (см. картинку).

По F7 доходит до _UStrClr, но это ничего не дает.

Использование дата модуля с закинутым на него TSaveDialog'ом не помогло.

Передача хэндла формы в функцию так же не поменяло поведение:

Application.Handle := AHandle;
SaveDialog := TSaveDialog.Create(Application);
...
Рейтинг: 0 / 0
17.07.2018, 10:44
| Ответить | Цитировать | Написать  
Из новых (XE8) DLL нельзя вызывать TOpenDialog/TSaveDialog?
    #39674870
nicholaos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nicholaos
Гость
Картинка слетела.
...
Рейтинг: 0 / 0
17.07.2018, 10:44
| Ответить | Цитировать | Написать  
Из новых (XE8) DLL нельзя вызывать TOpenDialog/TSaveDialog?
    #39675031
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vizit0r
Участник
авторПадает на первой строчке TOpenDialog.DoExecute (см. картинку).

По F7 доходит до _UStrClr, но это ничего не дает.


а посмотреть в отладчике значения проверяемых переменных и руками раскидать бряки в вызываемых функциях - не?
...
Рейтинг: 0 / 0
17.07.2018, 13:55
| Ответить | Цитировать | Написать  
Из новых (XE8) DLL нельзя вызывать TOpenDialog/TSaveDialog?
    #39675243
nicholaos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nicholaos
Гость
Vizit0r,

В этой строке все переменные известны (Win32MajorVersion = 6, UseLatestCommonDialogs = True, Template = nil, все события не определены), кроме 2-х: IsNewCommonCtrl и IsAppThemed.

Первая (IsNewCommonCtrl) - заинлайнена:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
function IsNewCommonCtrl: Boolean; inline;
const
  ComCtlVersionIE6 = $00060000;
begin
  if Comctl32FileVersion = Cardinal(-1) then
    Comctl32FileVersion := GetFileVersion(comctl32);
  Result := Comctl32FileVersion >= ComCtlVersionIE6;
end;


и поэтому я не могу в нее зайти. Однако я попадаю в GetFileVersion(comctl32), которую IsNewCommonCtrl вызывает, и она успешно выполняется.

IsAppThemed определена в Winapi.UxTheme следующим образом:
Код: pascal
1.
IsAppThemed: function: BOOL; stdcall;



Никакие темы в dll само собой не используются.
...
Рейтинг: 0 / 0
17.07.2018, 19:19
| Ответить | Цитировать | Написать  
Из новых (XE8) DLL нельзя вызывать TOpenDialog/TSaveDialog?
    #39675247
nicholaos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nicholaos
Гость
Так, а вот в IsAppThemed-то не определена, поскольку InitThemeLibrary не был вызван.

Принудительный вызов InitThemeLibrary перед SaveDialog.Execute починил AV. Но такое решение выглядит бредом.
...
Рейтинг: 0 / 0
17.07.2018, 19:27
| Ответить | Цитировать | Написать  
Из новых (XE8) DLL нельзя вызывать TOpenDialog/TSaveDialog?
    #39675317
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
Они не предположили, что в dll будут использоваться диалоги. Пишите в QC.

По идее там надо
Код: pascal
1.
... and Assigned(IsAppTheme) and IsAppTheme() and ...
...
Рейтинг: 0 / 0
18.07.2018, 00:19
| Ответить | Цитировать | Написать  
Из новых (XE8) DLL нельзя вызывать TOpenDialog/TSaveDialog?
    #39675446
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий 2
Участник
nicholaosТак, а вот в IsAppThemed-то не определена, поскольку InitThemeLibrary не был вызван.

Принудительный вызов InitThemeLibrary перед SaveDialog.Execute починил AV. Но такое решение выглядит бредом.
Решение вызывать диалог из DLL выглядит бредом, а принудительная инициация тем - весьма логична. В 10.1, кстати, условие чуть шире, но IsAppThemed по-прежнему вызывается без проверки.
...
Рейтинг: 0 / 0
18.07.2018, 10:05
| Ответить | Цитировать | Написать  
Из новых (XE8) DLL нельзя вызывать TOpenDialog/TSaveDialog?
    #39675644
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
X-CiteОни не предположили, что в dll будут использоваться диалоги. Пишите в QC.

По идее там надоТокуо 10.2 Update 3

Код: pascal
1.
2.
3.
4.
5.
  if (Win32MajorVersion >= 6) and UseLatestCommonDialogs and
     not (TStyleManager.IsCustomStyleActive and (shDialogs in TStyleManager.SystemHooks)) and
     IsNewCommonCtrl and (Template = nil) and IsAppThemed and
     not (Assigned(FOnIncludeItem) or Assigned(FOnClose) or Assigned(FOnShow)) then
  begin
...
Рейтинг: 0 / 0
18.07.2018, 13:54
| Ответить | Цитировать | Написать  
Из новых (XE8) DLL нельзя вызывать TOpenDialog/TSaveDialog?
    #39675842
nicholaos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nicholaos
Гость
_Vasilisk_,

Проверил, на 10.2.3 работает. За счет того, что TStyleManager.IsCustomStyleActive вызывает InitThemeLibrary.
...
Рейтинг: 0 / 0
18.07.2018, 19:01
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Из новых (XE8) DLL нельзя вызывать TOpenDialog/TSaveDialog?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39674867&tid=2040609]:
 0ms
get settings:
 5ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 165ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 216ms
total:  460ms
созд. / загр.: 460ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]