Вырезать кусочек из картинки

[ivt22]

Добрый день, раньше этот способ работал, а теперь нет. Где ошибся не пойму. Необходимо вырезать кусочек из картинки:

var
  BMP: TBitmap;
  bmp2: TBitmap;
  png: TPNGImage;
begin
 BMP := TBItmap.Create();
 bmp2 := TBitmap.Create();

 bmp.LoadFromFile('D:\2.bmp');


        BitBlt(bmp2.Canvas.Handle, 0, 0, 102, 17, bmp.Canvas.Handle, 37, 3, SRCCOPY);
        bmp2.Width:=50;
        bmp2.Height:=10;
        bmp2.SaveToFile('D:\1.bmp');

 BMP.Free;
 Bmp2.Free;

в файл 1.bmp сохраняется картинка с размерами 50 на 10, но абсолютно пустая. Просто белый фон

[ivt22]

Да блин я вообще нифига не понимаю вот код. Он из картинки 800 на 600 вырезает 6 меленьких кусочков и код рабочий, всегда все работает.

  var W,H,i,j: Integer;
  bmp, bmp2: TBitmap;
  crds: array [1..6,1..2] of integer; 
  png: TPNGImage;

begin

  png :=  TPNGImage.Create;
  bmp :=  TBitmap.Create;
  bmp2  :=  TBitmap.Create;
  bmp.LoadFromFile('D:\1.bmp');


  crds[1,1] := 455;
  crds[1,2] := 53;
//


  crds[2,1] := 687;
  crds[2,2] := 298;
//


  crds[3,1] := 448;
  crds[3,2] := 417;
//


  crds[4,1] := 264;
  crds[4,2] := 417;
//


  crds[5,1] := 13;
  crds[5,2] := 300;
//


  crds[6,1] := 262;
  crds[6,2] := 54;
//

  W:=102;
  H:=17;

for i := 0 to 6 do begin
  BitBlt(bmp2.Canvas.Handle, 0, 0, W, H, bmp.Canvas.Handle, crds[i,1], crds[i,2], SRCCOPY);
  bmp2.Width:=W; // уменьшаем его размеры width
  bmp2.Height:=H;
  png.Assign(bmp2);
  png.SaveToFile('D:\TESTCOPYRECT\' + IntToStr(i) + '.PNG');
end;

Затем мне нужно из получившейся маленькой картинки шириной 102 на 17 вырезать еще небольшой кусочек
чуть-чуть изменяю код:

  bmp.loadfromfile('D:\2.bmp');// другая картинка 102 на 17

  BitBlt(bmp2.Canvas.Handle, 0, 0, W, H, bmp.Canvas.Handle, 20, 0, SRCCOPY);
  bmp2.Width:=82; // уменьшаем его размеры width
  bmp2.Height:=17;
  bmp2.SaveToFile('D:\TESTCOPYRECT\17.bmp');

И ВСЕ УЖЕ НИЧЕГО НЕ РАБОТАЕТ. Я не понимаю где ошибка, я же всего лишь циферки другие поставил, просто создается пустой БМП файл 82 на 17 и хоть об стенку разбейся ничего не работает.

[ivt22]

до смешного просто, даже этот код не работает

  BitBlt(bmp2.Canvas.Handle, 0, 0, 102, 17, bmp.Canvas.Handle, 13, 300, SRCCOPY);
  bmp2.Width:=102; // уменьшаем его размеры width
  bmp2.Height:=17;
  bmp2.SaveToFile('D:\TESTCOPYRECT\17.bmp');

ЛОЛ просто. Я вместо переменных H, W написал их значения вручную и координаты, которые были записаны в массиве в пятом элементе, я тоже прописал вручную и ЛОЛ!!! НИЧЕГО НЕ РАБОТАЕТ. АХАААХ как такое может быть?

[BDA]

А так?

  bmp2.Width:=102; // уменьшаем его размеры width
  bmp2.Height:=17;
  BitBlt(bmp2.Canvas.Handle, 0, 0, 102, 17, bmp.Canvas.Handle, 13, 300, SRCCOPY);
  bmp2.SaveToFile('D:\TESTCOPYRECT\17.bmp');

[Serge_Bliznykov]

BitBlt(bmp2.Canvas.Handle, 0, 0, 102, 17, bmp.Canvas.Handle, 13, 300, SRCCOPY);

то, что я выделил, это:

int nXSrc, // x-coordinate of source rectangle's upper-left corner
int nYSrc, // y-coordinate of source rectangle's upper-left corner

координаты левого верхнего угла, ОТКУДА копировать.
как Вы думаете, в картинке размером 102 на 17 если взять угол, начиная с x=13 (ну ладно, это допустимо) и с y=300 (напоминаю, что в исходном изображении высота всего изображения 17) что получите?!?!

поставьте, например, 13, 0 - попробуйте!

[ivt22]

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

то, что я выделил, это:


координаты левого верхнего угла, ОТКУДА копировать.
как Вы думаете, в картинке размером 102 на 17 если взять угол, начиная с x=13 (ну ладно, это допустимо) и с y=300 (напоминаю, что в исходном изображении высота всего изображения 17) что получите?!?!

поставьте, например, 13, 0 - попробуйте!

в этом случае я картинку 800 на 600 загружал, знаете как получается. Со второго раза получается т.е. если написать вот так:
for i := 0 to 1 do begin
BitBlt(bmp2.Canvas.Handle, 0, 0, 102, 17, bmp.Canvas.Handle, 13, 300, SRCCOPY);
end;

вот так все прекрасно) Дурь, бред и чушь конечно, но факт

