ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / запрет на изменение FileName в SaveDialog
25 сообщений из 30, страница 1 из 2
  1  все
запрет на изменение FileName в SaveDialog
    #37807397
nilanerda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nilanerda
Гость
Подскажите пожалуйста, какой функцией в SaveDialog запретить изменение имени файла, которое вормируется программно?
чтобы пользователь не мог не дописать не удалить символы, не изменить

при сохранении имени в фильтр всеравно можно изменить, в опциях тоже нет специальной функции.

у меня написано так: (но не работает)

SD.FileName := 'test_'+CBSh1.Text+'_'+Ed1.Text+'_'+Daten[1]+Daten[2]+Daten[4]+Daten[5]+Daten[7]+Daten[8]+Daten[9]+Daten[10]+'.xls';
SD.Filter := SD.FileName;
[img=]
XL.ActiveWorkBook.SaveAs(SD.FileName);
...
Рейтинг: 0 / 0
23.05.2012, 11:34
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807434
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
nilanerdaПодскажите пожалуйста, какой функцией в SaveDialog запретить изменение имени файла, которое вормируется программно?
чтобы пользователь не мог не дописать не удалить символы, не изменить

Тогда надо показывать юзеру не диалог сохранения ФАЙЛА, а диалог ВЫБОРА ПАПКИ.
И всё.
...
Рейтинг: 0 / 0
23.05.2012, 11:47
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807444
xen2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xen2
Гость
а) игнорировать введенное имя: ExtractFilePath(SD.FileName)+MyFileName
б) использовать диалог выбора папки , а не SaveDialog
...
Рейтинг: 0 / 0
23.05.2012, 11:53
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807447
nilanerda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nilanerda
Гость
так тогда вместо кнопки сохранить будет кнопка открыть
...
Рейтинг: 0 / 0
23.05.2012, 11:54
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807451
nilanerda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nilanerda
Гость
и что там в коде писать? как о диалоге для открытия сохранять?
...
Рейтинг: 0 / 0
23.05.2012, 11:56
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807472
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
nilanerdaтак тогда вместо кнопки сохранить будет кнопка открыть
nilanerdaи что там в коде писать? как о диалоге для открытия сохранять?

Мож, поделишься такой забойной травой?
...
Рейтинг: 0 / 0
23.05.2012, 12:03
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807484
Диалоги о сохранениях
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоги о сохранениях
Гость
Если я правильно понял, она в конце концов из экселя сохраняет.
Не ну в принципе конечно можно readonly сделать, но ну его нафиг.
Офисов, ВинОсей всяких поразвелось

Чето какие то задачи у девушки совсем не студенческие
...
Рейтинг: 0 / 0
23.05.2012, 12:06
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807493
nilanerda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nilanerda
Гость
с диалогом выбора папки то же самое
...
Рейтинг: 0 / 0
23.05.2012, 12:09
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807521
fd00ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fd00ch
Участник
nilanerdaтак тогда вместо кнопки сохранить будет кнопка открытьво-первых, будет кнопка ОК. во-вторых, это можно пофиксить . в-третьих, при желании можно попытаться намудохать рабочий вариант с диалогом выбора файла. в-четвертых, я знаю некоторые программы, в которых выбор папки происходит с помощью диалога выбора файла о_О, там вместо Открыть/Сохранить написано Выбрать папку (пример - uTorrent при создании торрент-файла).

Как это сделано - я и сам не прочь узнать, т.к. для выбора папки диалог открытия файла удобнее, имхо, чем дерево с папками)) перечитать все доки по OpenFileName-функции я чето не смог :)
...
Рейтинг: 0 / 0
23.05.2012, 12:19
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807535
fd00ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fd00ch
Участник
fd00chКак это сделано - я и сам не прочь узнать, т.к. для выбора папки диалог открытия файла удобнее, имхо, чем дерево с папками)) перечитать все доки по OpenFileName-функции я чето не смог :)похоже, там наговнили кучу из CDM_HIDECONTROL + CDM_SETCONTROLTEXT + CDN_INCLUDEITEM
...
Рейтинг: 0 / 0
23.05.2012, 12:22
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807579
Диалоги о сохранениях
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоги о сохранениях
Гость
Эй теоретики, так я все таки не понял.
Этот диалог из экселя выскочил ?, и она показала совсем не тот кусок кода?

От этого очень сильно зависит возможные пути решения задачи.
а то тут гопнег Леха уже начал намудохивать диалоги вовсю
...
Рейтинг: 0 / 0
23.05.2012, 12:35
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807601
fd00ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fd00ch
Участник
Диалоги о сохраненияхтак я все таки не понял.
Этот диалог из экселя выскочил ?ога. новый Excel 2012 как раз такой тип файлов прописывает в диалоге))

Диалоги о сохраненияха то тут гопнег Леха уже начал намудохивать диалоги вовсю интересно ж. меня всегда убивала ущербность стандартного SHBrowseForFolder...
...
Рейтинг: 0 / 0
23.05.2012, 12:39
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807616
nilanerda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nilanerda
Гость
Этот диалог не из экселя, а SaveDialog
...
Рейтинг: 0 / 0
23.05.2012, 12:45
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807618
Диалоги о сохранениях
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоги о сохранениях
Гость
fd00ch,
Меня эта хрень очень сильно смущает:
Код: pascal
1.
XL.ActiveWorkBook.SaveAs(SD.FileName);



