Base64Encoder() arbeitet nicht richtig !
Verfasst: 09.01.2005 18:01
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.
So arbeitet die Funktion merkwürdiger Weise ganz normal:
Kann mir das jemand erklären
?
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)
EndProcedureCode: Alles auswählen
TestA.s = "5"
TestB.s = Space(500)
Base64Encoder(@TestA, Len(TestA), @TestB, Len(TestB))
Debug TestB