Форум: "Начинающим";
Текущий архив: 2008.07.06;
Скачать: [xml.tar.bz2];

Вниз

сохранение группы файлов   Найти похожие ветки 

← →
wq   (2008-06-09 20:47) [0]

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

---

← →
Сергей М. ©   (2008-06-09 20:57) [1]

см. TSaveDialog.Files

---

← →
tesseract ©   (2008-06-09 20:58) [2]

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

---

← →
wq   (2008-06-09 21:05) [3]

добавляю в 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\

---

← →
Anatoly Podgoretsky ©   (2008-06-09 21:08) [4]

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

---

← →
Сергей М. ©   (2008-06-09 21:08) [5]

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


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

---

← →
wq   (2008-06-09 21:18) [6]

Есть компонент 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;

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

---

← →
Тын-Дын ©   (2008-06-09 21:24) [7]

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


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

---

← →
wq   (2008-06-09 21:27) [8]

> в цикле

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

---

← →
Тын-Дын ©   (2008-06-09 21:28) [9]

> wq   (09.06.08 21:27) [8]


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

---

← →
Palladin ©   (2008-06-09 21:56) [10]

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

---

← →
Anatoly Podgoretsky ©   (2008-06-09 22:04) [11]

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

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

---

← →
Тын-Дын ©   (2008-06-09 22:46) [12]

> 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.



---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.07.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.48 MB
Время: 0.042 c