Kbase P163651: How to display raw field with base64 encoded data in WebSpeed application?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
4/12/2010 |
|
Status: Unverified
GOAL:
How to display raw field with base64 encoded data in WebSpeed application?
FACT(s) (Environment):
All Supported Operating Systems
OpenEdge 10.x
FIX:
A very simple example is shown below:
##############################
DEFINE VARIABLE s AS CHARACTER NO-UNDO.
DEFINE VARIABLE m AS RAW NO-UNDO.
DEFINE VARIABLE c AS CHARACTER NO-UNDO.
DEFINE VARIABLE lc AS LONGCHAR NO-UNDO.
DEFINE VARIABLE mptr AS MEMPTR NO-UNDO.
DEFINE VARIABLE mm AS RAW NO-UNDO.
DEFINE VARIABLE cc AS CHARACTER NO-UNDO.
ASSIGN s = "abc".
PUT-STRING(m, 1) = s.
lc = BASE64-ENCODE(m).
mptr = BASE64-DECODE(lc).
mm = mptr.
cc = GET-STRING(mm, 1).
ASSIGN c = substring(lc,1,8).
{&OUT} Length(c) "<br>".
{&OUT} c "<br>" .
{&OUT} LENGTH(mm) "<br>".
{&OUT} cc.
SET-SIZE(mptr) = 0.
##############################