7 replies to this topic

[escafandra]

Aunque ya se ha publicado código en el foro para realizar las rotaciones de una imagen, quiero añadir esta eficiente forma de conseguirlo usando la API GDI plus. Para compatibilizar con versiones antiguas de delphi y Builder, voy a usar la GDI+ flat API.

El corazón del sistema está en la API GdipRotateWorldTransform y para conseguir el punto del centro de rotación, la API GdipTranslateWorldTransform.

La función que presento, rota una imagen sobre un punto de rotación elegido y un determinado número de grados. Recibe como parámetro la imagen en un HDC (Canvas.Handle) y devuelve un HBITMAP.

Como de costumbre daré las versiones delphi y C/C++ del mismo código:
 

delphi

// GDI+ Flat API...
function  GdiplusStartup(var GdiToken: DWORD; Startup, Output: PBYTE): Cardinal; stdcall external 'gdiplus';
procedure GdiplusShutdown(GdiToken: DWORD); stdcall external 'gdiplus';
function  GdipCreateBitmapFromHBITMAP(hbm: HBITMAP; hpal: HPALETTE; var GBitmap: THANDLE): Cardinal; stdcall external 'gdiplus';
function  GdipDisposeImage(image: THANDLE): Cardinal; stdcall external 'gdiplus';
function  GdipCreateFromHDC(DC: HDC; var Graphics: Pointer): Cardinal; stdcall external 'gdiplus';
function  GdipRotateWorldTransform(graphics: Pointer; angle: Single; order: Cardinal): Cardinal; stdcall external 'gdiplus';
function  GdipTranslateWorldTransform(graphics: Pointer; sx, sy: Single; order: Cardinal): Cardinal; stdcall external 'gdiplus';
function  GdipDrawImage(graphics: Pointer; image: THANDLE; sx, sy: Single): Cardinal; stdcall external 'gdiplus';
function  GdipDeleteGraphics(graphics: Pointer): Cardinal; stdcall external 'gdiplus';
 
 
function RotateDC(DC: HDC; x, y, Angle: Single): HBITMAP;
var
  Bitmap: HBITMAP;
  GBitmap: THANDLE;
  Graphics: Pointer;
  BitmapData: TagBITMAP;
  Rect: TRect;
begin
  Bitmap:= GetCurrentObject(DC, OBJ_BITMAP);
  GetObject(Bitmap, sizeof(TagBITMAP), @BitmapData);
  Rect.Left:= 0; Rect.Right:= BitmapData.bmWidth; Rect.Top:= 0; Rect.Bottom:= BitmapData.bmHeight;
  GdipCreateBitmapFromHBITMAP(Bitmap, 0, GBitmap);
  FillRect(DC, Rect, 0);
  GdipCreateFromHDC(DC, Graphics);
  GdipTranslateWorldTransform(Graphics, -x, -y, 0);
  GdipRotateWorldTransform(Graphics, Angle, 1);
  GdipTranslateWorldTransform(Graphics, x, y, 1);
  GdipDrawImage(Graphics, GBitmap, 0, 0);
  GdipDisposeImage(GBitmap);
  GdipDeleteGraphics(Graphics);
  Result:= GetCurrentObject(DC, OBJ_BITMAP);
end;

Un ejemplo de uso:

delphi

var
  gdiplusToken: DWORD;
  GdiPlusStartupInput: array[0..1] of int64;
begin
  // Inicializamos GDI+.
  GdiPlusStartupInput[0]:= 1; GdiPlusStartupInput[1]:= 0;
  if GdiplusStartup(gdiplusToken, @GdiPlusStartupInput, nil) <> 0 then exit;
 
 
  RotateDC(Image1.Picture.Bitmap.Canvas.Handle, Image1.Picture.Width/2, Image1.Picture.Height/2, 45);
  Image1.Invalidate;
 
  // Shutdown GDI+
  GdiplusShutdown(gdiplusToken);
end;

Espero que sea de utilidad.


Saludos.

[escafandra]

Ahora le toca a C/C++.

La explicación es como la versión de delphi. La función rota una imagen sobre un punto de rotación elegido y un determinado número de grados. Recibe como parámetro la imagen en un HDC (Canvas.Handle) y devuelve un HBITMAP.

cpp

