EncodeProblem.pb
The tool encoded and created smaller files successfully.
Thanks in advance and have a happy weekend

Code: Select all
DataMessage.s = "SVRTRgMAAABgAAAAAQAAAF......."
DataMessage.s + "AAAAAAAAAAAAAA......................"
....
....
FileName$ = "winmessage.chm"
*DecodeBuffer = UTF8(DataMessage.s)
Encoded$ = Base64Encoder(*DecodeBuffer, MemorySize(*DecodeBuffer))
Debug "Encoded: " + Encoded$
count = MemorySize(*DecodeBuffer)
*DecodedBuffer = AllocateMemory(count)
Base64Decoder(Encoded$, *DecodedBuffer, count)
Debug "Decoded: " + PeekS(*DecodedBuffer, -1, #PB_UTF8)