19 lines
364 B
Plaintext
19 lines
364 B
Plaintext
IMPORT security
|
|
|
|
FUNCTION file_to_b64(f_ent)
|
|
|
|
DEFINE f_ent,str_b64,str_aux STRING
|
|
|
|
LET str_b64=NULL
|
|
|
|
TRY
|
|
CALL security.Base64.LoadBinary(f_ent) RETURNING str_b64
|
|
CATCH
|
|
LET str_aux="Unable to convert file into a Base64 String:",STATUS
|
|
DISPLAY "ERROR: ",str_aux
|
|
LET str_b64=NULL
|
|
END TRY
|
|
|
|
RETURN str_b64
|
|
|
|
END FUNCTION |