[ivt22]

Вот код, который я пишу. Необходимо при выполнении условий обрезать кусочек от картинки. Если вручную вводить все картинки по порядку от 1.PNG до 6.PNG то все работает, но вот если заключить в цикл, как я сделал, то почему-то обрезается только первая картинка, а с остальными пятью ничего не происходит((

var lColor: TColor;
    i, j, z: integer;
    image: TPngImage;
    bmp, bmp2: TBitmap;
begin
  bmp :=  TBitmap.Create;
  bmp2  :=  TBitmap.Create;
  image := TPngimage.Create;
  //bmp.LoadFromFile('D:\2.bmp');

  for z := 1 to 6 do begin //Цикл для обрезки всех шести картинок

      i:=0;
      image.LoadFromFile('D:\TESTCOPYRECT\'+IntToStr(z)+'.PNG');

      while (lcolor <> $00202020) and (lcolor <> clBlack) and (i <> 60) do begin
        lColor := image.Canvas.Pixels[i, 9];
        memo1.Lines.Add(IntToSTr(i)+') '+ColorToString(lColor));
        i := i + 1;
      end;

      bmp.Assign(image);

      for j := 0 to 1 do begin
        BitBlt(bmp2.Canvas.Handle, 0, 0, 102-i, 17, bmp.Canvas.Handle, i+4, 0, SRCCOPY);
        bmp2.Width:=102-i-4; // уменьшаем его размеры width
        bmp2.Height:=17;
        image.Assign(bmp2);
        image.SaveToFile('D:\TESTCOPYRECT\'+IntToStr(z)+'z.PNG');
      end;

      memo1.Lines.Clear;
      showmessage(IntToStr(z));

  end;
  image1.Picture.Assign(image);

[Serge_Bliznykov]

не знаю, при исходной картинке достаточно большого размера у меня всё с первого раза сработало:

procedure TForm1.Button1Click(Sender: TObject);
var
 W,H,i,j: Integer;
  bmp, bmp2: TBitmap;

begin

  bmp :=  TBitmap.Create;
  bmp2  :=  TBitmap.Create;
  bmp.loadfromfile('D:\test2.bmp');// другая картинка 102 на 17

  W := 82;
  H := 17;
  bmp2.Width:=W;
  bmp2.Height:=H;
  BitBlt(bmp2.Canvas.Handle, 0, 0, W, H, bmp.Canvas.Handle, 13, 300, SRCCOPY);
  bmp2.SaveToFile('D:\TESTCOPYRECT\17.bmp');

end;

предоставить пруф?!

[ivt22]

Что такое ПРУФ?

[Serge_Bliznykov]

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

Вот код, который я пишу. Необходимо при выполнении условий обрезать кусочек от картинки. Если вручную вводить все картинки по порядку от 1.PNG до 6.PNG то все работает, но вот если заключить в цикл, как я сделал, то почему-то обрезается только первая картинка, а с остальными пятью ничего не происходит((

var lColor: TColor;
    i, j, z: integer;
    image: TPngImage;
    bmp, bmp2: TBitmap;
begin
  bmp :=  TBitmap.Create;
  bmp2  :=  TBitmap.Create;
  image := TPngimage.Create;
  //bmp.LoadFromFile('D:\2.bmp');

  for z := 1 to 6 do begin //Цикл для обрезки всех шести картинок

      i:=0;
      image.LoadFromFile('D:\TESTCOPYRECT\'+IntToStr(z)+'.PNG');

      {нужно ОБЯЗАТЕЛЬНО иницилизировать lColor перед использованием!!!
         например, так:}
      lColor := image.Canvas.Pixels[0, 9];

      while (lcolor <> $00202020) and (lcolor <> clBlack) and (i <> 60) do begin
        lColor := image.Canvas.Pixels[i, 9];
        memo1.Lines.Add(IntToSTr(i)+') '+ColorToString(lColor));
        i := i + 1;
      end;

....

p.s.

Что такое ПРУФ?

proof - доказательство/подтверждение...