如何在输出流中打印图像？

问题描述

是否可以使用4GL打印一些文本和图像？我尝试了几种方法，但对我没有用。我的代码在下面

DEFINE VARIABLE mMyMemPtr AS MEMPTR NO-UNDO.
FILE-INFO:FILE-NAME = "C:\image.png".
SET-SIZE(mMyMemPtr) = FILE-INFO:FILE-SIZE.
INPUT FROM VALUE(FILE-INFO:FILE-NAME) BINARY NO-MAP NO-CONVERT.
IMPORT mMyMemPtr.
INPUT CLOSE.

OUTPUT STREAM printstream TO PRINTER.
PUT "some text: " AT 1 SKIP.
PUT mMyMemPtr.
OUTPUT CLOSE.

解决方法

是，不是。可以使用ABL / Progress 4GL打印图像，但不能那样打印。您将需要其他技术。最简单的方法可能是查看支持打印的某种文档格式。例如创建和打印：

通过ActiveX自动化的Word文档（从此处开始：https://knowledgebase.progress.com/articles/Article/P20445）
HTML文档
PDF（有一些用于进度的免费PDF工具，例如过时的http://www.oehive.org/pdfinclude.html-可能还有其他工具）或PostScript文档
通过任何报表生成器，例如Crystal，Eclipse BIRT等。

progress-4gl