Using WriteConsoleA from a Clarion application

code Snippets
9

Brahn did create a ConsoleSupport Class and an example on GitHub. IIRC on my Laptop I have an enhanced version I’ll try to find.

This is the Console INC file Class to give an idea of methods in the CLW file.

ConsoleSupport  Class(),Type,Module('ConsoleSupport.Clw'),LINK('ConsoleSupport.Clw',1)
! Properties
inputHandle   HANDLE
outputHandle  HANDLE
textBuffer    CSTRING(2048)
outBuffer     CSTRING(2048)
inBuffer      CSTRING(2048)
bytesWritten  LONG
bytesRead     LONG
prefix        CSTRING(21)
! Methods
Construct     PROCEDURE
Destruct      PROCEDURE(),VIRTUAL
Init          PROCEDURE(),BYTE,PROC,VIRTUAL
WriteLine     PROCEDURE(STRING pText),BYTE,PROC,VIRTUAL
ReadKey       PROCEDURE(),STRING,PROC,VIRTUAL
GetLastSystemError  PROCEDURE ( LONG pLastErr=0 ),STRING
              END

One important setting is the Project EXP file must have the First line end with CUI not GUI. You’ll see this in his Console Test project EXP file.

NAME 'CONSOLETEST' CUI