Ver Mensaje Individual
  #2  
Antiguo 03-03-2005
JoseQ JoseQ is offline
Miembro
 
Registrado: jul 2004
Posts: 167
Reputación: 20
JoseQ Va por buen camino
parece que el problema es la profundidad de bits, me salen imagenes de 32bits,e intentado forzar 24 bits, xo no me ace ningun caso, con el explorador de windows la imagen que genero temporal se abre sin problemas,
Código Delphi [-]
 
ElJPG.LoadFromFile( Fichero );
ELJPG.PixelFormat:=(jf24bit);
[...]
with QueImage.Picture.Bitmap do begin
Width := Rectangulo.Right;
Height := Rectangulo.Bottom;
Canvas.StretchDraw( Rectangulo,ElJPG );
end;
queimage.Picture.SaveToFile('c:\ajustajpg.jpg');

tambien e probado en vez de forzar a ELJPG a ser 24 bits forzar el TImage(queimage) a ser 24 bits
queimage.Picture.Bitmap.PixelFormat:=(pf24bit);

xo no ai forma
Responder Con Cita