Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / где бы хороший savedialog найти? / 10 сообщений из 10, страница 1 из 1
13.10.2017, 20:42:21
    #39536190
pgiw99oeo
pgiw99oeo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
где бы хороший savedialog найти?
задача стоит сохранить файл из базы на диск, имя файла с расширением тоже берется из базы
и тут - опа! - обычный savedialog зависит от настроек виндовса
например, может не отображать расширение файла
возможны варианты
1 пользователь не меняет имени файла, просто сохраняет файл с тем именем которое взято из базы, тогда расширения не видно, но файл сохраняется с этим расширением (и это хорошо)
2 пользователь может поменять имя файла и в этом случае расширение исчезает, файл сохраняется без расширения (и это не есть хорошо)

учить пользователей как действовать при сохранении файла как-то неохота, слишком их много
менять настройки виндовса на компах тоже как-то не очень хорошо
есть вариант поставить галочку "использовать старый savedialog" но у него вид какой-то неказистый... а желательно, чтобы savedialog выглядел как обычно в виндовсе
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2017, 20:44:00
    #39536191
pgiw99oeo
pgiw99oeo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
где бы хороший savedialog найти?
т.е. желательно, чтобы диалог выглядел как в виндовсе, но отображал расширение файла всегда, независимо от настроек виндовса
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2017, 20:50:45
    #39536192
makhaon
makhaon
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
где бы хороший savedialog найти?
Я у себя исправляю расширение в SaveDialog'е.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2017, 20:52:28
    #39536193
makhaon
makhaon
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
где бы хороший savedialog найти?
Псевдокод:

Код: pascal
1.
2.
3.
4.
5.
 if SaveDialog1.Execute then
 begin
  SaveDialog1.FileName := FixFileExt(SaveDialog1.FileName, 'mp4');
  ....
 end;



FixFileExt на усмотрение - как удобно. Можно через временную переменную, но мне так удобнее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2017, 20:52:43
    #39536194
pgiw99oeo
pgiw99oeo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
где бы хороший savedialog найти?
makhaonЯ у себя исправляю расширение в SaveDialog'е.запоминаешь исходное расширение, а потом при необходимости прибавляешь к строке?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2017, 21:54:28
    #39536204
чччД
чччД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
где бы хороший savedialog найти?
pgiw99oeoзадача стоит сохранить файл из базы на диск, имя файла с расширением тоже берется из базы
и тут - опа! - обычный savedialog зависит от настроек виндовса
например, может не отображать расширение файла
возможны варианты
1 пользователь не меняет имени файла, просто сохраняет файл с тем именем которое взято из базы, тогда расширения не видно, но файл сохраняется с этим расширением (и это хорошо)
2 пользователь может поменять имя файла и в этом случае расширение исчезает, файл сохраняется без расширения (и это не есть хорошо)

учить пользователей как действовать при сохранении файла как-то неохота, слишком их много
менять настройки виндовса на компах тоже как-то не очень хорошо
есть вариант поставить галочку "использовать старый savedialog" но у него вид какой-то неказистый... а желательно, чтобы savedialog выглядел как обычно в виндовсе

Ну, напиши функцию что-то типа:
Код: pascal
1.
function MySaveDialog(var aFileName : string; const aInitFolder, aFileExt: string ) :boolean;


- в которой определяй текущую версию винды и по итогам используй стандартные диалоги - либо TSaveDialog, либо TFileSaveDialog.
И там же, если надо, смотри на расширение, которое ввел юзер и меняй/добавляй его:
Код: pascal
1.
2.
  if not SameText(ExtractFileExt(aFileName ), '.abc') then
    aFileName := aFileName + '.abc';
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2017, 22:09:21
    #39536205
Dimitry Sibiryakov
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
где бы хороший savedialog найти?
pgiw99oeoпользователь может поменять имя файла и в этом случае расширение исчезает,
файл сохраняется без расширения (и это не есть хорошо)
Назначить DefaultExt было бы слишком просто. Напиши свой собственный TSaveDialog.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2017, 09:58:12
    #39536249
под ван
под ван
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
где бы хороший savedialog найти?
Dimitry Sibiryakov,
я уже пытался - падает, начиная с Висты. Видимо, что-то изменили. Сейчас форкнул сам FP, и переписываю его с нуля, чтобы в нём уже переписать SD.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2017, 11:20:13
    #39536257
Dimitry Sibiryakov
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
где бы хороший savedialog найти?
под ванпадает

Отлаживать не пробовал?..
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2017, 11:31:48
    #39536259
JayDi
JayDi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
где бы хороший savedialog найти?
DefaultExt корректно работает выше висты, вы чего. Все правильно Dimitry Sibiryakov сказал -- выставление расширения по умолчанию автоматом решит проблему топикстартера.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / где бы хороший savedialog найти? / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 383ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2041715]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 64ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 223ms
total:  383ms
x
x
Закрыть


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