• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

delphi使用Foxit Quick PDF Library精确编写PDF

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

官方帮助文档:https://www.debenu.com/docs/pdf_library_reference/FunctionGroups.php

前面有提到使用Quick PDF Library简单读写PDF文件:https://www.cnblogs.com/ClaireWu/p/12468255.html

但是写入pdf,只是简单的写入到了pdf,这里详细讲一下更加准确详细的编写pdf步骤,可以根据坐标,pdf页数,并且设置写入字体的颜色,大小,编辑pdf

安装步骤这里就不多讲了,具体可以看一下上面的链接

不多说,这里直接贴代码:

参数:fileName, text: string; const iXPos, iYPos, iTextSize, iColor, iPage: Integer
代表:pdf文件路径, 文本内容, X, Y, 字体大小, 颜色值, 页数
function xxx.WritePdfXY(const fileName, text: string; const iXPos, iYPos, iTextSize, iColor, iPage: Integer): string;
function GetColorRGB(const iColor: Integer; var iR, iG, iB: Integer): Boolean;
var
  iMod: Integer;
begin
  Result := True;
  if (iColor <= 16777215) and (iColor >= 0) then
  begin
    iR := iColor div (256 * 256);
    iMod := iColor mod (256 * 256);
    iG := iMod div 256;
    iB := iMod mod 256;
  end
  else
    Result := False;
end;
var
  wPdf : TDebenuPDFLibraryDLL1111;
  num, wStatus, iRed, iGreen, iBlue: Integer;
  sFile, sKey : string;
begin
  Result := \'\';
  if Trim(fileName) = \'\' then
  begin
    Result := \'路径不能为空\';
    Exit;
  end;
  if not FileExists(Trim(fileName)) then
  begin
    Result := \'文件不存在。\';
    Exit;
  end;
  try
    Result := InitPdfFoxitSDK;
    if Result <> \'\' then Exit;

    sFile := GetAppLibraryPath() + \'DebenuPDFLibraryDLL1111.dll\';
    wPdf := TDebenuPDFLibraryDLL1111.Create(sFile);//库
    try
      sKey  := \'密钥\';
      wStatus := wPdf.UnlockKey(sKey);//密钥
      if wStatus = 1 then
      begin
        iRed := 0;
        iGreen:= 0;
        iBlue := 0;
        wPdf.LoadFromFile(Trim(fileName), \'\');
        if iPage > wPdf.PageCount then
        begin
          Result := \'页数溢出。\';
          Exit;
        end;
        wPdf.SelectPage(iPage);//选区页
        num := wPdf.AddTrueTypeSubsettedFont(\'FangSong\',text, 0);
        wPdf.SelectFont(num);
        wPdf.SetTextSize(iTextSize);
        GetColorRGB(iColor,iRed, iGreen, iBlue);
        wPdf.SetTextColor(iRed, iGreen, iBlue);
        wPdf.SetMeasurementUnits(1);
        // 画上字体
        wPdf.DrawWrappedText(iXPos, iYPos, 500, text);
        wPdf.SaveToFile(fileName);
      end
      else
      begin
        Result := \'库不能加载或者密钥错误\';
      end;
    finally
      wPdf.Free;
    end;
  except
    on e:Exception do Result := e.Message;
  end;
end;   

  亲测可用,其中的密钥可以在官网购买或者在网上找一下,


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Linux Ubuntu 安装 Matlab发布时间:2022-07-18
下一篇:
【MATLAB深度学习】单层神经网络 - zengw20发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap