PB 如果把PDF 转换成二进制数据保存到数据库，并读取显示

PB如果把PDF文件转换成二进制数据保存到数据库，并读取显示。


给窗口添加一个PDF的OLE控件。


//OLE控件关联文件
string ls_filepath,ls_filename
blob lb_object,ole_blob


GetFileOpenName("select file to open",ls_filepath, ls_filename)


If filename ="" Then return


If ole_pdf.insertfile(filepath) = 0 Then
//savefilename = filename
//savefilepath = filepath
End If


//转换PDF文件为二进制数据
lb_object = Preview.objectdata


updateblob  保存二进制数据到数据库
selectblob  从数据库读取二进制数据


eg.
updateblob dpr_doc set ole_object = :lb_object
WHERE ( dpr_doc.docregn = :globalregion )


selectblob ole_object  into :ole_blob from dpr_doc
  WHERE ( dpr_doc.docregn = :globalregion ) 


//如果数据库存的路径可以关联路径
//ole_pdf.LinkTo(ls_filepath)


//从数据库读取BLOB数据，把该文件的BLOB数据传递给OLE控件
//assigning the blob data to the actual data control 
ole_pdf.objectdata = ole_blob


//preview 显示该PDF文件
ole_pdf.Activate (offsite! )