用delphi编程生成pdf文件的问题。

Question

除了PDFWriter外，还有没有别的方法，
可以自由生成pdf文件的，
就像用于java的iText包那样的东西。

Answer 1

还是我自己找到了，第三方vcl控件
pdf-in-box,收费
powerpdf，免费。

Answer 2

//ado创建dbf
procedure TForm1.Button1Click(Sender: TObject);
var
 DBPath: String;
begin
 DBPath:='e:\dfwtest\test7';//你的数据库路径目录；
 ADOConnection1.ConnectionString:='Provider=MSDASQL.1;'
                                  +'Persist Security Info=False;'
                                  +'Extended Properties='
                                  +'"Driver={Microsoft Visual FoxPro Driver};'
                                  +'UID=;'
                                  +'SourceDB='+ DBPath + ';'
                                  +'SourceType=DBF;'
                                  +'Exclusive=No;'
                                  +'BackgroundFetch=Yes;'
                                  +'Collate=Machine;'
                                  +'Null=Yes;'
                                  +'Deleted=Yes;"';
 AdoConnection1.Open;
 AdoQuery1.Sql.Text := 'create table "aaa.dbf" (aaa char(2))';
 //AdoQuery1.Sql.Text := 'create table "ddd.dbf" (aaa char(2)),fff float(3),eee numeric (4,1),torf boolean ,rdate date)';
 AdoQuery1.ExecSql;
end;