Compresion de un jpg

[ramonibk]

aver si entiendo lo que quieres.

es que en la visualizacion de la imagen esta te salga del tamaño que tu quieres sim perder la nitidez. es eso???


Bueno te pongo el codigo que yo uso para ver imagenes aver si te sirve

procedure CargaJPGProporcionado( Fichero: string; const QueImage: TImage);
var
ElJPG		: TJpegImage;
Rectangulo : TRect;
EscalaX,
EscalaY,
Escala	 : Single;
begin
ElJPG:=TJPegImage.Create;
try
ElJPG.LoadFromFile( Fichero );
//Por defecto, escala 1:1
EscalaX := 1.0;
EscalaY := 1.0;
//Hallamos la escala de reducción Horizontal
if QueImage.Width < ElJPG.Width then
	EscalaX := QueImage.Width / ElJPG.Width;
//La escala vertical
if QueImage.Height < ElJPG.Height then
		EscalaY := QueImage.Height / ElJPG.Height;
//Escogemos la menor de las 2
if EscalaY < EscalaX then Escala:=EscalaY else Escala:=EscalaX;
//Y la usamos para reducir el rectangulo destino
with Rectangulo do begin
	Right:=Trunc(ElJPG.Width * Escala);
	Bottom:=Trunc(ElJPG.Height * Escala);
	Left:=0;
	Top:=0;
	end;
//Dibujamos el bitmap con el nuevo tamaño en el TImage destino
with QueImage.Picture.Bitmap do begin
Width := Rectangulo.Right;
Height := Rectangulo.Bottom;
Canvas.StretchDraw( Rectangulo,ElJPG );
End;
finally
ElJPG.Free;
end;

Bueno se me olvido decir que esto lo tome de Trucomania http://www.q3.nu/
a los cual les doy las gracias
Espero que te sea util