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
03-03-2005
Modo Hilado