Modificación del Truco 467

[[cHackAll]]

Una de mis principales frustraciones antes de escribir dicho truco era mi incapacidad de reconocer formatos estándares que para Delphi no lo eran así (png, gif, jpeg, etc.) y con mi clásico desacuerdo al uso de componentes debía encontrar una solución. Una vez probada la interfaz IExtractImage noté que también podía crear vistas en miniatura de una amplia gama de formatos no gráficos a una velocidad considerablemente superior a otras pruebas realizadas, el problema que describes me pareció algo secundario y obviamente lo deje pasar.

Ahora no tengo en mente alguna propiedad de alguna interfaz que pueda ser de utilidad para el caso, pero suponiendo que estas utilizando las vistas en miniatura en tu proyecto de gráficos te doy una alternativa igualmente nativa; prueba el siguiente código utilizando ésta unidad y me cuentas

Código Delphi [-]
...
 
uses Viewer;
 
{$r *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var Image: TBitmap;
begin
 Image := GetImage('ClubDelphi.png'{, Tamaño del Thumbnail [opcional]}{, Color de fondo [opcional]});
 if Assigned(Image) then
  begin
   Image1.Picture.Assign(Image);
   Image.Destroy;
  end;
end;

Notarás que no necesitamos Delphi2009 o un montón de componentes para reconocer un buen numero de formatos de imágenes

Saludos