| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Запаковка картинок, содержащихся в листе(TListBox) [D7, WinME]
DreymanD © (2004-07-14 19:23:00)Привет всем мастерам!
У меня такая ситуация: у меня есть ListBox, в нем графические файлы(просто путь к файлу(например: C:\sasha\01.bmp)). Надо, чтоб при нажатии на Button01 появлялся SaveDialog1 и можно было указать формат и имя. Но дело не в этом, мне надо чтоб после нажатия на кнопку "Сохранить" OpenDialog'а, ВСЕ файлы, находящиеся в ListBox ЗАПАКОВЫВАЛИСЬ В ЕДИНЫЙ файл. То есть, чтоб программа нашла все файлы по директориям и скопировала их в единый сохраняемый файл.
А при нажатии на Button02, с помощью OpenDialog'а можно было открыть(распаковать) все файлы в ListBox и при двойном-щелчке, можно было просмотреть в Image1(эта функция дубл-клика у меня есть). В общем вот так вот.
Да и еще вопросик: у меня после указания в Filter моего формата(*.list) в SaveDialog, прога создает просто файл(например, imagefile1(без формата)), а не файл с формато(imagefile1. list).
Reindeer Moss Eater (2004-07-16 15:08:00) [1]if ExtractFileExt(savedialog1.FileName) <> EXTENTION_I_WANT then
fName := ChangeFileExt(savedialog1.FileName,EXTENTION_I_WANT);
DreymanD (2004-07-16 15:03:00) [2]Ээээ... я что-то не понял, как этот код должен действовать... 8(
Я использую код:
if form3.savedialog1.execute then begin
Form1.listbox1.items.savetofile(savedialog1.FileName);
Что нужно дописать к коду, чтобы прога сама дописывала расширение(формат) из Filter SaveDialog'a?
Zeqfreed (2004-07-14 21:03:00) [3]Поправочка, вместо
doессноthen
Zeqfreed (2004-07-14 21:02:00) [4]Думаю, что тебе надо начать с чего-нибудь по проще (извини, если чего, но мне так показалось)
насчет сохранения, если это то, что я подумал то вот:
{...}
if SaveDialog.Execute do begin
if ExtrcatcFileExt(SaveDialog.FileName) <> '.list' then
SaveDialog.FileName := ExtractFileName(SaveDialog.FileName) + '.list';
{...}
end;
Красный молоток (2004-07-14 20:25:00) [5]Простейший формат такого файла:
количество файлов
размеры файлов
имена файлов
содержимое файлов
Реализуется элементарно
| |
