Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Сохранение иконки из imagelist

Автор: Михалыч 28.8.2011, 12:28

Подскажите код для сохранения иконки из 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;

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

Автор: Михалыч 28.8.2011, 12:53

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

Код


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;

Автор: Михалыч 28.8.2011, 13:08

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

Автор: pseud 29.8.2011, 09:25

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

)

b.SaveToFile('c:\');

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