Проблемы с загрузкой Картинки

[Heng]

При попытке загрузить картинку пишет: Bitmap image is not valid

var Pic:TBitmap;
begin
 Pic:=TBitmap.Create;
 if dlgOpenPic1.Execute then begin
  pic.LoadFromFile(dlgOpenPic1.FileName);
  pb1.Canvas.Draw(0,0,pic);
 end;
end;

Почему ? что-то разобраться не могу.

[Stilet]

Видимо ты не BMP загружаешь.

[Heng]

Нет, точно бмп, я даже просто текстом вбил 1.bmp все-равно не прёт, и в каталоге проверил там тоже bmp формат
темболее не БМП неотображаются в диалоге

[type_Oleg]

У меня работает. Сделал в MS_Paint 4 разных *.bmp рисунка. Точнее, сохранил как .. - 256-цветный, 16-цветный, монохромный, 24-разрядный. Все загружает.
Вот если попробовать *.jpg - выдает именно это сообщение.

PS Что такое pb1 - я не знаю, я использовал вместо этого Image

Вот - 256-разрядный.

[Heng]

именно тот код, который я выложил работает ???

[type_Oleg]

Сообщение от Heng

именно тот код, который я выложил работает ???

Да, я прямо скопировал в Delphi7. Только заменил pb1 на Image1, и имя OpenDialog1 вместо dlgOpenPic1.

Может быть, у нас разные Properties у каких-то компонентов .

[Heng]

В итоге, я пересохранил в 16 цветный и все заработало, магия какая-то :\
до этого 24 разрядный был

[Heng]

Вот, опять проблема немогу сохранить картинку ))) файл пустой получается

var Pic:TBitmap;
begin
 Pic:=TBitmap.Create;
 Pic.Canvas.CopyRect(Pic.Canvas.ClipRect,pb1.Canvas,pb1.Canvas.ClipRect);
 if dlg1.Execute then begin

   Pic.SaveToFile(dlg1.FileName);
 end;

[BDA]

CopyRect вроде сам не устанавливает размер канвы.

[Heng]

Все понял.
просто добавил Pic.Width := pb1.Width;
Pic.Height := pb1.Height;