Icon image is not valid

← →
TriX © (2004-07-28 15:26) [0]

как убрать ошибку (Icon image is not valid) появляющуюся при сохранении рисунка компонента image .

← →
Sandman25 © (2004-07-28 15:28) [1]

Не писать
Image1.Picture.Icon.SaveToFile

← →
Iconka © (2004-07-28 15:32) [2]

Как вариант закоментарь строку на которой появляется ошибка.

А если хочешь нормального ответа - приведи код.

← →
trix © (2004-07-28 15:51) [3]

var
i, IconCount, negone: integer;
begin

ListBox1.Items.Clear;
negone := -1;

if OpenDialog1.Execute then

begin
StatusBar1.SimpleText := OpenDialog1.FileName;

end;

IconCount := ExtractIcon(Form1.Handle,PChar(OpenDialog1.FileName),negone);

for i := 0 to IconCount-1 do
begin
ListBox1.Items.add( "ICON " +iNtToStr(i+1));
end;

Label2.Caption := IntToStr(IconCount);

ListBox1.ItemIndex := 0;
ListBox1Click(Sender);
end;

procedure TForm1.SaveIcon1Click(Sender: TObject);
begin
begin
if SaveDialog1.Execute then
Image1.Picture.Icon.SaveToFile(SaveDialog1.FileName);
{**** И ВОТ ТУТ ОШИБКА ****}
end;
end.

← →
Sandman25 © (2004-07-28 15:55) [4]

Image1.Picture.SaveToFile

Как видите тут грузится иконка из файла ,но
не во всех файлах есть иконки .
Image1.Picture.SaveToFile
то ж не помогает .

Как мне не вызывая ошибки продолжить работу программы .
без сохранения 0вой иконки .

try except?

Icon image is not valid Найти похожие ветки