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