各位大大，

我需要從 Delphi 轉出 pdf 的 dll，現在使用 PowerPDF，免費但不支援中文，我只好把中文字連同底圖先轉為點陣圖，再把點陣圖轉為 pdf，但這樣有缺點，一是文字會模糊，二是文字無法複製。

有哪位大大使用過 PDF 轉出功能的元件或 dll，請推薦一下，要錢的也可以，我現在用 Delphi 2006 的 Win32 模式，不能用轉檔元件，例如那種 QuickReport 轉 pdf 的元件。元件必須支援由 Delphi 提供的繪圖和文字函式直接輸出至 pdf 格式，例如呼叫 Canvas.TextOut, FillRect 等函式，因為報表程式輸出的內容都用 Canvas 裡面的函式產生，轉出 pdf 也必須如此。

謝謝

------
有沒有可能，上帝使用程式操作世界？

FastReport 有提供這類功能

版主大大，

我的報表程式是自己寫的，都用 Canvas 的函式輸出文字和圖形，有辦法呼叫 FastReport 的某些函式就能產生 pdf 嗎？

------
有沒有可能，上帝使用程式操作世界？

可以參考看看

http://www.pdfforge.org/

相關程式範例參考:

procedure TFrmBS00P.ToPDF(cOutFile:string;nProgram:integer = 1);
var
PDFCreator, PDFOptions, S_Options :Variant;
InFname,OutFname,OutDir,PrinterName,DefaultPrinter,DefaultDir,cExt : string;
O_Options, O_Creator : OleVariant;
procedure SetDefaultPrinter1(NewDefPrinter: string);
var
ResStr: array[0..255] of Char;
begin
StrPCopy(ResStr, NewdefPrinter);
WriteProfileString('windows', 'device', ResStr);
StrCopy(ResStr, 'windows');
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, Longint(@ResStr));
end;
begin
PrinterName := 'PDFCreator';

if GetPDFPrinter(PrinterName) then
begin
InFname := cOutFile;
cExt := ExtractFileExt(InFname);
OutFname := StringReplace(InFname,cExt,'',[]);
OutFname := ExtractFileName(OutFname);
OutDir := ExtractFilePath(InFname);
PDFCreator := CreateOleObject('PDFCreator.clsPDFCreator');
PDFCreator.cStart('/NoProcessingAtStartup');
PDFCreator.cOption('UseAutosave') := 1;
PDFCreator.cOption('UseAutosaveDirectory') := 1;
PDFCreator.cOption('AutosaveDirectory') := OutDir;
PDFCreator.cOption('AutosaveFilename') := OutFname;
PDFCreator.cOption('AutosaveFormat') := 0; //0:PDF
PDFCreator.cOption('AutosaveStartStandardProgram') := nProgram;//1;
PDFCreator.cOption('ShowAnimation') := 0;
PDFCreator.cOption('NoConfirmMessageSwitchingDefaultprinter') := 1;
PDFCreator.cVisible := False;
PDFCreator.cWindowState := 1;
PDFCreator.cClearcache;
//2009.02.16
//SetDefaultPrinter1(PrinterName);
PDFCreator.cDefaultPrinter := PrinterName;
//PDFCreator.cPrintfile(InFname);
PDFCreator.cPrinterStop := False;
DeleteFile(cOutFile);
end
else
begin
ShowMsg(MTInfo,'未裝設 PDFCreator Driver !');
end;
end;

編輯記錄

t27 大大，

PDFCreator 好像是轉檔程式，要先轉出一個資料檔之類的，再把檔名交給 PDFCreator 轉成 PDF，是這樣嗎？
因為我的報表不只有文字，還有圖形和線條，要把圖形轉到資料檔，可能不容易。

------
有沒有可能，上帝使用程式操作世界？

 PDFCreator 是類似 adobe writer 的東西, 用法也一樣
只是它可以被程式叫用.
只要印表機設定到PDFCreator, 即可輸出為PDF檔.

編輯記錄