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