VPF::Сохранение иконки из imagelist - Форум программистов

Михалыч

Дата 28.8.2011, 12:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

Подскажите код для сохранения иконки из imagelist , нашел вот такой код, в XP работает без глюков , а на семерке , через раз,
постоянно на семерке ошибка "системе не удается найти указанный путь"

Код


var
 b: TBitmap; // BitMap(bmp)
begin
 b := TBitmap.Create;
 try
  form1.IMLIST1.GetBitmap(1, b); 
  b.SaveToFile('c:\'); 
 finally
  b.Free;
 end;
end;

Если есть проверенный ,поделитесь

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

Михалыч

Дата 28.8.2011, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

Вот нашел еще,выдает такую же ошибку, "Системе не удается найти указанный путь"

Код


procedure TForm1.SaveImageListToFile(ImageList: TImageList;
  FileName: string);
var
B: TBitmap;
i: Integer;
S: TFileStream;
begin
S := TFileStream.Create(FileName, fmCreate);
try
for i := 0 to ImageList.Count - 1 do begin
B := TBitmap.Create;
try
ImageList.GetBitmap(i, B);
B.SaveToStream(S);
finally
B.Free;
end;
end;
finally
S.Free;
end;
end;

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

Михалыч

Дата 28.8.2011, 13:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

Спасибо все решил!

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

pseud

Дата 29.8.2011, 09:25 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(Михалыч @ 28.8.2011, 12:28

)

b.SaveToFile('c:\');

однако...
сохраняя в файл, видимо, надо указывать имя файла, а не каталога

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »