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! )