[BProg]

Доброго времени суток!
Подскажите, пожалуйста, с такой темой. Мне нужно повернуть битмап на 90 градусов. Ниже код, работает на размерах картинки 1275*1740 и несколько больше, а вот на 2550*3480 уже нет, на выходе пустой лист. Неважно цветная ли, ч/б или с оттенками серого. Белый лист, а для ч/б - черный и все. Хотел в аттач два скана разных размеров кинуть, но тяжелые даже в архиве.
Помогите, понять что делаю не верно.
Спасибо.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

procedure TForm2.Button1Click(Sender: TObject); var   tmpBMP, BMP: TBitmap;   XForm: TXForm;   C, S: Single;   angle: Extended;   errorCode: Integer;   error: string;   i:Integer; begin for i := 1 to 2 do  begin   angle:=0.5*pi;   if Sender=Button1 then     angle:=-angle;     BMP:=TBitmap.Create;   BMP.LoadFromFile('D:\Scan'+IntToStr(i)+'.bmp');     C := Cos(angle);   S := Sin(angle);   XForm.eM11 := C;   XForm.eM12 := S;   XForm.eM21 := -S;   XForm.eM22 := C;   XForm.eDx :=(Bmp.Height - Bmp.Width * C + Bmp.Height * S) / 2;   XForm.eDy :=(Bmp.Width - Bmp.Width * S - Bmp.Height * C) / 2;     tmpBMP:=TBitmap.Create;   tmpBMP.Width:=BMP.Height;   tmpBMP.Height:=BMP.Width;     SetStretchBltMode(tmpBMP.Canvas.Handle, STRETCH_HALFTONE);   SetGraphicsMode(tmpBMP.Canvas.Handle, GM_ADVANCED);   SetWorldTransform(tmpBMP.Canvas.Handle, XForm);   if BitBlt(tmpBMP.Canvas.Handle, 0, 0, tmpBMP.Height, tmpBMP.Width, BMP.Canvas.Handle,       0, 0, SRCCOPY) then    begin      tmpBMP.SaveToFile('D:\ScanRotated'+IntToStr(i)+'.bmp');    end      else        begin          errorCode:=GetLastError;          error:='Не удалось выполнить поворот страницы';          if errorCode<>0 then            error:=error+': '+SysErrorMessage(errorCode);          MessageBox(Self.Handle, PChar(error),'Ошибка',MB_OK or MB_ICONWARNING);        end;  tmpBMP.Free;  BMP.Free;  end; end;

[Alegun]

А что если так попробовать?

[BProg]

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

А что если так попробовать?

Поворачивает, но адово размер файла увеличивает, в 4 раза. Глубина цвета не учитывается, было 8, стало 32. И все-таки хочется понять почему мой поворачивает маленькие файлы, а большие - нет. Пороюсь в исходнике этом, спасибо.

[Alegun]

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

Поворачивает, но адово размер файла увеличивает, в 4 раза...

Похоже нужно перед сохранением уже повёрнутого изображения ещё и задать формат глубины, примерно так

Код:

1	RotatedBitmap.PixelFormat:= pf24bit { или pf8bit};

т.к. он по-умолчанию 32х битный

[BProg]

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

Похоже нужно перед сохранением уже повёрнутого изображения ещё и задать формат глубины, примерно так

Код:

т.к. он по-умолчанию 32х битный

Ну в общем работает, взял нужную часть себе, спасибо Вам и заморскому автору
Интересно бы конечно понять что так ломает функцию апи

[AlexSku]

Зачем вы считаете синус и косинус 90 градусов? Ведь это 1 и 0.

[icWasya]

И все-таки хочется понять почему мой поворачивает маленькие файлы, а большие - нет.

Еслине задать PixelFormat, то битмап создаётся в совместимом формате, и не может быть намного больше экрана.
То есть сразу после TBitmap.Create задайте PixelFormat, а только потом - размеры.

[BProg]

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

Еслине задать PixelFormat, то битмап создаётся в совместимом формате, и не может быть намного больше экрана.
То есть сразу после TBitmap.Create задайте PixelFormat, а только потом - размеры.

Не понял. Что значит намного больше, на сколько?
Но проблема осталась, присвоил приемнику PixelFormat источника.
Спасибо

[BProg]

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

Похоже нужно перед сохранением уже повёрнутого изображения ещё и задать формат глубины, примерно так

Код:

т.к. он по-умолчанию 32х битный

Здесь тоже оказалось не все гладко. При формате pf1bit часто не корректно обрабатывает, то черный весь, то белый. Не мог понять откуда это растет и решил написать перекодирование с 32-х бит на 1. Теперь работает, по крайней мере с нужными мне форматами (24, 8, 1). Всем спасибо за помощь