Cargar png en Delphi 6

[[escafandra]]

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+.

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;
 
  // Pasamos a Unicode
  SetLength(FileName, lstrlen(cFileName)+1);
  size:= lstrlen(cFileName)*sizeof(WCHAR)+1;
  MultiByteToWideChar(CP_ACP, 0, cFileName, -1, @FileName[0], size);
  
  // Inicializamos GDI+.
  GdiPlusStartupInput[0]:= 1; GdiPlusStartupInput[1]:= 0;
  if GdiplusStartup(gdiplusToken, @GdiPlusStartupInput, nil) = 0 then
  begin
    GdipCreateBitmapFromFile(PWCHAR(FileName), GBitmap);
    GdipCreateHBITMAPFromBitmap(GBitmap, Result, 0);
 
    // Cerramos GDI+
    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.