MyTiffListener 类定义找不到 - 编程论坛

#2

吹水佬2022-06-14 15:19

MyTiffListener 是什么东东?

#3

厨师王德榜2022-06-14 17:14

推测是你这台电脑少拷贝了一个动态库,或者是拷贝了,但是没有注册.
MyTiffListener 从名称上看,是一个什么侦听器 .或者用于抓包的.

#4

liunis2022-06-14 17:39

回复 2楼吹水佬

报表监听器将报表保存为图片作用或其它

#5

吹水佬2022-06-14 18:12

以下是引用liunis在2022-6-14 17:39:19的发言：

报表监听器将报表保存为图片作用或其它

找到一段相似的示例代码

程序代码：

   5、自定义类覆盖 OutputPage 方法输多页报表到 TIFF 图像文件

local o报表监听器
    ** 实例化自定义的监听器类
o报表监听器 = CreateObject("MyTiffListener")
o报表监听器.tifffilename = "c:\temp\MyTest.tif"
REPORT FORM test.frx Object o报表监听器        && 由监听器对象控制输出格式

    ** 自定义名为 MyTiffListener 的报表监听类
DEFINE CLASS MyTiffListener AS ReportListener
    tifffilename = ""
    listenertype = 2    && 按页提供报表结果，不打印输出
    ** 对 OutputPage 方法进行覆盖修改
    FUNCTION OutputPage(nPageNo, eDevice. nDeviceType)
        IF (nDeviceType == -1) and !EMPTY(THIS.tifffilename)
            IF (nPageNo == 1)   && 为第一页报表建立 TIFF 文件
                THIS.OutputPage(nPageNo, THIS.tifffilename, 101)
            ELSE                && 向已建立的 TIFF 文件添加剩余的报表页
                THIS.OutputPage(nPageNo, THIS.tifffilename, 201)
            ENDIF
            NODEFAULT
        ENDIF
    ENDFUNC
ENDDEFINE

#6

liunis2022-06-14 18:35

缺少了什么，使用时出错

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

#7

my23182022-06-14 20:37

你直接在表单加这个控件，如不可以加，则是缺少控件或未注册。剩下的事情怎么办就不用说了吧。

#8

吹水佬2022-06-15 09:04

回复 6楼 liunis

不要在命令窗口执行，写个PRG文件来执行吧