Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.11.11;
Скачать: CL | DM;

Вниз

Копирование изображения   Найти похожие ветки 

 
apic ©   (2007-10-19 12:35) [0]

Есть картинка загруженная в Image (к примеру 100х100 пикселей), как скопировать кусок этого изображения (к примеру х1=10, у1=15, х2=29, у2=50) и сохранить в отдельный файл (к примеру рис.bmp)?


 
apic ©   (2007-10-19 13:51) [1]

jpgImg:=TJPEGImage.Create;
 jpgImg.LoadFromFile(ExtractFilePath(Application.ExeName)+"pic.jpg");
 Image1.Picture.Assign(jpgImg);
 Image2.Picture.Assign(jpgImg);
//здесь выдает ошибку
Image2.Canvas.BrushCopy(Rect(0,0,10,10),Image1.Picture.Bitmap,Rect(0,0,10,10),0) ;


 
apic ©   (2007-10-19 13:52) [2]

И так тоже
Image2.Canvas.CopyRect(Rect(0,0,10,10),Image1.Canvas,Rect(0,0,10,10));


 
KSergey ©   (2007-10-19 14:08) [3]

> jpgImg:=TJPEGImage.Create;
>  jpgImg.LoadFromFile(ExtractFilePath(Application.ExeName)+"pic.
> jpg");
>  Image1.Picture.Assign(jpgImg);
>  Image2.Picture.Assign(jpgImg);
> //здесь выдает ошибку
> Image2.Canvas.BrushCopy(Rect(0,0,10,10),Image1.Picture.Bitmap,
> Rect(0,0,10,10),0) ;

1. По коду я вижу создание объекта для jpgImg. А вот для Image1 и Image2 - не вижу.
Может в этом дело?

2. А нельзя ли все еж озвучить чт оименно за ошибка и когда она происходит? ПРи компиляции или при выполнении?


 
apic ©   (2007-10-19 14:20) [4]

Ошибка при выполнении, а Image"сы уже на форме!!!!!!!!


 
KSergey ©   (2007-10-19 14:28) [5]

> apic ©   (19.10.07 14:20) [4]
> Ошибка при выполнении,

Ааа..
Только в пункте 2 имеется 2 вопросительных предложения.



Страницы: 1 вся ветка

Текущий архив: 2007.11.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
11-1176370217
Dmitry___
2007-04-12 13:30
2007.11.11
Unicode и Memo.Selection


15-1191743019
Nucer
2007-10-07 11:43
2007.11.11
Реализация RSA в Delphi


2-1192796073
andreil
2007-10-19 16:14
2007.11.11
Как сделать дерево CheckBox ов?


15-1191463705
Slider007
2007-10-04 06:08
2007.11.11
С днем рождения ! 4 октября 2007 четверг


6-1172929528
tytus
2007-03-03 16:45
2007.11.11
TWebBrowser - долгая загрузка страницы.