安装ImageEn,参考下面的例子。procedure TForm1.Button1Click(Sender: TObject); var I:integer; begin ImageEnIO1.CreatePDFFile('C:\test\test.pdf'); for i:=1 to 10 do begin ImageEnIO1.LoadFromFile('C:\test\'+inttostr(i)+'.JPG'); ImageEnIO1.Params.PDF_Compression:= ioPDF_G4FAX; // G4Fax compression ImageEnIO1.SaveToPDF; end; Imageenio1.ClosePDFFile; end;
:-)
非常感谢
本人比较菜,请详细说一下
不胜感激~~~~
另外,有没有不装虚拟打印机的方法?
好吗?真的不胜感激~~~~~~~~
var
I:integer;
begin
ImageEnIO1.CreatePDFFile('C:\test\test.pdf');
for i:=1 to 10 do
begin
ImageEnIO1.LoadFromFile('C:\test\'+inttostr(i)+'.JPG');
ImageEnIO1.Params.PDF_Compression:= ioPDF_G4FAX; // G4Fax compression
ImageEnIO1.SaveToPDF;
end;
Imageenio1.ClosePDFFile;
end;