Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.018 c
15-1191838328
Ega23
2007-10-08 14:12
2007.11.11
Кто тут про рабочее время и личную почту говорил?


2-1192793681
Neo
2007-10-19 15:34
2007.11.11
как вывести результат поиска по базе в Edit


2-1192772617
ses
2007-10-19 09:43
2007.11.11
combobox. edit;


11-1177182170
Rusya
2007-04-21 23:02
2007.11.11
Сделать CenterOnParent


2-1192536340
Kolan
2007-10-16 16:05
2007.11.11
Variant := := StrToInt( 1 ) приводит к исключению, почему?




   Наверх