Размышления вслух:
А если ее диалог не из экселя...
У Рей Конопка(raize) вроде как свои диалоги были, там вроде как можно было делать все что угодно.
...
Рейтинг: 0 / 0
23.05.2012, 12:46
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807622
nilanerda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nilanerda
Гость
а название файла из программы добавляется, и надо, чтобы оно таким же и оставалось
...
Рейтинг: 0 / 0
23.05.2012, 12:47
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807628
Диалоги о сохранениях
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоги о сохранениях
Гость
nilanerdaЭтот диалог не из экселя, а SaveDialog
Запуск диалога, выполняется методом Execute , у тебя этого не видно.
Ты нас не путай
...
Рейтинг: 0 / 0
23.05.2012, 12:49
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807636
nilanerda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nilanerda
Гость
Daten := DateToStr(Date);

sd.InitialDir := GetDirect + '\ExcelReports';
sd.FileName := 'test_'+CBSh1.Text+'_'+Ed1.Text+'_'+Daten[1]+Daten[2]+Daten[4]+Daten[5]+Daten[7]+Daten[8]+Daten[9]+Daten[10]+'.xls';
// if AnsiCompareStr(sd.FileName,buf) <> 0 then sd.FileName := buf;

buf := sd.FileName;
if sd.Execute then begin
v := 0;
vv := 0;
w := 1;
XL.ActiveWorkBook.Saveas(sd.FileName);
end;
...
Рейтинг: 0 / 0
23.05.2012, 12:51
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807680
xen2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xen2
Гость
я же тебе предложил ExtractFilePath!!!
Код: pascal
1.
2.
3.
4.
MyFileName := 'test_'+CBSh1.Text+'_'+Ed1.Text+'_'+Daten[1]+Daten[2]+Daten[4]+Daten[5]+Daten[7]+Daten[8]+Daten[9]+Daten[10]+'.xls';
...
if SD.Execute then
  XL.ActiveWorkBook.Saveas(ExtractFilePath(SD.FileName)+MyFileName)
...
Рейтинг: 0 / 0
23.05.2012, 13:09
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807732
nilanerda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nilanerda
Гость
спасибо, сейчас попробую, я просто не знала где это написать
...
Рейтинг: 0 / 0
23.05.2012, 13:27
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807734
fd00ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fd00ch
Участник
xen2, изящно - дать юзеру выбор и следом наплевать на него))
...
Рейтинг: 0 / 0
23.05.2012, 13:27
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807749
Фотография kdv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kdv
Участник
дату в имени файла правильно писать как yyyymmdd, для правильной сортировки имен файлов.
соответственно, и всякие другие цифры, время, и т.п. должны идти после даты, а не до.
...
Рейтинг: 0 / 0
23.05.2012, 13:31
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807789
Фотография Sergij Gromov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergij Gromov
Участник
kdvдату в имени файла правильно писать как yyyymmdd, для правильной сортировки имен файлов.
соответственно, и всякие другие цифры, время, и т.п. должны идти после даты, а не до.

главное чтобы системные функции возвращения даты не юзались, ибо заменит юзер в ОС разделитель на "/" - и привет всем стараниям
...
Рейтинг: 0 / 0
23.05.2012, 13:44
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807827
nilanerda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nilanerda
Гость
получилось, спасибо xen2
...
Рейтинг: 0 / 0
23.05.2012, 13:54
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37807855
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
nilanerdaс диалогом выбора папки то же самоеSelectDirectory. И не нужно обманывать пользователей
...
Рейтинг: 0 / 0
23.05.2012, 14:06
| Ответить | Цитировать | Написать  
запрет на изменение FileName в SaveDialog
    #37808254
Диалоги о сохранениях
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоги о сохранениях
Гость
Это наверное никому нахрен не пригодится, но тему все таки нужно раскрыть.
Раз уж зашел разговор...
И умнее этого, чето ни чо не придувается

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveDialog1.FileName:='test.txt';
  SaveDialog1.OnShow:=MySaveDialogShow;
  SaveDialog1.Execute;
end;

procedure TForm1.MySaveDialogShow(Sender: TObject);
var
  h: THandle;
  Buf: array[0..255] of Char;
  S: String;
  L: Integer;
begin
  h:=SaveDialog1.Handle;
  while h<>0 do
  begin
    h:=GetWindow(h,GW_HWNDPREV);
    L:=GetClassName(h,@Buf,SizeOf(Buf));
    SetString(S,PChar(@Buf),L);
    if S='ComboBoxEx32' then
    begin
      h:=GetWindow(h,GW_CHILD);
      h:=GetWindow(h,GW_CHILD);
      SendMessage(h,EM_SETREADONLY,Ord(True),0);
      Break;
    end;
  end;
end;
...
Рейтинг: 0 / 0
23.05.2012, 16:52
| Ответить | Цитировать | Написать  
25 сообщений из 30, страница 1 из 2
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / запрет на изменение FileName в SaveDialog
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=37807535&tid=2037731]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 151ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 238ms
total:  458ms
созд. / загр.: 458ms
x
x
Закрыть


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