Не загружаются картинки .ico

[Мария Алексеевна]

Здравствуйте, у меня проблема. Я пишу программу создания иконок (пиктограмм). Я описала процедуру сохранения файла в *.ico, но в моей программе сохранённые таким образом иконки не открываются, при этом в проводнике они открываются и просматриваются свободно.
Ошибка возникает уже при выборе файла путем нажатия на него один раз

Процедура открытия файла:

begin
     if SPDialog.Execute then
    if SPDialog.FileName<>'.ico' then
          Image.SaveToFile(SPDialog.FileName+'.ico');
end;

Процедура сохранения файла:
begin
  if OPDialog.Execute then begin
    LoadIconFile(Image,OPDialog.FileName);
    RefreshPalette;
    RefreshGrid;
  end;
end;

З.Ы. Иконки, уже имеющиеся на компьютере, открываются нормально.

Ай нид хелп!

[mihali4]

Ну, наверное, все-таки - наоборот. Это я про открытие и сохранение файла.

if SPDialog.FileName<>'.ico' then

Тогда уж резоннее

if Trim(SPDialog.FileName)<>'.ico' then

A вообще, впечатление такое, что вы уверены, будто бы достаточно сменить расширение на ICO и любая картинка станет иконкой.
Спешу вас разочаровать...

З.Ы. Не забывайте, что внизу есть "Похожие темы". Можете почерпнуть немало полезного...

[Мария Алексеевна]

ну, не любая) разрешением 32х32, например.
а функции да, перепутала при копировании названия

[Пепел Феникса]

сохраняете BMP формат а грузите ICO
разница то есть для Делфи...а проводник просто по заголовку все понимают.

[Stilet]

Ошибка возникает уже при выборе файла путем нажатия на него один раз

Какая ошибка то?

[ОДИНОЧЕСТВО В СЕТИ]

O сохранении иконок 32х32

[Мария Алексеевна]

Project Projet1.exe raised exception class EInvalidGraphic with message "Icon image is not valid".
вот такая ошибка.
посмотрела ссылку, спасибо, конечно, но я там никогда в жизни не разберусь
А как-нибудь попроще нельзя сделать, чтобы оно сохранялось нормально?

[mihali4]

Как преобразовать bmp (32x32) в ico

unit main;

interface

uses
windows, messages, sysutils, classes, graphics, controls,
forms,dialogs,extctrls, stdctrls;

type
tform1 = class(tform)
button1: tbutton;
image1: timage;
image2: timage;
procedure button1click(sender: tobject);
procedure formcreate(sender: tobject);
private
{ private declarations }
public
{ public declarations }
end;

var
form1: tform1;

implementation

{$r *.dfm}

procedure tform1.button1click(sender: tobject);
var windc, srcdc, destdc : hdc;
oldbitmap : hbitmap;
iinfo : ticoninfo;
begin
geticoninfo(image1.picture.icon.handle, iinfo);
windc := getdc(handle);
srcdc := createcompatibledc(windc);
destdc := createcompatibledc(windc);
oldbitmap := selectobject(destdc, iinfo.hbmcolor);
oldbitmap := selectobject(srcdc, iinfo.hbmmask);
bitblt(destdc, 0, 0, image1.picture.icon.width,
image1.picture.icon.height,
srcdc, 0, 0, srcpaint);
image2.picture.bitmap.handle := selectobject(destdc, oldbitmap);
deletedc(destdc);
deletedc(srcdc);
deletedc(windc);
image2.picture.bitmap.savetofile(extractfilepath(application.exename)
+ 'myfile.bmp');
end;

procedure tform1.formcreate(sender: tobject);
begin
image1.picture.icon.loadfromfile('c:\myicon.ico');
end;

end.

[Мария Алексеевна]

почему-то у меня ощущение, что тут наоборот, преобразование bmp->ico, потому что при создании формы грузится .ико, а в конце процедуры сохраняется .бмп

[Вавел из ГМТУ]

Я думаю что Вы уже убедились, что сохранение иконки не такое простое дело.
Есть решение.
Нужно пройти по ссылке:

(ОДИНОЧЕСТВО В СЕТИ скинула)
http://www.delphisources.ru/pages/fa...ve_32_ico.html

И оформить этот код в модуль, а потом вызывать когда надо.
Создать всего одну процедуру.. Например:

Procedure SaveIcon(IFile:TImage ; PathS:String);
Где IFile - это Image который нужно сохранить, а PathS - это путь для сохранения.

Вызывать вот так:
SaveIcon(Image1, 'C:\254.ico');

Тогда программа вобще становиться примитивной. Дописываете простенький графический редактор и у Вас то, что хотелось.

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Randomize;
Image1.Canvas.Brush.Style := bsSolid;
Image1.Canvas.Brush.Color := RGB(Random(256), Random(256), Random(256));
Image1.Canvas.Rectangle(0, 0, 32, 32);
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Image1.Canvas.Brush.Color := RGB(Random(256), Random(256), Random(256));
Image1.Canvas.Rectangle(0, 0, 32, 32);
End;

Procedure TForm1.Button2Click(Sender: TObject);
Begin
SaveIcon(Image1, 'C:\254.ico');
End;

Пример в приложении.