Ver Mensaje Individual
  #3  
Antiguo 15-08-2015
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
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;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita