Convertir archivos de imagen BMP al formato de documento PDF

[dec]

Hola,

Una posibilidad es pedir ayuda en los foros de Synopse: me consta que el autor responde a las preguntas y consultas de sus usuarios.

[shoulder]

Primero gracias a todos, el programa mediante la herramienta Twain scannea de a 20 hojas y muestra en una lista de imagenes los scaneos y mediante un boton graba el bmp y hace los 20 PDFs. Como explique con Pdfcreator cambio el nombre del archivo en la la registry grabo el bmp e imprimo en impresora virtual, pero en algunos momentos se desincronisa, sino escribo un showmessage en el medio. La rutina que me dio ecfisa funciona pero no comprime y hace pdfs muy grande y la de dec funciona pero no me hace el autosize vienen hojas A4 o A5 me hace hojas en blanco dentro del PDF o con el div 4... me hace muy chica la imagen. Te hare caso Dec voy a escribir al foro de synapsis veamos que me responden. Por ahora estan trabajando con los sleep y un showmessage entre la grabacion del write de la registry del nombre del archivo y cuando graba el bmp, y un sleep (1000) cuando imprime virtual el pdf, pero les molesta dar 20 enters y si das los enters muy rapido se desincronisa-

[shoulder]

Hola comparto la solucion. Gracias.

Código Delphi [-]
uses  SynPdf
.....

Procedure..
Var

    vpdf : TPdfDocumentGDI;
    pagemeta : TMetafile;
    p : integer;
....

vpdf := TPdfDocumentGDI.Create(true, 1252,false);
vpdf.CompressionMethod := cmNone;



   QuickReport1:=TQuickReport1.Create(self);


   Quickreport1.QRImage1.Picture.LoadFromFile('c:\carpeta\hola.bmp');
 
   QuickReport1.prepare;
   Quickreport1.QRImage1.Repaint;
   for p := 1 to QuickReport1.QRPrinter.PageCount do
   begin
      vpdf.AddPage;
      pagemeta := quickreport1.QRPrinter.GetPage(p);
      vpdf.VCLCanvas.Draw(0,0,pagemeta);
    end;
    vpdf.ForceJPEGCompression := 96;
    vpdf.SaveToFile('c:\carpeta\hola.pdf');
    vpdf.free;
   QuickReport1.Free;
   QuickReport1 := nil;