| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

сохранение группы файлов [D7, WinXP]

wq ©   (2008-06-09 20:47:00) 

как сохранить группу файлов используя savedialog?

---

Тын-Дын   (2008-06-09 22:46:00) [1]

> wq   (09.06.08 21:27) [8]
> > в циклеВызвать SAvedialog необходимо 1 раз. Хотя наверное
> можно и без savedialog. Вопрос только как?


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

Вот пример без SaveDialiog:

{$WARN UNIT_PLATFORM OFF}
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Grids, Math, FileCtrl;

type
 TForm1 = class(TForm)
   Button2: TButton;
   od: TOpenDialog;
   procedure Button2Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

 TG=class(TStringGrid)
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

function DirSelect(const RootDir: String): String;
var
 Dir: String;
begin
 Dir := RootDir;
 if SelectDirectory(
      Dir,
      [sdAllowCreate, sdPerformCreate, sdPrompt],
      0)
   then Result := Dir
   else Result := '';
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 i: Integer;
begin

 od.InitialDir := 'c:\mpold';
 od.Options := od.Options+[ofallowMultiSelect];
 if od.Execute then
 begin
   od.InitialDir := DirSelect('\');
   for i := 0 to od.Files.Count-1 do
   begin
     MP3Out1.FileName := IncludeTrailingBackSlash(od.InitialDir)+
       ChangeFileExt(ExtractFileName(od.Files[i]), '.mp3');
     Button1.Enabled := False;
     MP3Out1.Run;
   end;
 end;
end;

end.



---

Anatoly Podgoretsky   (2008-06-09 22:04:00) [2]

> wq  (09.06.2008 21:27:08)  [8]

Это возможно, просто отметь более одного.

---

Palladin   (2008-06-09 21:56:00) [3]

Цель TSaveDialog - предоставить пользователю привычную последовательность для сохранения данных в елинственномфайле путем выбора месторасположения и ввода именифайла, который он (пользователь) позже предпочел бы выбрать через TOpenDialog. И нефик рыть яму вилами, для ям есть SelectDirectory

---

Тын-Дын   (2008-06-09 21:28:00) [4]

> wq   (09.06.08 21:27) [8]


У тебя есть список файлов.
Один раз вызвал диалог - выбрал каталог для сохранения.
Теперь идешь в цикле по этому списку, заменяешь имена файлов на нужные и сохраняешь в выбранный каталог.

---

wq   (2008-06-09 21:27:00) [5]

> в цикле

Вызвать SAvedialog необходимо 1 раз. Хотя наверное можно и без savedialog. Вопрос только как?

---

Тын-Дын   (2008-06-09 21:24:00) [6]

> Необходимо сделать для нескольких файлов


Для нескольких фалов делается последовательно в цикле.

---

wq   (2008-06-09 21:18:00) [7]

Есть компонент NewAc необходимо переконвертировать mp3 файлы в демо дан следующий пример (Для одного файла)


procedure TForm1.Button1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
 begin
   MP3In1.FileName := OpenDialog1.FileName;
   SaveDialog1.FileName := ChangeFileExt(MP3In1.FileName, '.mp3');
   if SaveDialog1.Execute then
   begin
     MP3Out1.FileName := SaveDialog1.FileName;
     Button1.Enabled := False;
     MP3Out1.Run;
   end;  
 end;
end;

Необходимо сделать для нескольких файлов

---

Anatoly Podgoretsky   (2008-06-09 21:08:00) [8]

savedialog ничего не сохраняет, даже один файл.

---

Сергей М.   (2008-06-09 21:08:00) [9]

> Необходимо сохранить после некоторого преобразования те
> же файлы в каталог C:\Files\


И чем тут может помочь TSaveDialog ?
Имена файлов известны, целевая директория тоже.
Нафих тут сдался TSaveDialog - непонятно ..

---

wq   (2008-06-09 21:05:00) [10]

добавляю в ListView так

var
s:string;
begin
if OD.Execute then
 begin
   for i:=0 to OD.Files.Count-1 do
    begin
     with ListView.Items.Add do
      begin
       Caption=OD.Files[i];
     
    end;
    end;
 end;

OD-OpenDialog

Необходимо сохранить после некоторого преобразования те же файлы в каталог C:\Files\

---

tesseract   (2008-06-09 20:58:00) [11]

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

---

Сергей М.   (2008-06-09 20:57:00) [12]

см. TSaveDialog.Files

---

Наверх