#pragma link "Gdiplus.lib" // poner la ruta dentro de las libreriras
//---------------------------------------------------------------------------
 
 
// GDI+ Flat API...
extern "C" {
DWORD WINAPI GdiplusStartup(ULONG_PTR *hToken, void *input, void *Output);
void  WINAPI GdiplusShutdown(ULONG_PTR token);
DWORD WINAPI GdipCreateBitmapFromHBITMAP(HBITMAP hBmp, HPALETTE hPal, HANDLE* GBitmap);
DWORD WINAPI GdipCreateHBITMAPFromBitmap(HANDLE Bmp, HBITMAP* hBmp, DWORD BKColor);
DWORD WINAPI GdipCreateFromHDC(HDC hDC, HANDLE* hGraphics);
DWORD WINAPI GdipDisposeImage(HANDLE hImage);
DWORD WINAPI GdipTranslateWorldTransform(HANDLE hGraphics, float sx, float sy, DWORD Order);
DWORD WINAPI GdipRotateWorldTransform(HANDLE hGraphics, float Angle, DWORD Order);
DWORD WINAPI GdipDrawImage(HANDLE hGraphics, HANDLE hImage, float sx, float sy);
DWORD WINAPI GdipDeleteGraphics(HANDLE hGraphics);
 
DWORD WINAPI GdipImageRotateFlip(HANDLE hImage, DWORD rfType);
}
 
 
HBITMAP RotateDC(HDC hDC, float x, float y, float Angle)
{
  HBITMAP Bitmap;
  HANDLE GBitmap;
  HANDLE Graphics;
  BITMAP BitmapData;
  RECT  Rect;
 
  Bitmap = GetCurrentObject(hDC, OBJ_BITMAP);
  GetObject(Bitmap, sizeof(BITMAP), &BitmapData);
  Rect.left = 0; Rect.right = BitmapData.bmWidth; Rect.top = 0; Rect.bottom = BitmapData.bmHeight;
  GdipCreateBitmapFromHBITMAP(Bitmap, 0, &GBitmap);
  FillRect(hDC, &Rect, 0);
  GdipCreateFromHDC(hDC, &Graphics);
  GdipTranslateWorldTransform(Graphics, -x, -y, 0);
  GdipRotateWorldTransform(Graphics, Angle, 1);
  GdipTranslateWorldTransform(Graphics, x, y, 1);
  GdipDrawImage(Graphics, GBitmap, 0, 0);
  GdipDisposeImage(GBitmap);
  GdipDeleteGraphics(Graphics);
  return GetCurrentObject(hDC, OBJ_BITMAP);
}

Ejemplo de uso:

cpp

  // Initialize GDI+.
  __int64 gdiplusStartupInput[2];
  ULONG_PTR  gdiplusToken;
  gdiplusStartupInput[0] = 1; gdiplusStartupInput[1] = 0;
  if(GdiplusStartup(&gdiplusToken, &gdiplusStartupInput, NULL)) return;
 
  RotateDC(Image1->Picture->Bitmap->Canvas->Handle, Image1->Picture->Width/2, Image1->Picture->Height/2, 45);
  Image1->Invalidate();
 
  //shutdown GDI+
  GdiplusShutdown(gdiplusToken);

Espero que sea de utilidad.


Saludos.

[enecumene]

Hola amigo Escafandra, ahora mismo estoy en necesidad de rotar imágenes en mi aplicación, antes de utilizar el wrapper IGDI+ de Mitov, me gustaría utilizar tus funciones, tengo una duda, al hacer las rotaciones de la imagen, ¿la misma se actualiza en el archivo en sí?, ó es sólo de manera de visualización?.

 

Saludos.

[enecumene]

Acabo de probarlo y no me funcionó, la imagen está en un TcxImage de DevExpress, sólo queda en blanco y no rota, ¿ó hay algo que estoy omitiendo?

[escafandra]

Hola amigo Escafandra, ahora mismo estoy en necesidad de rotar imágenes en mi aplicación, antes de utilizar el wrapper IGDI+ de Mitov, me gustaría utilizar tus funciones, tengo una duda, al hacer las rotaciones de la imagen, ¿la misma se actualiza en el archivo en sí?, ó es sólo de manera de visualización?.

 

Saludos.

 

La función rota el HBITMAP que tiene un hDC (Canvas.Handle) y lo devuelve, aunque no es necesario hacer nada con él para verlo rotado.

 

Acabo de probarlo y no me funcionó, la imagen está en un TcxImage de DevExpress, sólo queda en blanco y no rota, ¿ó hay algo que estoy omitiendo?

 

No he probado TcxImage por lo que no se que decirte al respecto. Lo importante es pasar como parámetro el hDC (handle to a device context) que en delphi el Canvas.Handle que se está visualizando. Aquí es donde puede estar el fallo. No conviene rotar de nuevo esa imagen ya rotada porque va perdiendo calidad, en su lugar, es mejor guardar una copia del original y rotarla los grados añadidos que queramos. De esta forma obtenemos un efecto de rotación continua y sin perdida de calidad de la imagen, como en el ejemplo visual que muestro y que es el truco de este efecto de la clase TPelota que publiqué hace un par de años:

 

 

 

 

Saludos.

[enecumene]

Vale, gracias por la aclaración amigo escafandra, en lo que el hacha iba y venía estuve hurgando la Unidad cxGraphic de DevExpress (Que es lo que estoy utilizando), para mi sorpresa encontré que tiene otra unidad que maneja GDIPlus, dentro de la Unidad cxGraphic hay una clase TAlphaBitmap si mal no recuerdo, en ella hay un método Rotate que hace uso de la función RotateFlip de GDIPlus, y me ha funcionado perfecto..

 

Saludos.

[escafandra]

GdipImageRotateFlip está diseñada para rotaciones con ángulo múltiplo de 90 y especulares. Aquí expuse la forma de usarla en el caso de sistemas que no la aporten: FlipImage. En el caso de querer rotaciones más precisas, debes usar GdipRotateWorldTransform, que es la que se describe en este tema.

 

Por lo que entiendo, con un RotateFip tienes resuelto el problema 

 

Saludos.

[enecumene]

Rayos, no he buscado bien..gracias por recordar el tema de FlipImage.