Bmp в ico

[AngelOfDeath]

Пишу конвертер и вот такая проблема
Вот такой код конвертации не работает:

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;

Вот ошибка:

[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;

[Ozerich]

function Icon2Bitmap(Icon: TIcon): TBitmap;
begin
  with TImageList.Create (nil) do
  begin
    AddIcon (Icon);
    Result := TBitmap.Create;
    GetBitmap (0, Result);
    Free;
  end;
end;

[SERG1980]

Сообщение от 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;

ему наоборот надо из бмп в иконку

[Ozerich]

Извиняюсь...
ну это потяжелее
вот ссыль там описано
http://delphiworld.narod.ru/base/bmp_to_ico.html

[AngelOfDeath]

Извиняюсь...
ну это потяжелее
вот ссыль там описано
http://delphiworld.narod.ru/base/bmp_to_ico.html

Про этот пример я знаю
Просто думал что есть что-нить полегче
p.s. Спс за помощь

[BOBAH13]

Юзаем gdi+ . Пока неначал ее использовать из-за необходимости даже незнал что такие возможности

[Jorick]

Я в инете за год так и не нашел рабочих исходников, только здесь
http://www.softtelecom.ru/algreg.htm и все проблемы решены

[Sm1Le]

Нашел в инете минут эдак за 2 ....Оо

[Altera]

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