把数据库blob字段用FoxitReaderSDK1显示PDF
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;
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
