Convertir archivos de imagen BMP al formato de documento PDF

[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);

[shoulder]

Gracias quedo bien asi!!, lo hice div 5 sino me separaba de hoja y autosize..

Código Delphi [-]

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 5);
    Pdf.AutoSize := True;
    PDF.ExportPDFForceJPEGCompression := 80;
    PDF.EndDoc();
    PDF.ExportPDF(OutputPDFPath,False, False);
  finally
    BMP.Free();
    PDF.Free();
  end;
end;

[shoulder]

Hola sigo sin encontrar solucion pensa que lo habia arreglado pero con el synopse hay veces que la hoja se hace en dos aunque arregle los parametrps como marque en el mensaje de arriba y el que me envio ecfisa si bien funciona muy bien no comprime. Ya no se que probar.
Gracias.