VPF::Получение части картинки. - Форум программистов

iddqd

Дата 5.7.2006, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 16.11.2005

Репутация: нет
Всего: 2

Есть переменная TBitmap, в которую загружена картинка.
Необходимо написать функцию, в которую передаётся верхняя левая точка, ширина и высота нужной области и эта область вырезается.
Функция возвращает только вырезанный TBitmap.
Пытаюсь сделать через CopyRect не особо получается. Вырезает нужную мне область из первоначальной картинки и оставляет белый прямоугольник, а где то, что было в этом прямоугольнике?:\
Не могу получить.

--------------------

Alexeis

Дата 5.7.2006, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

iddqd, вы вероятно перепутали source и dest, или вызвали метод copyrect, не у того канваса.

Добавлено @ 14:41
Поэкспериментируйте с canvas.CopyMode

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

iddqd

Дата 5.7.2006, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 16.11.2005

Репутация: нет
Всего: 2

Код


Bmp:=TBitmap.Create;
Bmp.LoadFromFile('x.bmp');
R.Left:=0;
R.Top:=0;
R.Right:=100;
R.Bottom:=300;
Bmp.Canvas.CopyRect(R, bmp.Canvas, Rect(0, 0, 100, 300));
//Bmp.Canvas.FillRect(R); <- дальше как? :\
Image1.Picture.Bitmap.Assign(Bmp);
Bmp.Free;

--------------------

Alexeis

Дата 5.7.2006, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

CopyRect нужно вызывать у канваса приемника, а не источника.

--------------------

iddqd

Дата 5.7.2006, 14:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 16.11.2005

Репутация: нет
Всего: 2

С CopyMode эксперименты тоже проводились smile

--------------------

Alexeis

Дата 5.7.2006, 14:46 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Цитата(iddqd @ 5.7.2006, 14:43

)

Bmp.Canvas.CopyRect(R, bmp.Canvas, Rect(0, 0, 100, 300));

нельзя копировать в свой же канвас - только из чужого в свой.

--------------------

iddqd

Дата 5.7.2006, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 16.11.2005

Репутация: нет
Всего: 2

Да, я понял ошибку, н овсё же такой код не работает:

Код


var
R: TRect;
Bmp: TBitMap;
begin
Bmp:=TBitmap.Create;
Image1.Picture.Bitmap.LoadFromFile('x.bmp'); //картинка точно загружается
R.Left:=0;
R.Top:=0;
R.Right:=100;
R.Bottom:=300;
Bmp.Width:=100; //надо ли эти два пункта?
Bmp.Height:=300;
Bmp.Canvas.CopyRect(R, Image1.Picture.Bitmap.Canvas, Rect(0, 0, 100, 300));
Bmp.Canvas.FillRect(R); //правильная функция?
Image1.Picture.Bitmap.Assign(Bmp);
Bmp.Free;
end;

В итоге белый прямоугольник нужных размеров smile

Добавлено @ 15:23
Разобрался. FillRect было лишним smile

Спасибо.
+1

--------------------

Alexeis

Дата 5.7.2006, 15:23 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Цитата(iddqd @ 5.7.2006, 15:10

)

Bmp.Canvas.FillRect®; //правильная функция?

Вы вначале копируете в указанную область, а затем fillrect, затирает то что было скопировано. Подробнее опишите задачу.(алгоритм не совсем ясен)

Цитата(iddqd @ 5.7.2006, 15:10

)

Bmp.Width:=100; //надо ли эти два пункта?Bmp.Height:=300;

Надо иначе не куда будет копировать.

--------------------

teplotaya

Дата 24.7.2006, 14:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 10.3.2006

Репутация: нет
Всего: 2

Код


procedure TForm1.split(x1,y1,x2,y2:integer;filesave:string;fileread:string);
VAR
  Bitmap: TBitmap;
  MyRect,MyRect2, MyOther: TRect;
  dest,Source:TRECT;
  Bitmap1,bitmap2,Bitmap3:tbitmap;
  jpeg:TJpegimage;
begin
  jpeg:=TJpegImage.Create;
  //jpeg.Assign(Image1.Picture.Bitmap);
  //jpeg.CompressionQuality:=1;
  jpeg.Grayscale:=false;
  //jpeg.DIBNeeded; // jpeg.JPEGNeeded – òàêæå íå ïîìàãàåò
  //jpeg.Compress;
  //jpeg.SaveToFile('c:\test.jpg');        //**
  jpeg.LoadFromFile(fileread);

  MyRect := Rect(x1,y1,x2,y2);
  MyRect2 := Rect(0+5,0+5,x2-x1+5,y2-y1+5);
  Bitmap := TBitmap.Create;
  Bitmap1 := TBitmap.Create;
  //Bitmap.LoadFromFile(fileread);
  bitmap.Assign(jpeg);
  //jpeg.Assign(bitmap.Canvas);
  //Application.ProcessMessages;
  Form1.Canvas.BrushCopy(MyRect2, Bitmap, MyRect, clnone);
  //Application.ProcessMessages;
  bitmap1.Canvas.Brush.Color := clblack;
  Bitmap1.Width:=x2-x1+10;
  Bitmap1.Height:=y2-y1+10;
  Bitmap1.Canvas.CopyRect(MyRect2,Bitmap.Canvas,MyRect);
  try
    Bitmap1.SaveToFile(filesave);
    inc(coo);
  except
    dec(coo);
  end;
  Bitmap.Free;
  Bitmap1.Free;
  //Bitmap2.Free;
  jpeg.Free;

M
Snowy

Просьба использовать кнопку "Код".
Мне совсем не интересно за всеми производить оформление.

Это сообщение отредактировал(а) Snowy - 24.7.2006, 15:29

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »