Girar Jpeg

Delphi

07/08/2003

Olá pessoal,

Alguém conhece algum componente ou tem alguma idéia de como girar uma imagem jpg ?
OBS: Sei como fazer como bmp.

Obrigado,


José Paz

José Paz

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

07/08/2003

var
  BMP : TBitmap;
begin
BMP := TBitMap.Create;
try
  BMP.Asign(Seu JPG);
  //e faça o esquema de girar o Bitmap com o BMP
finally
  BMP.Free;
end;
end;


Você deve estar usar o canvas para fazer o Bitmap girar, mas não tem como acessar o canvas do JPG, então, transforme ela em um BM.
Se quiser girar e transformar devolta em JPG, faça [color=green:91d1a6b898]Seu_JPG.Assign(BMP);[/color:91d1a6b898]


GOSTEI 0
José Paz

José Paz

07/08/2003

Obrigado amigo ! Vc sabe como fazer para melhorar a velocidade desta operação?

Grato,


[quote:6ad0f2cf1c=´Marcelo Saviski´]
var
  BMP : TBitmap;
begin
BMP := TBitMap.Create;
try
  BMP.Asign(Seu JPG);
  //e faça o esquema de girar o Bitmap com o BMP
finally
  BMP.Free;
end;
end;


Você deve estar usar o canvas para fazer o Bitmap girar, mas não tem como acessar o canvas do JPG, então, transforme ela em um BM.
Se quiser girar e transformar devolta em JPG, faça [color=green:6ad0f2cf1c]Seu_JPG.Assign(BMP);[/color:6ad0f2cf1c][/quote:6ad0f2cf1c]


GOSTEI 0
POSTAR