急:如何把批量扫描图片转成pdf文件?
谢谢各位!!
谢谢各位!!
解决方案 »
- delphi panel 跑马灯效果 字符串循环从左向右移动
- 如何才能在delphi中调用已经建立的拨号连接拨号上网
- 这样为什么不对呢?好多天未能解决,请帮帮我
- 如何由Delphi的DLL返回一个不定长的字符串给C++?在线等侯。
- 如何实现BMP和JPG的互换
- 如何在Richedit中加入圖片,像QQ那樣的功能.....
- 急!!!DBGRID小问题(在线等待,高分相送)
- TStingList的Free方法和Destroy方法有什么区别?
- Adoquery1['计算字段']adoquery.RecNO,第一条记录为什么会是-1?有什么办法解决吗?//瑶瑶
- 如何把TDBChart的圖打印出來?
- 在线等.急
- ADOQUERY的过滤条件在filter下竟然不起作用。。。
2. 找一个支持PDF文件格式的第三方控件,因为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:='[email protected]';
imgn1.Params.PDF_Producer:='[email protected]';
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;
装acrobat专业版,然后打开图片,送Adobe PDF打印机,可以保存成PDF文件。怎么不结贴?
http://www.evget.com/Product/10440/
下载地址:
http://www.flyingspace.com/index.php?Action=product_display&Aproductid=17&Language=chinese