_CopyBase64 Stringfunctie

Met _CopyBase64 wordt tekst of een tekenreeks gekopieerd naar een string of kolom. De data of tekst wordt eerst 'gemerged' en het resultaat gecodeerd volgens code Base64 en dan gekopieerd naar de opgegeven string of kolom. Bij de codering volgens Base 64 wordt een string van 1 of meer bytes van 8 bit gegroepeerd in groepen van 6 bit. Een groep van 6 bit heeft 2^6=64 waarden van 0 t/m 63. Deze 64 waarden worden gerepresenteerd met de volgende tekens: ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/ waarbij: A=0, B=1, ... 9=61, +=62 en /=63. Omdat het aantal bits in x bytes niet altijd door 6 deelbaar is kan een rest van 2 of 4 bit ontstaan. In dat geval wordt 1 of 2 = tekens aan de reeks toegevoegd.

_CopyBase64(ColumnOrStringName, TextData)

ColumnOrStringName (MergedString)
In ColumnOrStringName wordt de naam van een kolom of een string vermeld waar naartoe de bas 64 gecodeerde tekst moet worden gekopieerd in de vorm van een ColumnName of een StringVarName.

TextData (MergedString)
In TextData wordt de tekst vermeld die moet worden uitgewerkt, gecodeerd naar base 64 en gekopieerd.

Voorbeeld:
{
 String sCoded, sDecoded, sOrg
 Copy(sOrg,Dit is een test: $(196), ¢ en (e met accent=é)!!)
}
Orgineel:
[sOrg]

{
 _CopyBase64(sCoded,[sOrg])
}
Base64: [sCoded]

{
 _CopyFromBase64(sDecoded,[sCoded])
}
Van Base64:
[sDecoded]

{
 If Match([sOrg],[sDecoded])
}
Orginele string gelijk aan de gedecodeerde!
{
 Else
}
Vreemd, Orgineel is niet gelijk aan de gedecodeerde string!
{
 Endif
}

Resultaat:
Orgineel:
Dit is een test: Ä, ¢ en (e met accent=é)!!

Base64: RGl0IGlzIGVlbiB0ZXN0OiDDhCwgwqIgZW4gKGUgbWV0IGFjY2VudD3DqSkhIQ==

Van Base64:
Dit is een test: Ä, ¢ en (e met accent=é)!!

Orginele string gelijk aan de gedecodeerde!