Base64Encoder() arbeitet nicht richtig !

[MVXA]

Hallo!
Ich hab was interessantes festgestellt. Die Base64Encoder() Funktion speichert in den B Buffer nichts, wenn der zu codierende Text nur ein Zeichen lang ist. Hier der Code mit dem ich das getestet habe.

Code: Alles auswählen

Procedure.s Base64Encode(strText.s)
    DefType.s SpeicherB
    
    SpeicherB = Space(Len(strText)*3) 
    Base64Encoder(@strText, Len(strText), @SpeicherB, Len(SpeicherB))
    
    ProcedureReturn Trim(SpeicherB)
EndProcedure

So arbeitet die Funktion merkwürdiger Weise ganz normal:

Code: Alles auswählen

TestA.s = "5"
TestB.s = Space(500)

Base64Encoder(@TestA, Len(TestA), @TestB, Len(TestB))

Debug TestB

Kann mir das jemand erklären ?

[Deeem2031]

"Der 'AusgabeBuffer' sollte 33% größer sein als der 'EingabeBuffer', mit einer minimalen Größe von 64 Bytes."

[MVXA]

So funzt es aber auch :

Code: Alles auswählen

TestA.s = "5"
TestB.s = Space(10)

Base64Encoder(@TestA, Len(TestA), @TestB, Len(TestB))
Debug TestB

[Deeem2031]

Na und? Zufall..

[MVXA]

ich find das is irgendwo geschlampt . Wieso funktioniert das nich in einer Funktion ._o ?

[GPI]

Na und? Zufall..

oder es wird irgendwo in speicher rumgeschrieben, wo es nicht sollte.