[Stackoverflow] [Progress OpenEdge ABL] How to print image in output stream?

Status
Not open for further replies.
K

KuKeC

Guest
Is it possible to print some text + image with 4GL? I tried several approaches and nothing works for me. My code is below

Code:
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.

Error  code

Continue reading...
 
Status
Not open for further replies.
Top