用什么控件可以读写PDF表单?有无免费的?
把某个目录下按数字序号排列的PNG图像文件转换成一个pdf文件,这里用到了ImageEN:
imgn1。CreatePDFFile( 'D:\StdPDF\ '+s。Strings[i]+ '。 pdf ');
imgn1。Params。PDF_Title:=qry1。FieldByName( '标准号 ')。AsString;
imgn1。Params。 PDF_Subject:=qry1。FieldByName( '标准名称 ')。AsString;
imgn1。Params。PDF_Author:=qry1。FieldByName( '起草单位 ')。 AsString;
im...全部
把某个目录下按数字序号排列的PNG图像文件转换成一个pdf文件,这里用到了ImageEN:
imgn1。CreatePDFFile( 'D:\StdPDF\ '+s。Strings[i]+ '。
pdf ');
imgn1。Params。PDF_Title:=qry1。FieldByName( '标准号 ')。AsString;
imgn1。Params。
PDF_Subject:=qry1。FieldByName( '标准名称 ')。AsString;
imgn1。Params。PDF_Author:=qry1。FieldByName( '起草单位 ')。
AsString;
imgn1。Params。PDF_Creator:= 'xuxiaoxia@163。com ';
imgn1。Params。PDF_Producer:= 'chenxinyv@gmail。
com ';
imgn1。Params。PDF_Keywords:=qry1。FieldByName( '关键字 ')。AsString;
for j := 1 to fllst1。
Count do
begin
imgn1。LoadFromFilePNG(fllst1。Directory+ '\ '+inttostr(j)+ '。
png ');
imgn1。Params。BitsPerSample:=1;
imgn1。Params。SamplesPerPixel:=1;
imgn1。
SaveToFilePNG(fllst1。Directory+ '\ '+inttostr(j)+ '。png ');
imgn1。LoadFromFilePNG(fllst1。
Directory+ '\ '+inttostr(j)+ '。png ');
imgn1。Params。PDF_Compression:= ioPDF_G4FAX;
imgn1。
SaveToPDF;
end;
imgn1。ClosePDFFile;。收起