procedure AddImage(const FileName: string; X, Y, Width, Height: Double);
| FileName | string. Ruta completa al archivo de imagen. Se acepta cualquier formato registrado con el sistema gráfico de VCL/LCL (BMP, PNG, JPG, etc.) |
procedure AddImage(Bitmap: TBitmap; X, Y, Width, Height: Double);
| Bitmap | TBitmap. Un mapa de bits precargado con PixelFormat = pf32bit. No debe ser nil; de lo contrario genera EPdfError |
AddImage coloca una imagen en la página PDF actual en la posición y con el tamaño indicados. Hay dos sobrecargas disponibles: una carga la imagen directamente desde una ruta de archivo y la otra acepta un objeto TBitmap ya construido
La sobrecarga basada en archivo usa TPicture.LoadFromFile internamente, por lo que se admite cualquier formato de imagen registrado con el sistema gráfico de VCL o LCL, incluidos BMP, PNG (mediante Vcl.Imaging.PngImage o el equivalente de LCL), JPEG y otros. Solo asegúrese de que las unidades pertinentes estén incluidas en la cláusula uses de su proyecto antes de llamar a este método
La sobrecarga de mapa de bits acepta un TBitmap con PixelFormat = pf32bit. Esto resulta útil cuando el mapa de bits ya está en memoria (por ejemplo, proveniente de un paso de renderizado fuera de pantalla) y evita un recorrido adicional por el disco o por TPicture. Pasar un mapa de bits nil genera una excepción EPdfError
Los parámetros X y Y especifican la esquina inferior izquierda del rectángulo de colocación de la imagen en unidades de usuario PDF (origen en la esquina inferior izquierda de la página, Y aumenta hacia arriba). Width y Height controlan el tamaño renderizado en la página; la imagen de origen se escala para ajustarse a estas dimensiones sin importar su resolución en píxeles
// Place a PNG file at (72, 600), rendered 200 x 150 pt on the page
Pdf1.NewPage(595, 842);
Pdf1.AddImage('C:\Images\logo.png', 72, 600, 200, 150);
// Add a pre-built 32-bit bitmap
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.PixelFormat := pf32bit;
Bmp.LoadFromFile('C:\Images\photo.bmp');
Pdf1.AddImage(Bmp, 72, 400, 300, 200);
finally
Bmp.Free;
end;
end;