Ver Mensaje Individual
  #9  
Antiguo 15-09-2014
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
elistraus,

Cita:
Empezado por elistraus
...He puesto la carpeta completa en Lib y le he agregado el path de nombre delphiSource...parece que a lo mejor me falta algo...no me carga el soporte a png...


Te sugiero, no colocar ningún componente o librería dentro del directorio de Delphi en 'C:\Program Files', una mejor opción es crear un directorio de componentes y librerías específicamente para dichos casos, por ejemplo : 'C:\DelphiAddOns'

Revisa este código:
Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtDlgs, StdCtrls,
  PNGLoader, LinarBitmap, ExtCtrls, FileUtils;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Inicializa la aplicación
procedure TForm1.FormCreate(Sender: TObject);
begin
   Image1.Stretch := True;
   Caption := 'Test ImageFileLib';
end;

// Permite cargar y visualizar imágenes PNG en un componente TImage
procedure TForm1.Button1Click(Sender: TObject);
begin
   OpenPictureDialog1.Filter := 'All images PNG | *.png' + BitmapLoaders.GetLoadFilter;
   if OpenPictureDialog1.Execute then
   with TLinearBitmap.Create do
   try
      Image1.Picture := nil;
      LoadFromFile(OpenPictureDialog1.FileName);
      AssignTo(Image1.Picture.Bitmap);
      Caption := 'Test ImageFileLib : ' + OpenPictureDialog1.FileName;
   finally
      Free;
   end;
end;

end.
El código anterior en Delphi 7 bajo Windows 7 Professional x32, permite cargar y visualizar imágenes PNG en el componente TImage por medio de la librería ImageFileLib, como se muestra en las siguientes imágenes:





Nota: Te sugiero revisar la carpeta Demo que viene con la librería ImageFileLib, la cual trae un ejemplo que permite cargar y visualizar diferentes formatos de imágenes, por medio de sus unidades especializadas : ICOLoader, JPEGLoader, PNGLoader, HIPSLoader, BMPLoader, PCXLoader, WMFLoader.

Espero sea útil

Nelson.

Última edición por nlsgarcia fecha: 15-09-2014 a las 07:42:05.
Responder Con Cita