Error 6069

[Jeronimo]

Hello Peggers!!



I want to use the gdi32.dll to send a EscapeSequences to the printer.
In my program i'm using the "vsprint7.ocx".

The system reports the follow error:
" 'C' Call Stack has been compromised after calling _ExtEscape@20 in
gdi32.dll (6069)"

Here is the procedure code :

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ExtEscape dlg_Main
PROCEDURE ExtEscape EXTERNAL "gdi32" :
DEFINE INPUT PARAMETER hdc AS LONG.
DEFINE INPUT PARAMETER nEscape AS LONG.
DEFINE INPUT PARAMETER cbinput AS LONG.
DEFINE INPUT PARAMETER lpszIndata AS CHAR.
DEFINE RETURN PARAMETER Returnvalue AS LONG.


END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&Scoped-define Printer ch_Printer
DEFINE VARIABLE {&Printer} AS COM-HANDLE NO-UNDO.


DEFINE VARIABLE ESC_code AS CHARACTER NO-UNDO.
DEFINE VARIABLE ESC_code2 AS CHARACTER NO-UNDO.
DEFINE VARIABLE PASSTROUGH AS int NO-UNDO INITIAL 19.
DEFINE VARIABLE i_return AS int NO-UNDO.


ASSIGN ESC_code = chr(27) + "&d0D". (underline sequence)

RUN ExtEscape(INPUT {&Printer}:hdc,INPUT PASSTROUGH,INPUT 0,INPUT ESC_code, OUTPUT i_return).

Where did I go wrong?
Does somebody help me ??

Regards,

Jeronimo

 

[me_atkinson]

I have solved the above error message in the past by using the CDECL option after the procedure. So the first line of your procedure declare would look like this

PROCEDURE ExtEscape EXTERNAL "gdi32" CDECL:

instead of

PROCEDURE ExtEscape EXTERNAL "gdi32" :

See how you go.

Good luck

Michael