Optimizar un archivo Jpeg

[seoane]

Los archivos Jpeg ademas de la propia imagen contienen informacion extra añadida por algunos programas (comentarios, tipo de camara, thumbnails, etc) que engordan el archivo pero que no son necesarios para ver la imagen.

En este truco vamos a eliminar todas esa informacion extra y dejar el archivo lo mas pequeño posible si modificar en nada la calidad de la imagen.


procedure Limpiar(Origen, Destino: TStream);
var
Buffer: array[0..$FFFF] of Char;
Header: array[1..4] of byte;
Size: Integer;
begin
Origen.Seek(0,soFromBeginning);
Origen.ReadBuffer(Header,2);
if (Header[1] <> $FF) or (Header[2] <> $D8) then
raise Exception.Create('Identificador incorrecto');
Destino.WriteBuffer(Header,2);
repeat
Origen.ReadBuffer(Header,4);
Size:= ((Header[3] shl 8) + Header[4]) - 2;
case Header[2] of
// $FE: Origen.Seek(Size,soFromCurrent);
$FE, $E0..$EF: Origen.Seek(Size,soFromCurrent);
$01,$D0..$D9: begin
Destino.WriteBuffer(Header,2);
Origen.Seek(-2,soFromCurrent)
end
else
begin
Origen.ReadBuffer(Buffer,Size);
Destino.WriteBuffer(Header,4);
Destino.WriteBuffer(Buffer,Size);
end;
end;
until Header[2] = $DA;
Destino.CopyFrom(Origen,Origen.Size - Origen.Position);
end;


Ejemplo de uso (Se utiiza un TOpenDialog):


var
Origen, Destino: TFileStream;
begin
if OpenDialog1.Execute then
begin
Origen:= TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
try
Destino:= TFileStream.Create(ChangeFileExt(OpenDialog1.FileName,'_b.jpg'),fmCreate);
try
Limpiar(Origen,Destino);
finally
Destino.Free;
end;
finally
Origen.Free;
end;
end;
end;