21 lines
387 B
Plaintext
21 lines
387 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
|
|
# CALL fgl_winmessage("Error",str_aux,"stop")
|
|
LET str_b64=NULL
|
|
END TRY
|
|
|
|
RETURN str_b64
|
|
|
|
END FUNCTION
|
|
|