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

Вниз

Запаковка картинок, содержащихся в листе(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?

---

← →
Reindeer Moss Eater ©   (2004-07-16 15:08) [5]

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

---

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

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

Наверх

Память: 0.45 MB
Время: 0.035 c