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