paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 00:10:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* procedural encode/decode base64. Useful when base64ing hashes to XMLs etc.

Browse Source 
git-svn-id: trunk@16772 -
This commit is contained in:
marco 2011-01-16 12:09:35 +00:00
parent 608498c64c
commit 49ed563e1d
1 changed files with 50 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
packages/fcl-base/src/base64.pp
View File

@ -87,6 +87,9 @@ type
EBase64DecodingException = class(Exception)
end;
function EncodeStringBase64(const s:string):String;
function DecodeStringBase64(const s:string):String;
implementation
uses
@ -420,5 +423,52 @@ begin
raise EStreamError.Create('Invalid stream operation');
end;
function DecodeStringBase64(const s:string):String;
var
Instream,
Outstream : TStringStream;
Decoder : TBase64DecodingStream;
begin
Instream:=TStringStream.Create(s);
try
Outstream:=TStringStream.Create('');
try
Decoder:=TBase64DecodingStream.Create(Instream,bdmMIME);
try
Outstream.CopyFrom(Decoder,Decoder.Size);
Outstream.Position:=0;
Result:=Outstream.ReadString(Outstream.Size);
finally
Decoder.Free;
end;
finally
Outstream.Free;
end;
finally
Instream.Free;
end;
end;
function EncodeStringBase64(const s:string):String;
var
Outstream : TStringStream;
Encoder : TBase64EncodingStream;
begin
Outstream:=TStringStream.Create('');
try
Encoder:=TBase64EncodingStream.create(outstream);
try
Encoder.Write(s[1],Length(s));
finally
Encoder.Free;
end;
Outstream.Position:=0;
Result:=Outstream.ReadString(Outstream.Size);
finally
Outstream.free;
end;
end;
end.