首页 > 数据库技术 > 详细

把数据库blob字段用FoxitReaderSDK1显示PDF

时间:2015-03-02 18:48:10      阅读:1094      评论:1      收藏:0      [点我收藏+]

 

procedure TAO_EWordPdf.ShowDoc;
var
   Adapter: iStream;//TStreamAdapter;

   DataLoader: TMemoryStream;
begin

 if not cdsGetDocDOC_DATA.IsNull then   //判断数据字段不为空
  begin

   DataLoader := TMemoryStream.Create();
    DataLoader.Clear;
    cdsGetDocDOC_DATA.SaveToStream(DataLoader);//将数据给DataLoader
    DataLoader.Position := 0;

     if LowerCase(Trim(cdsGetDocDOC_FILE_EXT.Value)) = ‘.pdf‘ then
      begin
        try
          Adapter := TStreamAdapter.Create(DataLoader);
          //FoxitReaderSDK1.CloseFile;
          SetDocTool(false);
          //dxBarManager1Bar1.Visible := False;
          FoxitReaderSDK1.Visible := True;
          FoxitReaderSDK1.ShowTitleBar(False);
          FoxitReaderSDK1.ShowBookmark(False);
          FoxitReaderSDK1.ShowStatusBar(False);
          FoxitReaderSDK1.UnLockActiveX(‘license_id‘, ‘unlock_code‘);
          FoxitReaderSDK1.OpenStream(Adapter, ‘‘);//

        finally

            FreeAndNil(DataLoader);

        end;

    end;

end;

     

把数据库blob字段用FoxitReaderSDK1显示PDF

原文:http://www.cnblogs.com/hsbs/p/4309011.html

(3)
(3)
   
举报
评论 一句话评论(1
2017-02-27 10:27:03
非常感谢,解决了困扰我很久的问题!!!!!!!!
回复
 (9)
 (3)
1条  
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!