Вот такой код есть:

Код

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, MPlayer, StdCtrls, ComCtrls; type   TForm1 = class(TForm)     Button1: TButton;     ProgressBar1: TProgressBar;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }  end; var   Form1: TForm1; implementation {$R *.dfm} {$R ifiles.RES}//Указываем дополнительный файл ресурсов, помещаемых в .exe файл. procedure TForm1.Button1Click(Sender: TObject); procedure ForceDir(const path:string); //создание папки begin  if (trim(path)='')or(path[Length(path)]=':') then exit;  if path[Length(path)]<>'\' then ForceDir(extractFilePath(path)) else ForceDir(extractFilePath(copy(path,1,Length(Path)-1)));  CreateDirectory(PChar(path),nil); end; var   ProgramPath: String;   re:TResourceStream; //Декларируем переменную потокового типа. begin   ProgramPath:='c:\myProgram';   ForceDir(ProgramPath);   re:=TResourceStream.Create(0,'rc_file1',RT_RCDATA); //Иницилируем переменную, указывая дескриптор в ресурсах, внедренных в .exe файл.   re.SaveToFile(ProgramPath + '\myFile.txt);//сохраняем поток в файл во временную папку.   re.Free; //Уничтожаем переменную end; end.

как вы правильно заметили - это копирование файла myFile.txt у которого имя в ресурсе 'rc_file1' из мною созданого ifiles.RES. С этим и мне вё понятно!
А вот что если у меня в ресурсе 500 файлов??? чне что каждый раз и писть:

Код

re:=TResourceStream.Create(0,'rc_file1',RT_RCDATA);    re.SaveToFile(ProgramPath + '\myFile1.txt);   re.Free;   re:=TResourceStream.Create(0,'rc_file2',RT_RCDATA);    re.SaveToFile(ProgramPath + '\myFile2.txt);   re.Free;   re:=TResourceStream.Create(0,'rc_file3',RT_RCDATA);    re.SaveToFile(ProgramPath + '\myFile3.txt);   re.Free; //и т.д.

Вопросы:
1. Должен же быть другой способ?

2. и ещё... вот копируются (сохраняются) у меня эти файлы в папку 'c:\myProgram' и ведь есть какойто статус этого действия, типа выполнено %. И это можно засунуть в Gauge или ProgressBar? как это сделать?

3. А как мне ужать файлы в ifiles.RES. Например с помощью Zlib. Чтобы они были в моём ехе в ужатом виде. Кто подскажет?

4. А может компонент есть? кидаешь его на форму, указываешь из какой папки файло в ресурсы загонять, указываешь в какую папку их потом при вызове скопировать... и ещё этот компонент процесс отдаёт???

Это сообщение отредактировал(а) h2o - 8.11.2005, 12:19

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

а вопросов было 4!

Цитата(h2o @ 8.11.2005, 13:43)

а вопросов было 4!

а ты правила форума читал?

Цитата(h2o @ 8.11.2005, 12:09)

и ещё... вот копируются (сохраняются) у меня эти файлы в папку 'c:\myProgram' и ведь есть какойто статус этого действия, типа выполнено %. И это можно засунуть в Gauge или ProgressBar? как это сделать?

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

Цитата(h2o @ 8.11.2005, 12:09)

А как мне ужать файлы в ifiles.RES. Например с помощью Zlib. Чтобы они были в моём ехе в ужатом виде. Кто подскажет?

Возьми пример ZLib, сожми все файлы. При сохранении декомпресь.
Либо более простой способ - сожми exeшник UPX'ом.

читал конечно!
дак мне что 4 темы создавать по 1 и тому же коду? ага, за спам заругают!!!

Добавлено @ 13:57
за флуд точнее...
Добавлено @ 14:00
а вопрос №4 - компоненты есть??

именно таких -- нету ( ибо нафик нада ), но можно взять любой из компонентов-распаковщиков, немного переделать на работу с потоками ( если еще не сделанно ) и юзать архив вместо тучи ресурсов

а если нет такого компонента, может кто может помоч его написать? думаю он многим пригодится... я дак нифига незнаю как их писать!

Snowy

Цитата

Процесс есть у стримов. Его и использовать.

а как? в моём примере можешь показать?

если память неподводит VCLzip/VCLUnZip поддерживает работу с потоком

Модератор: Пожалуйста, один топик - один вопрос.

Цитата(z @ 8.11.2005, 14:52)

если память неподводит VCLzip/VCLUnZip поддерживает работу с потоком

Память не подводит. Именно так.
Но у ZIP компрессия слабее, чем у ZLib.
Вариант с UPX проше и эфективней.
Добавлено @ 22:30
Да, и ZLib добавляет меньше к ехешнику, чем VCLZip.