Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.08.2011, 13:29   #1
Михаил Юрьевич
Форумчанин
 
Аватар для Михаил Юрьевич
 
Регистрация: 25.12.2007
Сообщений: 661
По умолчанию

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

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

Вот нашел еще,но выдает такую же ошибку "Системе не удается найти указанный путь"
Код:
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;
За частые поиски был забанен во всех известных
поисковых системах!

Последний раз редактировалось Stilet; 28.08.2011 в 14:01.
Михаил Юрьевич вне форума Ответить с цитированием
Старый 28.08.2011, 13:57   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Код:
b.SaveToFile('c:\');
и что это за путь такой?
может всетаки надо имя файла указать?
Код:
c:\1.bmp
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 28.08.2011, 14:07   #3
Михаил Юрьевич
Форумчанин
 
Аватар для Михаил Юрьевич
 
Регистрация: 25.12.2007
Сообщений: 661
По умолчанию

Вот спасибо, точно, щас зашел на XP посмотреть причину , а она в этом и заключалась ,СПАСИБО!
За частые поиски был забанен во всех известных
поисковых системах!
Михаил Юрьевич вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ImageList и БД lkjuio C# (си шарп) 4 05.05.2011 20:09
ImageList and Paint Виктория7777 Помощь студентам 0 11.01.2011 13:23
ImageList програмно загрузить и сохранить ArtGrek Компоненты Delphi 6 28.12.2010 14:44
загрузить из imagelist иконку окна Человек_Борща Общие вопросы Delphi 1 14.11.2010 14:06
TreeView и ImageList Stanislav Общие вопросы Delphi 4 27.03.2008 01:26