[T-dayne]

всем привет. Есть bmp картинка на диске, нужно вырезать из нее прямоугольник координатами (225, 543, 352, 582), и вставить в новый tbitmap. Знаю что это можно сделать с функцией copyrect, но не знаю как пользоваться. Научите, друзья

Вот что делаю я:

Код:

1 2 3 4 5 6 7 8 9 10 11

bmp:=tbitmap.Create; bit:=tbitmap.Create; JPEG := TJPEGImage.Create;   JPEG.LoadFromFile('c:\first_image.jpg'); Bmp.Assign(JPEG); // картинка теперь в bmp   q := Rect(225, 543, 352, 582); w := Rect(0, 0, 0, 0);   bit.Canvas.CopyRect(w, bmp.Canvas, q);

В итоге bit пустой

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

const   x1=225;   y1=543;   x2=352;   y2=582; var   bmpin: TBitmap;   bmpout: TBitmap; begin   bmpin:=TBitmap.Create;   bmpout:=TBitmap.Create;   try     bmpin.LoadFromFile('g:\__Data\D2007.bmp');     bmpout.Width:=x2-x1+1;     bmpout.Height:=y2-y1+1;     bmpout.Canvas.CopyRect(Rect(0, 0, bmpout.Width, bmpout.Height), bmpin.Canvas, Rect(x1, y1, x2, y2));     bmpout.SaveToFile('g:\__Data\D2007_.bmp');   finally     bmpout.Free;     bmpin.Free;   end; end;

[antikiler]

T-dayne
В твоем коде практически все правильно. Кроме данного параметра
w := Rect(0, 0, 0, 0);
Даный параметр указывает начальную и конечную точку области в которую
будет занесена картинка. И обе эти точки равны т.е. размер картинки нулевой - поэтому ее невидно. Сделай так:
w := Rect(0, 0, 352-255, 582-543);
Второе
Перед тем как копировать картинку, нужно установить изначально размер(высоту и ширину) bit,
bit.Width:=352-255; //ширина
bit.Height:=582-543; //высота
Треье
Следить чтобы кусок который ты хочеш вырезать был диапозоне размера картинки. Например если размер картинки 400 х 300, то в твоем случае
ничего путного не выйдет.
Ну и наконец подведем итог

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

bmp:=tbitmap.Create; bit:=tbitmap.Create; JPEG := TJPEGImage.Create; JPEG.LoadFromFile('c:\first_image.jpg'); Bmp.Assign(JPEG); // картинка теперь в bmp q := Rect(225, 543, 352, 582); w := Rect(0, 0, 352-255, 582-543); bit.Width:=352-255;  //ширина bit.Height:=582-543;  //высота bit.Canvas.CopyRect(w, bmp.Canvas, q); bit.savetofile('c:\first_image_1.bmp') jpeg.free; bmp.Free; bit.Free;

[Kaktuz]

Я вот немного не могу понять одного. В примерах все данные сохраняются в новое изображение. А если мне необходимо его использовать и загрузить в только что созданное изображение?
Как-то img.Picture.LoadFromFile(bmp); не хочет работать.
А в целом суть та же. Из предложенного изображения, вырезать часть и поместить на форму.

[angvelem]

А при чём тут img.Picture.LoadFromFile?

[Kaktuz]

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

А при чём тут img.Picture.LoadFromFile?

не знаю, я экспериментировал. в том то и дело что не пойму какой командой его грузить.

[angvelem]

Используй метод Assign.

[Kaktuz]

var
BmpI: TBitmap;
BmpT: TBitmap;
ImgF: TImage;
begin
BmpI:=TBitmap.Create;
BmpT:=TBitmap.Create;
ImgF:=TImage.Create(nil);

BmpI.LoadFromFile('Image.bmp');
BmpT.Width:=32;
BmpT.Height:=32;
BmpT.Canvas.CopyRect(Rect(0, 0, 32, 32), BmpI.Canvas, Rect(0, 0, 32, 32));
ImgF.Picture.Assign(BmpT); // так работает, но не показывает изображение
ImgF.Assign(BmpT); // если так - ошибка

[Kaktuz]

Все. Разобрался. Надо же еще форму указывать
ImgF.Parent:=Form1;

[angvelem]

Всё работает:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

BmpI: TBitmap;   BmpT: TBitmap;   ImgF: TImage; begin   BmpI := TBitmap.Create;   BmpT := TBitmap.Create;   ImgF := TImage.Create(nil);   ImgF.Parent := Form1;     BmpI.LoadFromFile('..\000.bmp');   BmpT.Width  := BmpI.Width;   BmpT.Height := BmpI.Height;   BmpT.Canvas.CopyRect(Rect(0, 0, 32, 32), BmpI.Canvas, Rect(0, 0, 32, 32));   ImgF.Picture.Assign(BmpT); // так работает, но не показывает изображение //  ImgF.Assign(BmpT); // если так - ошибка

Эх опоздал.