Skip to content

Instantly share code, notes, and snippets.

@reinaldoacdc

reinaldoacdc/BitmapHelper.pas

Created March 14, 2022 18:08
Show Gist options
  • Save reinaldoacdc/5d8bffa7eb0d03c105cbac44e99c02e7 to your computer and use it in GitHub Desktop.
Save reinaldoacdc/5d8bffa7eb0d03c105cbac44e99c02e7 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
BitmapHelper.pas
unit BitmapHelper;
interface
uses FMX.Graphics;
type
TBitmapHelper = class helper for TBitmap
function ToBase64 :String;
end;
implementation
uses System.Classes, System.SysUtils, System.NetEncoding;
{ TBitmapHelper }
function TBitmapHelper.ToBase64: String;
var
Input: TBytesStream;
Output: TStringStream;
Encoding: TBase64Encoding;
begin
Input := TBytesStream.Create;
try
Self.SaveToStream(Input);
Input.Position := 0;
Output := TStringStream.Create('', TEncoding.ASCII);
try
Encoding := TBase64Encoding.Create(0);
Encoding.Encode(Input, Output);
Result := Output.DataString;
finally
Encoding.Free;
Output.Free;
end;
finally
Input.Free;
end;
end;
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment