Biblioteca de codificação e decodificação de imagem(Bitmap) em Base64.
Implementado na linguagem Delphi, Base64Bitmap é uma biblioteca de codificação de uma imagem(Bitmap) para Base64 e decodificação de Base64 para imagem(Bitmap).
-
Base64
: É uma forma de codificação que permite representar dados binários usando um conjunto de caracteres seguros, tornando-os adequados para transmissão. É amplamente utilizado em aplicações que lidam com transferência de dados, como em e-mails ou em URLs, para garantir que os dados permaneçam intactos e sem erros durante a transmissão. -
Bitmap
: É a classe que representa e gerência imagens no Delphi, permitindo manipulações e exibições dentro da interface gráfica de um aplicativo. A classe TBitmap é usada para criar, carregar, manipular e exibir imagens bitmap na interface do aplicativo. Ela oferece recursos para carregar imagens de arquivos, desenhar na imagem, ajustar suas dimensões, aplicar operações de pintura, entre outros. Essa classe é particularmente útil para trabalhar com gráficos e imagens em aplicações que necessitam de recursos visuais. As imagens armazenadas em um objeto TBitmap podem ser exibidas em componentes visuais como TImage, TPaintBox, TPicture, TCanvas, entre outros.
Para codificar e decodificar uma imagem(Bitmap) em Base64, utilizar a classe TImageUtils da unit Utils.Image.pas.
..\Base64Bitmap\Utils\Utils.Image.pas
Para os projetos em Firemonkey definir a diretiva de compilação HAS_FMX
:
uses Utils.Image.pas;
var
lBase64: string;
lItem: TCustomBitmapItem; // FMX.MultiResBitmap
begin
// ENCODE BITMAP
//VCL
lBase64 := TImageUtils.BitmapToBase64(TImage.Picture.Bitmap);
//FMX
lItem := TImage.MultiResBitmap.ItemByScale(1, False, True);
lBase64 := TImageUtils.BitmapToBase64(lItem.Bitmap);
var
lBase64: string;
lBitmap: TBitmap;
lItem: TCustomBitmapItem; // FMX.MultiResBitmap
begin
lBitmap := nil;
try
// DECODE BASE64
lBitmap := TImageUtils.Base64ToBitmap(lBase64);
//VCL
TImage.Picture.Assign(nil);
TImage.Picture.Assign(lBitmap);
//FMX
TImage.MultiResBitmap.Clear;
lItem := TImage.MultiResBitmap.ItemByScale(1, False, True);
lItem.Bitmap.Assign(lBitmap);
finally
lBitmap.Free;
end;
..\Base64Bitmap\FMX\
Base64Bitmap.mp4
..\Base64Bitmap\VCL\
Base64BitmapServerREST.mp4
Base64Bitmap
is free and open-source software licensed under the