Сохранение TImageList

← →
BATTLE_MAX © (2007-11-02 15:52) [0]

Здравствуйте у меня такой вопрос. Я хочу сохранить TImageList в файл со всеми картинками, ну а потом ессно его восстановить. Вот нашёл такой пример:
WriteComponentResFile("C:\imagelist1.bin",imagelist1);
new_imagelist := ReadComponentResFile("c:\imagelist1.bin", nil) as TImageList;

Но при чтении вылазит ошибка: "Class TImageList not found". Я добавил RegisterClass(TImageList), но это не помогло. Кто-нибудь знает в чём дело?

← →
Reindeer Moss Eater © (2007-11-02 16:26) [1]

ImageList1.FileLoad(rtBitmap,MyFile.bmp,MyMaskColor);

← →
BATTLE_MAX © (2007-11-02 16:54) [2]

> Reindeer Moss Eater © (02.11.07 16:26) [1]

Но ведь этой функцией нельзя открыть бинарный файл. Я же сохраняю imagelist в бинарный файл. Можно как-нибудь загрузить именно его, чтобы не было ошибки?

← →
Reindeer Moss Eater © (2007-11-02 17:04) [3]

А бмп это по твоему текстовый файл, а не бинарный?

← →
Reindeer Moss Eater © (2007-11-02 17:08) [4]

И WriteComponentResFile здесь нафик не нужен.
Он выполняет совершенно другую задачую

← →
Leonid Troyanovsky © (2007-11-02 17:09) [5]

> Reindeer Moss Eater © (02.11.07 17:04) [3]

> А бмп это по твоему текстовый файл, а не бинарный?

Возможно, что это картинный файл.
"БМП в сосновом бору после ДМБ" :)

--
Regards, LVT.

← →
BATTLE_MAX © (2007-11-02 17:14) [6]

> Reindeer Moss Eater © (02.11.07 17:04) [3]

Ну если я сохраняю imagelist с помощью WriteComponentResFile("C:\imagelist1.bin",imagelist1);
то разве я могу восстановить его например вот так:
new_imagelist.FileLoad(rtIcon,"C:\imagelist1.bin",clNone); ?

← →
BATTLE_MAX © (2007-11-02 17:15) [7]

> И WriteComponentResFile здесь нафик не нужен.
> Он выполняет совершенно другую задачую

Тогда что нужно, как правильно сохранить imagelist с картинками?

← →
Reindeer Moss Eater © (2007-11-02 17:19) [8]

Ну а нахрена тебе это?
Хотя ладно. "Мы в город изумрудный идем дорогой трудной"

procedure TForm1.Button4Click(Sender: TObject);
var ImageList2 : TImageList; bmp : TBitMap;
begin
WriteComponentResFile("imagelist.bin",ImageList1);
ImageList1.Name := "old_imageList";
ImageList2 := TImageList.Create(Self);
ReadComponentResFile("imagelist.bin",ImageList2);
ShowMessage(IntToStr(ImageList2.Count));
bmp := TBitmap.Create;
ImageList2.GetBitmap(1,bmp);
TBitBtn(Sender).Glyph.Assign(bmp);
bmp.Free;
end;

← →
Leonid Troyanovsky © (2007-11-02 17:22) [9]

> BATTLE_MAX © (02.11.07 17:15) [7]

> Тогда что нужно, как правильно сохранить imagelist с картинками?

http://www.rsdn.ru/Forum/?mid=887444

--
Regards, LVT.

Наверное была мудрая мысль менять картинки по вкусу пользователя?
Интересно мне, если для случая FileLoad юзер сам мог в фотошопе создать нужный набор картинок, то что же он будет делать в случае с ресурсным файлом имаджлиста?
На поклон к батлмаксу идти?
Нафиг тогда вообще эта загрузка на рантайме?
Дал ему новый екзешник с новыми картинками и все.
Чума........

> Reindeer Moss Eater © (02.11.07 17:23) [10]

Не знаю чё там нафиг и зачем:)
Щас буду разбираться с тем что вы мне написали

> BATTLE_MAX © (02.11.07 17:30) [11]

> Щас буду разбираться с тем что вы мне написали

А мы?
Т.е., Владимир Титов.

--
Regards, LVT.

> А мы?
> Т.е., Владимир Титов.

А вам тоже спасибо, хорошая ссылка, как раз то что я хотел. Когда я написал "Щас буду разбираться с тем что вы мне написали", я имел ввиду вас обоих :)

Сохранение TImageList Найти похожие ветки