I want to create a set of functions that allows me to do the following:
function CompressAndEncodeString(InString: string): string;
CompressInString using zip algo or whatever
Base64 encode compressed Instring and assign to result
function RetrieveString(Instring: string): string
Base64 decode Instring
Uncompress decodestring and assign to result
Googled for the different parts, but got lost in the complexity.
Any help is very much appreciated!
Willem van Deursen, The Netherlands
replace _nospam@nospam_ for @ to get a valid email address