注册 登录
编程论坛 VFP论坛

PDF显示问题

tbk_lcy 发布于 2024-04-11 16:43, 313 次点击
请教各位老师:
   使用下面代码把文字为“说明”的pdf文件导入到了fj2里
txt00=getfile("pdf")
if .not.empty(txt00)
   append general fj2 from (txt00) &&overwrite
endif  

想用olecontrol1显示,如何写代码?
7 回复
#2
nbwww2024-04-12 06:35
#3
tbk_lcy2024-04-12 08:45
回复 2楼 nbwww
没有看明白,请帮忙写一下代码
#4
tbk_lcy2024-04-12 15:48
使用下面代码把文字为“说明”的pdf文件导入到了自由表wjk的通用字段fj2里
txt00=getfile("pdf")
if .not.empty(txt00)
   append general fj2 from (txt00) &&overwrite
endif  

想用olecontrol1在表单上直接显示,ThisForm.olecontrol1.openFile(txt00,'')实现不了,请教怎么弄?

#5
nbwww2024-04-12 18:59
ThisForm.olecontrol1.   是什么?
#6
sych2024-04-13 11:06
aa= CREATEOBJECT("form")
WITH aa
    .Show
    .width=500
    .height=500
    TRY
        .ADDOBJECT("Olefoxit","Olecontrol","Foxit.FoxitReaderSDKCtrl.3")
    CATCH
        !regsvr32/s FoxitReader_AX_Pro.ocx
        .ADDOBJECT("Olefoxit","Olecontrol","Foxit.FoxitReaderSDKCtrl.3")
    ENDTRY
       WITH aa.olefoxit
        .openFile(Getfile('pdf'),'')  &&如果有密码,后面的空字符串应改为相应的密码
        .Visible=.t.
        .width=500
        .height=500
        .showTitleBar(0)
        .ShowToolBar(0)
        .showFormFieldsMessageBar(0)
        .showNavigationPanels(0)
        .showStatusBar(0)
    ENDWITH
ENDWITH
susp
retu
附:调用的是这个控件FoxitReader_AX_Pro.ocx
(下载频道-上传资源功能好像不能用)

[此贴子已经被作者于2024-4-21 06:23编辑过]

#7
my23182024-04-22 15:49
可以考虑用计算机系统默认的程序打开你的文档,比用控件更方便更通用
#8
nbwww2024-04-24 21:31
用吹版的WEBVIEW2 或者miniblink都可以   
只有本站会员才能查看附件,请 登录

只有本站会员才能查看附件,请 登录
1