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

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

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.09.2008, 16:05   #1
AngelOfDeath
Delphi/C++/Asm
Форумчанин Подтвердите свой е-майл
 
Аватар для AngelOfDeath
 
Регистрация: 28.03.2008
Сообщений: 358
Вопрос Bmp в ico

Пишу конвертер и вот такая проблема
Вот такой код конвертации не работает:
Код:
procedure TConverterForm.ConvertBmpToIco(Filein, FileOut: string);
var
bmp:TBitmap;
ico:TIcon;
begin
ProgressBar1.Position:=0;
Filein:=Edit1.Text;
FileOut:=Edit2.Text;
bmp:=TBitmap.Create;
ProgressBar1.Position:=ProgressBar1.Position+1;
ico:=TIcon.Create;
ProgressBar1.Position:=ProgressBar1.Position+1;
bmp.LoadFromFile(Filein);
ProgressBar1.Position:=ProgressBar1.Position+1;
ico.Assign(bmp); //Вот эту функцию надо както заменить (имено она не работает)
ProgressBar1.Position:=ProgressBar1.Position+1;
ico.SaveToFile(FileOut);
ico.Free;
bmp.Free;
end;
Вот ошибка:
Вложения
Тип файла: rar Ошибка.rar (146.3 Кб, 19 просмотров)
AngelOfDeath вне форума Ответить с цитированием
Старый 24.09.2008, 16:28   #2
Ozerich
Студент 1 курса
Форумчанин Подтвердите свой е-майл
 
Аватар для Ozerich
 
Регистрация: 27.06.2008
Сообщений: 959
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  TheIcon: TIcon;
  TheBitmap: TBitmap;
begin
  TheIcon := TIcon.Create;
  TheIcon.LoadFromFile('C:\Program Files\Borland\IcoCur32\EARTH.ICO');
  TheBitmap := TBitmap.Create;
  TheBitmap.Height := TheIcon.Height;
  TheBitmap.Width := TheIcon.Width;
  TheBitmap.Canvas.Draw(0, 0, TheIcon);
  Form1.Canvas.Draw(10, 10, TheBitmap);
  TheBitmap.Free;
  TheIcon.Free;
end;
C++(STL, QT, WinInet) / DHTML(CSS) / JavaScript / PHP Developer
Ozerich вне форума Ответить с цитированием
Старый 24.09.2008, 16:28   #3
Ozerich
Студент 1 курса
Форумчанин Подтвердите свой е-майл
 
Аватар для Ozerich
 
Регистрация: 27.06.2008
Сообщений: 959
По умолчанию

Код:
function Icon2Bitmap(Icon: TIcon): TBitmap;
begin
  with TImageList.Create (nil) do
  begin
    AddIcon (Icon);
    Result := TBitmap.Create;
    GetBitmap (0, Result);
    Free;
  end;
end;
C++(STL, QT, WinInet) / DHTML(CSS) / JavaScript / PHP Developer
Ozerich вне форума Ответить с цитированием
Старый 24.09.2008, 16:34   #4
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Цитата:
Сообщение от Ozerich Посмотреть сообщение
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  TheIcon: TIcon;
  TheBitmap: TBitmap;
begin
  TheIcon := TIcon.Create;
  TheIcon.LoadFromFile('C:\Program Files\Borland\IcoCur32\EARTH.ICO');
  TheBitmap := TBitmap.Create;
  TheBitmap.Height := TheIcon.Height;
  TheBitmap.Width := TheIcon.Width;
  TheBitmap.Canvas.Draw(0, 0, TheIcon);
  Form1.Canvas.Draw(10, 10, TheBitmap);
  TheBitmap.Free;
  TheIcon.Free;
end;
ему наоборот надо из бмп в иконку
SERG1980 вне форума Ответить с цитированием
Старый 24.09.2008, 16:46   #5
Ozerich
Студент 1 курса
Форумчанин Подтвердите свой е-майл
 
Аватар для Ozerich
 
Регистрация: 27.06.2008
Сообщений: 959
По умолчанию

Извиняюсь...
ну это потяжелее
вот ссыль там описано
http://delphiworld.narod.ru/base/bmp_to_ico.html
C++(STL, QT, WinInet) / DHTML(CSS) / JavaScript / PHP Developer
Ozerich вне форума Ответить с цитированием
Старый 25.09.2008, 05:59   #6
AngelOfDeath
Delphi/C++/Asm
Форумчанин Подтвердите свой е-майл
 
Аватар для AngelOfDeath
 
Регистрация: 28.03.2008
Сообщений: 358
Стрелка

Цитата:
Извиняюсь...
ну это потяжелее
вот ссыль там описано
http://delphiworld.narod.ru/base/bmp_to_ico.html
Про этот пример я знаю
Просто думал что есть что-нить полегче
p.s. Спс за помощь
AngelOfDeath вне форума Ответить с цитированием
Старый 25.09.2008, 09:06   #7
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

Юзаем gdi+ . Пока неначал ее использовать из-за необходимости даже незнал что такие возможности
BOBAH13 вне форума Ответить с цитированием
Старый 29.12.2008, 20:04   #8
Jorick
Новичок
Джуниор
 
Регистрация: 29.12.2008
Сообщений: 1
По умолчанию

Я в инете за год так и не нашел рабочих исходников, только здесь
http://www.softtelecom.ru/algreg.htm и все проблемы решены
Jorick вне форума Ответить с цитированием
Старый 29.12.2008, 20:40   #9
Sm1Le
Форумчанин
 
Аватар для Sm1Le
 
Регистрация: 31.10.2008
Сообщений: 500
По умолчанию

Нашел в инете минут эдак за 2 ....Оо
Вложения
Тип файла: rar Bmp2Ico.rar (139.3 Кб, 98 просмотров)
Skype : UASm1Le.
Sm1Le вне форума Ответить с цитированием
Старый 30.12.2008, 06:21   #10
Altera
Старожил
 
Аватар для Altera
 
Регистрация: 29.01.2008
Сообщений: 2,406
По умолчанию

Прикольно, значит получается, что мы юзаем конвертер, встроенный в tImageList.
Altera вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск