| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Icon image is not valid

TriX ©   (2004-07-28 15:26:00) 

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

---

Sandman25   (2004-07-28 16:51:00) [1]

try except?

---

TriX   (2004-07-28 16:49:00) [2]

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

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

---

Sandman25   (2004-07-28 15:55:00) [3]

Image1.Picture.SaveToFile

---

trix   (2004-07-28 15:51:00) [4]

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.

---

Iconka   (2004-07-28 15:32:00) [5]

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

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

---

Sandman25   (2004-07-28 15:28:00) [6]

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

---

Наверх