delphi如何把json传递过来的base64值转成图片

最新推荐文章于 2024-08-08 11:24:32 发布

red_eye

最新推荐文章于 2024-08-08 11:24:32 发布

阅读量1k

点赞数

分类专栏： delphi json 文章标签： c# 编辑器 Powered by 金山文档

本文链接：https://blog.csdn.net/red_eye/article/details/129634709

版权

该文章展示了如何在Delphi中使用TNetEncoding.Base64.DecodeString方法将从JSON获取的Base64编码图像数据转换为二进制，然后保存为图像文件或加载到TImage组件中显示。示例代码包括了将Base64字符串解码并保存为文件或直接显示在TImage组件的过程。

摘要由CSDN通过智能技术生成

在Delphi中，您可以使用TNetEncoding.Base64.DecodeString方法将JSON传递过来的Base64编码字符串转换为原始二进制数据。然后，您可以将该二进制数据保存为图像文件或将其加载到TImage组件中以显示图像。

以下是一个示例代码，假设Base64编码的图像数据存储在JSON字符串的“image”字段中：

copy codeuses
  System.NetEncoding, System.Classes, Vcl.Imaging.jpeg, Vcl.Graphics;

procedure Base64ToImage(const ABase64String: string; const AFileName: string);
var
  InputBytes: TBytes;
  OutputStream: TMemoryStream;
  JPEGImage: TJPEGImage;
begin
  // 将Base64编码的字符串转换为原始二进制数据
  InputBytes := TNetEncoding.Base64.DecodeString(ABase64String);

  // 将二进制数据保存到文件
  OutputStream := TMemoryStream.Create;
  try
    OutputStream.WriteBuffer(InputBytes[0], Length(InputBytes));
    OutputStream.SaveToFile(AFileName);
  finally
    OutputStream.Free;
  end;

  // 或者将二进制数据加载到TImage组件中
  JPEGImage := TJPEGImage.Create;
  try
    JPE