7 replies to this topic

[Caral]

Hola
Muy interesante Jose.
Tengo algo parecido que me dio cHackAll, pero por alguna razon no camina solo pero si dentro del programa que lo tengo, seguro le falta algo.
Tal vez si pasa por aqui nos lo explica:
A la izquierda:

delphi

procedure TForm1.Button3Click(Sender: TObject);
procedure RotarAntiH(BMPOrigen, BMPDestino:TBitmap);
var
  f,c:integer;
  Ancho,Alto:integer;
  tmpBMP: TBitmap;
begin
  {Bitmap temporal}
  tmpBMP:=TBitmap.create;
  with tmpBMP do
  begin
    Width:=BMPOrigen.height;
    Height :=BMPOrigen.width;
  end;
 
  {Inicializamos los límites de los bucles}
  {Initialize loop's limits}
  Ancho:=BMPOrigen.Width-1;
  Alto :=BMPOrigen.Height-1;
 
  {Copiamos los pixels}
  {Copy the pìxels}
  for f:=0 to Alto do
  begin
    for c:=0 to Ancho do
    begin
      tmpBMP.Canvas.Pixels[f,Ancho-c]:=BMPOrigen.Canvas.Pixels[c,f];
      Application.processmessages;
    end;
 
  end;
 
  BMPDestino.Assign(tmpBMP);
  tmpBMP.Free;
end;
 
begin
  RotarAntiH(ImageHolder.Picture.Bitmap,ImageHolder.Picture.Bitmap);
end;
[/delphi]
A la Derecha:
[delphi=delphi]
procedure TForm1.Button4Click(Sender: TObject);
procedure RotarH(BMPOrigen, BMPDestino:TBitmap);
var
  f,c:integer;
  Ancho,Alto:integer;
  tmpBMP: TBitmap;
begin
  {Bitmap temporal}
  tmpBMP:=TBitmap.create;
  with tmpBMP do
  begin
    Width:=BMPOrigen.height;
    Height :=BMPOrigen.width;
  end;
 
  {Inicializamos los límites de los bucles}
  {Initialize loop's limits}
  Ancho:=BMPOrigen.Width-1;
  Alto :=BMPOrigen.Height-1;
 
  {Copiamos los pixels}
  {Copy the pìxels}
  for f:=0 to Alto do
  begin
    for c:=0 to Ancho do
    begin
      tmpBMP.Canvas.Pixels[Alto-f,c]:=BMPOrigen.Canvas.Pixels[c,f];
      Application.processmessages;
    end;
 
  end;
 
  BMPDestino.Assign(tmpBMP);
  tmpBMP.Free;
end;
 
begin
  RotarH(ImageHolder.Picture.Bitmap,ImageHolder.Picture.Bitmap);
end;

Saludos

[cHackAll]

Dado un codigo ya publicado...

delphi

function Rotate(Canvas: TCanvas; Width, Height, iAngle: Integer; Back: LongBool = False): TBitmap;
var
Points: array [0..2] of TPoint;
Radio, Angle, _Angle: Real;
begin
Points[0] := Point(-Width, Height);
Points[1] := Point(Width, Height);
Points[2] := Point(-Width, -Height);
// Points[3] := Point(Width, -Height);
Radio := Sqrt(Sqr(Width / 2) + Sqr(Height / 2));
_Angle := (360 - (iAngle mod 360)) * pi / 180;
iAngle := 3;
repeat Dec(iAngle);
  Angle := ArcTan(Points[iAngle].Y / Points[iAngle].X) + _Angle;
  if Points[iAngle].X < 0 then
   Angle := Angle + Pi;
  Points[iAngle] := Point(Round((Cos(Angle) * Radio) + Radio), Round(Radio - (Sin(Angle) * Radio)));
until not LongBool(iAngle);
 
Result := TBitmap.Create;
Result.TransparentColor := clFuchsia;
Result.Canvas.Brush.Color := clFuchsia;
iAngle := Round(Radio * 2);
Result.Height := iAngle;
Result.Width := iAngle;
plgblt(Result.Canvas.Handle, Points, Canvas.Handle, 0, 0, Width, Height, 0, 0, 0);
if Back then Result.Canvas.CopyRect(Rect(0, 0, iAngle, iAngle), Result.Canvas, Rect(iAngle-1, 0, 0, iAngle));
end;

he realizado una incrustacion del mismo en éste juego... solo bastara con analizarlo un poco y podran rotar cualquier cosa... (&)

delphi

Image1.Picture.Assign(Image2.Picture.Bitmap.Canvas, Image2.Picture.Width, Image2.Picture.Height, 66); // MemoryLeak

Saludos

[thelibmx]

Hola una disculpa si violo las normas del foro, me aparecio un mensaje que indica que ya tiene dias este tema y que tal ves lo mejor era empezar un nuevo tema... pero creo que esta un poco relacionado mi duda

Yo necesito rotar una imagen 90° a la izquierda o derecha, esta imagen esta en un timage, pero es JPG, solo he encontrado codigo para rotar con bitmap, mi pregunta es, si es necesario que tenga que convertir mi imagen jpg a bmp, o  puedo rotar la imagen jpg directamente desde el timage? agradeceria su ayuda

[cHackAll]

Hola,
Debes convertir el JPG a BMP, rotar y solo si deseas guardarlo como jpg lo vuelves a convertir a JPG.

delphi

procedure TForm1.Button1Click(Sender: TObject);
var Bitmap: TBitmap;
begin
 Bitmap := TBitmap.Create;
 Bitmap.Assign(Image1.Picture.Graphic);
 Image1.Picture.Assign(Rotate(Bitmap.Canvas, Bitmap.Width, Bitmap.Height, 90));
 Bitmap.Destroy;
end;

[thelibmx]

Gracias  cHackAll me ha servido de mucho la respuesta, y me surge otra mas, no he trabajado mucho con lo que es imagenes y canvas,yo las imagenes que utilizo son jpg con tamaño 2352x1624p(1 a 3 mb), con el codigo que hay aqui (la funcion rotate) he logrado rotar las imagenes pero despues de rotarla 3 veces me sale un mensaje de: EOutofResources with message' Espacio de almacenamiento insuficiente para procesar este comando'... voy utilizar de 2,000 a 10,000 imagenes o mas en ese proceso pues se tienen que revisar que cumplan con ciertas caracteristicas, (se que se lée que son demaciadas imagenes pero no son tantas en realidad y el proceso tampoco es de mucha complejidad...),no creo que tenga que ver con el espacio en el disco duro pues cuento con mas del 60% libre, creo que tiene que ver con liberar la memoria o la imagen pero  no he comprendido bien a que se refieren con liberar la imagen, o no se si ese mensaje tenga que ver con eso, agradeceria las pistas,asesoria o consejos que me pudieran dar con respecto a ese mensaje, Gracias de nuevo 

Les pongo las partes de codigo que ocupe que practicamente es lo mismo que ya esta aqui, pero solo para que vean como lo tengo, igual se me fue algo

delphi

function Rotate(Canvas: TCanvas; Width, Height, iAngle: Integer; Back: LongBool = False): TBitmap;
var
 Points: array [0..2] of TPoint;
 Radio, Angle, _Angle: Real;
begin
 Points[0] := Point(-Width, Height);
 Points[1] := Point(Width, Height);
 Points[2] := Point(-Width, -Height);
// Points[3] := Point(Width, -Height);
 Radio := Sqrt(Sqr(Width / 2) + Sqr(Height / 2));
 _Angle := (360 - (iAngle mod 360)) * pi / 180;
 iAngle := 3;
 repeat Dec(iAngle);
  Angle := ArcTan(Points[iAngle].Y / Points[iAngle].X) + _Angle;
  if Points[iAngle].X < 0 then
   Angle := Angle + Pi;
  Points[iAngle] := Point(Round((Cos(Angle) * Radio) + Radio), Round(Radio - (Sin(Angle) * Radio)));
 until not LongBool(iAngle);
 
 Result := TBitmap.Create;
 Result.TransparentColor := clFuchsia;
 Result.Canvas.Brush.Color := clFuchsia;
 iAngle := Round(Radio * 2);
 Result.Height := iAngle;
 Result.Width := iAngle;
 plgblt(Result.Canvas.Handle, Points, Canvas.Handle, 0, 0, Width, Height, 0, 0, 0);
 if Back then Result.Canvas.CopyRect(Rect(0, 0, iAngle, iAngle), Result.Canvas, Rect(iAngle-1, 0, 0, iAngle));
end;
/////////
procedure TForm1.Button1Click(Sender: TObject);
var Bitmap: TBitmap;
begin
 
 Bitmap := TBitmap.Create;
 Bitmap.Assign(Image1.Picture.Graphic);
 Image1.Picture.Assign(Rotate(Bitmap.Canvas, Bitmap.Width, Bitmap.Height, 90));
//Bitmap.Destroy;
 Bitmap.free;
end;
 
 
 
/////

La imagen la tengo en un timage dentro de un scrollbox1, mas o menos lo que quiero hacer es una especie de visor de imagenes de windows, que tiene para alejar,acercar, rotar a la izq, o derecha una imagen