Запаковка картинок, содержащихся в листе(TListBox)

← →
DreymanD (2004-07-14 19:23) [0]

Привет всем мастерам!
У меня такая ситуация: у меня есть ListBox, в нем графические файлы(просто путь к файлу(например: C:\sasha\01.bmp)). Надо, чтоб при нажатии на Button01 появлялся SaveDialog1 и можно было указать формат и имя. Но дело не в этом, мне надо чтоб после нажатия на кнопку "Сохранить" OpenDialog"а, ВСЕ файлы, находящиеся в ListBox ЗАПАКОВЫВАЛИСЬ В ЕДИНЫЙ файл. То есть, чтоб программа нашла все файлы по директориям и скопировала их в единый сохраняемый файл.
А при нажатии на Button02, с помощью OpenDialog"а можно было открыть(распаковать) все файлы в ListBox и при двойном-щелчке, можно было просмотреть в Image1(эта функция дубл-клика у меня есть). В общем вот так вот.
Да и еще вопросик: у меня после указания в Filter моего формата(*.list) в SaveDialog, прога создает просто файл(например, imagefile1(без формата)), а не файл с формато(imagefile1.list).

← →
Красный молоток (2004-07-14 20:25) [1]

Простейший формат такого файла:
количество файлов
размеры файлов
имена файлов
содержимое файлов

Реализуется элементарно

← →
Zeqfreed © (2004-07-14 21:02) [2]

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

насчет сохранения, если это то, что я подумал то вот:
{...} if SaveDialog.Execute do begin if ExtrcatcFileExt(SaveDialog.FileName) <> ".list" then SaveDialog.FileName := ExtractFileName(SaveDialog.FileName) + ".list"; {...} end;

← →
Zeqfreed © (2004-07-14 21:03) [3]

Поправочка, вместо do ессно then

← →
DreymanD (2004-07-16 15:03) [4]

Ээээ... я что-то не понял, как этот код должен действовать... 8(
Я использую код:
if form3.savedialog1.execute then begin
Form1.listbox1.items.savetofile(savedialog1.FileName);

Что нужно дописать к коду, чтобы прога сама дописывала расширение(формат) из Filter SaveDialog"a?

if ExtractFileExt(savedialog1.FileName) <> EXTENTION_I_WANT then
fName := ChangeFileExt(savedialog1.FileName,EXTENTION_I_WANT);

Запаковка картинок, содержащихся в листе(TListBox) Найти похожие ветки