Convertir archivos de imagen BMP al formato de documento PDF

[dec]

Hola,

Aparte de lo dicho por Daniel, otra posible solución sería usar Synopse PDF engine, un conjunto de unidades para Delphi que permite crear documentos y/o reportes PDF. Para "convertir" un archivo Bitmap a un archivo PDF podría escribirse algo similar a esto:

Código Delphi [-]
{...}

uses
  // SynopsePDF
  mORMotReport;

procedure Bitmap2Pdf(const BitmapPath, OutputPDFPath: string);
var
  BMP: TBitmap;
  PDF: TGDIPages;
begin
  BMP := TBitmap.Create();
  PDF := TGDIPages.Create(nil);
  try
    PDF.BeginDoc();
    BMP.LoadFromFile(BitmapPath);
    PDF.DrawBMP(BMP, 0, BMP.Width div 3);
    PDF.EndDoc();
    PDF.ExportPDF(OutputPDFPath, False, True);
  finally
    BMP.Free();
    PDF.Free();
  end;
end;

{...}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Bitmap2Pdf('sample.bmp', 'sample.pdf');
end;

[shoulder]

Gracias funciona perfecto y rapidisimo.

[shoulder]

Hola como dije anteriormente el bmp2pdf funciona perfecto, pero un problema los pdf me los hace todos por arriba de 3 megas aunque los bmp sean de 1 MB, en vez con el pdfcreator me los hace a 200K. Hay un forma dentro del bmp2pdf.pas de tocar la resolucion?. Porque es mucho mas rapido que los demas pero esto no me lo permite usar con 50 hojas me voy a mas de 100 MB.
Gracias,

[dec]

Hola,

Si te decides por usar Synopse PDF engine, tal vez puedas convertir los archivos BMP a otro formato como JPG, puesto que este último permite establecer el nivel de compresión de los archivos. Echa un vistazo a este hilo de los foros de Synopse.

[shoulder]

Gracias primero por responderme el tema es que me agranda el PDF porque me lo hace al 145% en vez el Pdfcreator puedo comprimirlo, veo en synopse me comprime el Jpeg (por lo que entiendo) y estoy usando BMP me lo hace por defecto el programa que scanea, hay forma que pueda comprimir en el PDF?.
Gracias

[shoulder]

Hola dec, estoy probando tu codigo me comprime pero me corta la pagina , me hace 2 paginas en el PDF la primera en blanco y la segunda se ve por la mitad. Lo estoy copiando tal cual como lo pusiste. Probe con autosize pero tampoco.
Gracias.

[dec]

Hola,

Si no me equivoco he leído que Synopse PDF comprime los archivos BMP al incorporarlos al PDF. Pero, dado que estas imágenes suelen ser pesadas, tal vez podrías convertirlas a JPG para lograr archivos PDF de menor tamaño. Si puedes acceder a los archivos BMP, entonces puedes convertirlos a JPG, antes de añadirlos al archivo PDF.

Respecto de que una imagen te ocupe dos páginas seguramente sea por el tamaño de la imagen. No tengo muy claro cómo se maneja el tamaño de las imágenes, creo que es "aproximado" o "porcentual", de modo que prueba a dividir el mismo al añadir las imágenes al PDF, o sea, en lugar de esto:

Código Delphi [-]
PDF.DrawBMP(BMP, 0, BMP.Width div 3);

Prueba con algo como esto:

Código Delphi [-]
PDF.DrawBMP(BMP, 0, BMP.Width div 4);