Нужен пример с CopyRect или bitbln

[Nub]

А может кто-нибудь показать какой-нибудь пример, открывающий допустим c:\Image.jpg, вырезающий прямоугольник по 4 координатам и сохраняющий его в c:\Image2.jpg. Что-то гугл ничего не даёт

[DomiNick]

Именно для Делфи а не на апи? Просто для облегчения задачи есть удобные (хоть и немного неуклюжие) классы VCL - TBitmap и TJPEGImage....
И обычно указывают не 4 координаты, а 2 - левый верхний угол прямоугольника и правый нижний...

Uses JPEG;

...

Procedure TForm1.Button1Click(Sender: TObject);
Var L, T, W, H: Integer; bmp: TBitmap; jpg: TJPEGImage;
Begin
L:=StrToInt(Edit1.Text); // координата X первой точки
T:=StrToInt(Edit2.Text); // координата Y первой точки
W:=StrToInt(Edit3.Text); // координата X второй точки
H:=StrToInt(Edit4.Text); // координата Y второй точки
// координаты не могут быть отрицательными:
If (L<0) Then
      L:=0;
If (T<0) Then
      T:=0;
If (W<0) Then
      W:=0;
If (H<0) Then
      H:=0;
If (L<>W) And (Abs(T-H)>1) Then // проверка не является ли прямоугольник "пустым" (с площадью равной нулю) -- вообще должно быть "And (T<>H)", но в моём модуле JPEG кажется какой-то баг с этим
      Begin
      bmp:=TBitmap.Create; // создаём экземпляр класса TBitmap
      jpg:=TJPEGImage.Create; // создаём экземпляр класса TJPEGImage
      jpg.LoadFromFile('C:\Image.jpg'); // загружаем изображение из jpg-файла
      bmp.Assign(jpg); // конвертируем jpg в bmp (VCL'ские классы сами сделают необходимые преобразования)
      // а вдруг точки перепутали - не левый верхний и правый нижний угол, а как-то по-другому? на всякий случай проверим:
      If L>W Then
            Begin // алгоритм меняющий "местами" значения двух переменных:
            L:=L XOr W;
            W:=L XOr W;
            L:=L XOr W;
            End;
      If T>H Then
            Begin // алгоритм меняющий "местами" значения двух переменных:
            T:=T XOr H;
            H:=T XOr H;
            T:=T XOr H;
            End;
      // а вдруг точки находится за пределами изображения? тоже проверим:
      If (W>=jpg.Width) Then
            W:=jpg.Width-1;
      If (H>=jpg.Height) Then
            H:=jpg.Height-1;
      If (L<W) And (T<H-1) Then // а тут из-за той же баги пришлось дописать "-1"
            Begin
            W:=W-L; // теперь тут не "координата X правого нижнего угла", а ширина прямоугольника
            H:=H-T; // а тут не "координата Y правого нижнего угла", а висота прямоугольника
            BitBlt(bmp.Canvas.Handle, 0, 0, W, H, bmp.Canvas.Handle, L, T, SRCCOPY); // копируем заданную область в левый верхний угол битмапа
            bmp.Width:=W; // уменьшаем его размеры width
            bmp.Height:=H; // и height до размеров заданной области
            jpg.Assign(bmp); // конвертируем обратно в jpg
            jpg.CompressionQuality:=100; // наилучшее качество (максимально возможное с использованием модуля JPEG) - можно задавать в пределах от 1 до 100
            jpg.Compress; // сожмём jpg кодеком
            jpg.SaveToFile('C:\Image2.jpg'); // сохраняем на диск
            End
      Else
            ShowMessage('Неправильно задан прямоугольник!');
      bmp.Free; // очищаем память от уже не нужного экземпляра класса
      jpg.Free; // очищаем память от уже не нужного экземпляра класса
      End
Else
      ShowMessage('Неправильно задан прямоугольник!');
End;

Уфф... Вроде так, вроде ничё не перепутал...

[Nub]

Отлично! Огромное спасибо. Двое суток лопачу форумы. Пробовал и с CopyRect и с BitBln - ничего не получалось. Ещё раз спасибо за пример