4
uses classes, base64, sysutils;
6
b64encoder: TBase64EncodingStream;
7
b64decoder: TBase64DecodingStream;
10
buf: array[1..23] of Char;
12
BaseStream := TMemoryStream.Create;
14
WriteLn('Encoded Size / Decoded Size / Data:');
16
for i := 1 to 22 do begin
17
BaseStream.Position := 0;
19
b64encoder := TBase64EncodingStream.Create(BaseStream);
21
buf[j] := Chr(i - j + 65);
22
b64encoder.Write(buf, i);
23
Write(b64encoder.Size: 2, ' ');
26
BaseStream.Position := 0;
28
b64decoder := TBase64DecodingStream.Create(BaseStream);
29
Write(b64decoder.Size: 2, ' ');
30
b64decoder.Read(buf, i);
39
Revision 1.3 2002/09/07 15:15:28 peter
40
* old logs removed and tabs fixed