BASE64-DECODE ( expression )
|
DEFINE VARIABLE decdmptr AS MEMPTR NO-UNDO.
DEFINE VARIABLE decdlngc AS LONGCHAR NO-UNDO. COPY-LOB FROM FILE "C:\myicons\testencode" TO decdlngc. decdmptr = BASE64-DECODE(decdlngc). COPY-LOB FROM decdmptr TO FILE "C:\myicons\test.ico". |