Текущий архив: 2008.07.06;
Скачать: CL | DM;
Вниз
сохранение группы файлов Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.5 MB
Время: 0.017 c
