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

Willem van Deursen wrote:

> CompressAndEncodeS

check your email