Cita:
Empezado por noob
¿No se soporta de manera nativa?
|
Como te indica
Casimiro Notevi delphi no lo soporta de forma nativa pero Windows si con el
GDI+.
Cita:
Empezado por noob
¿Me podrían orientar en cómo podría instalar el PngImage?
|
Pega ese código en un fichero de texto llamado PngImage.pas y lo incluyes en tu proyecto.
Hace unos meses publiqué
aquí una función para crear un HBITMAP desde un archivo soportando varios formatos, incluido el png. El código usa exclusivamente la API y está en C++ y Delphi. Con un HBITMAP se puede cargar la imagen en un TImage con suma facilidad.
La ventaja de ese código es que soporta mas formatos que el npg, al menos BMP, GIF, JPEG, PNG y TIFF. El número y tipo de formatos de pende de Windows.
Transcribo el código en delphi:
Código Delphi
[-]function GdiplusStartup(var GdiToken: DWORD; Startup, Output: PBYTE): DWORD; stdcall external 'gdiplus';
function GdipCreateBitmapFromFile(lpFileName: PWCHAR; var GBitmap: THANDLE): DWORD; stdcall external 'gdiplus';
function GdipCreateHBITMAPFromBitmap(GBitmap: THANDLE; var hBitmap: HBITMAP; BKColor: DWORD): DWORD; stdcall external 'gdiplus';
procedure GdiplusShutdown(GdiToken: DWORD); stdcall external 'gdiplus';
function CreateHBITMAPFromFile(cFileName: PCHAR): HBITMAP;
var
FileName: array of WCHAR;
size: integer;
gdiplusToken: DWORD;
GdiPlusStartupInput: array[0..2] of int64;
GBitmap: THANDLE;
begin
Result:= 0;
SetLength(FileName, lstrlen(cFileName)+1);
size:= lstrlen(cFileName)*sizeof(WCHAR)+1;
MultiByteToWideChar(CP_ACP, 0, cFileName, -1, @FileName[0], size);
GdiPlusStartupInput[0]:= 1; GdiPlusStartupInput[1]:= 0;
if GdiplusStartup(gdiplusToken, @GdiPlusStartupInput, nil) = 0 then
begin
GdipCreateBitmapFromFile(PWCHAR(FileName), GBitmap);
GdipCreateHBITMAPFromBitmap(GBitmap, Result, 0);
GdiplusShutdown(gdiplusToken);
end;
end;
Un ejemplo de uso para cargar una imagen.png en un TImage:
Código Delphi
[-]Image1.Picture.Bitmap.Handle:= CreateHBITMAPFromFile('Image.png');
Espero te sea de utilidad.
Saludos.