Как перевернуть изображение по часовой стрелке

[John_chek]

Здравствуйте! Есть такая задача: в определенную папку скидываются фотографии удостоверений сотрудников УВД, сфотографированны он по разному(т.е.е в одном случае фотоаппарат держат по ширине, в другом по высоте). Нужно что-то придумать, чтобы можно было хотябы перевернуть их все по ширине. Единственный признак для этого является то, что всегда высота меньше ширины(в пикселях)! Ну если кто понял о чем я помогите плиз!???
Соответственно это нужно делать автоматически, чтобы прога смотрела, если высота > ширины, тогда повернуть по часовой стрелке.

[itisiam]

я знаю как перевернуть, а вот в новый файл сохранять не пробовал, хотя не сложно вроде.
1.формат BMP или какой там?
2.надо уже имеющиеся изменять или новые формировать (перевернутые)

[mutabor]

Повернуть на 90° не сложно. Считываешь пиксели из одного битмапа по горизонтали и заполняшь другой по вертикали. Сохранить в файл есть метод SaveToFile. Если исходный формат Jpeg то перед поворотом его нужно преобразовать в bmp, метод Assign. Хотя может и не надо, мы же пиксели только считывать будем. Битмап с уже повернутым изображением, чтобы сохранить в jpeg сначала тем же Assign конвертируем в Jpeg Затем сохраняем SaveToFile.

Кода здесь не много, но он зависит от исходного формата и действий с файлами (заменять не заменять), поэтому не пишу.

[Virtson]

дано Tbitmap, поверните ..

[konkurent]

гм....а в чём возникает проблема?

[Virtson]

в эффективном повороте .. и на любое целое число градусов
(расширяем задачу)

конкурс, если хотите

[konkurent]

ну если уж конкурс, тогда где призовой фонд?
бум поворачивать ;-)

[Sergey_nl]

Пример кода, поворачивающего изображение на произвольный угол:

procedure TForm1.Button5Click(Sender: TObject);
var
  bm, bm1: TBitMap;
  x, y: integer;
  r, a: single;
  xo, yo: integer;
  s, c: extended;
begin
  bm := TBitMap.Create;
  bm.LoadFromFile('test.bmp');
  xo := bm.Width div 2;
  yo := bm.Height div 2;
  bm1 := TBitMap.Create;
  bm1.Width := bm.Width;
  bm1.Height := bm.Height;
  Image1.Canvas.Draw(xo, yo, bm1);
  a := 0;
  repeat
    for y := 0 to bm.Height - 1 do begin
      for x := 0 to bm.Width - 1 do begin
        r := sqrt(sqr(x - xo) + sqr(y - yo));
        SinCos(a + arctan2((y - yo), (x - xo)), s, c);
        bm1.Canvas.Pixels[x,y] := bm.Canvas.Pixels[
          round(xo + r * c), round(yo + r * s)];
      end;
      Application.ProcessMessages;
    end;
    Image1.Canvas.Draw(xo, yo, bm1);
    a := a + 0.05;
    Application.ProcessMessages;
  until Form1.Tag <> 0;
  bm.Destroy;
  bm1.Destroy;
end;

Взято отсюда:
http://delphi-faq.zoxt.net/517.htm