Skip to content

Instantly share code, notes, and snippets.

@edsonmsantos

edsonmsantos/EncodeBase64.pas

Last active July 28, 2020 21:02
Show Gist options
  • Save edsonmsantos/c53be3e44795b03ff15d83e786b6dadb to your computer and use it in GitHub Desktop.
Save edsonmsantos/c53be3e44795b03ff15d83e786b6dadb to your computer and use it in GitHub Desktop.
Download ZIP
[Codificar string para Base 64]
Raw
EncodeBase64.pas
uses EncdDecd
function Encode(const Input: string): AnsiString;
var
utf8: UTF8String;
begin
utf8 := UTF8String(Input);
Result := EncdDecd.EncodeBase64(PAnsiChar(utf8), Length(utf8));
end;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment