Delphi 是一款廣泛使用的編程語言，其支持多種數(shù)據(jù)格式，包括 JSON 數(shù)據(jù)格式。JSON 是一種輕量級(jí)的數(shù)據(jù)交換格式，常用于 Web 應(yīng)用中。此外，Delphi 還支持在 JSON 數(shù)據(jù)格式中嵌入圖片。

type
TImageBase64 = class(TCustomAttribute)
private
FData: string;
public
constructor Create(const AData: string);
property Data: string read FData write FData;
end;
function ImageToBase64(const Image: TGraphic): string;
var
MS: TMemoryStream;
Base64: TBase64Encoding;
begin
MS := TMemoryStream.Create;
try
Image.SaveToStream(MS);
MS.Position := 0;
Base64 := TBase64Encoding.Create;
try
Result := Base64.EncodeBytesToString(MS.Memory, MS.Size);
finally
Base64.Free;
end;
finally
MS.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ImageData: TJSONObject;
Img: TImage;
ImageBase64: TImageBase64;
begin
Img := TImage.Create(Self);
try
Img.Picture.LoadFromFile('image.jpg');
ImageBase64 := TImageBase64.Create(ImageToBase64(Img.Picture.Graphic));
ImageData := TJSONObject.Create;
ImageData.AddPair('image', TJSONString.Create(ImageBase64.Data));
Memo1.Lines.Add(ImageData.ToString);
finally
Img.Free;
ImageBase64.Free;
ImageData.Free;
end;
end;

上述代碼中，通過 TImage 組件加載圖片，并將其轉(zhuǎn)換為 Base64 編碼。接著，創(chuàng)建 TJSONObject 對(duì)象，并將圖片數(shù)據(jù)添加到 JSON 對(duì)象中。最后，將 JSON 對(duì)象轉(zhuǎn)換為字符串，輸出到 Memo 組件中。

在實(shí)際的應(yīng)用中，我們也可以將 Base64 編碼后的圖片數(shù)據(jù)保存到數(shù)據(jù)庫(kù)中，并在需要時(shí)從數(shù)據(jù)庫(kù)中讀取并解碼。