delphi 解析png base64

在Delphi中解析PNG Base64字符串，可以使用以下步骤：

步骤1: 将Base64字符串解码为字节数组。
要将Base64字符串解码为字节数组，可以使用Delphi内置的TNetEncoding类。使用TNetEncoding.Base64.Decode方法将Base64字符串解码为字节数组。

步骤2: 将字节数组保存为PNG图片文件。
使用TPngImage类将字节数组保存为PNG图片文件。可以使用AssignBytes方法将字节数组分配给TPngImage实例，并使用SaveToFile方法将图像保存为文件。

以下是一个示例代码，展示了如何在Delphi中完成这些步骤：

uses
  System.NetEncoding, Vcl.Imaging.pngimage;

procedure DecodePNGfromBase64(const base64: string; const filename: string);
var
  bytes: TBytes;
  pngImage: TPngImage;
begin
  // Step 1: Decode Base64 to Bytes
  bytes := TNetEncoding.Base64.DecodeStringToBytes(base64);

  // Step 2: Save Bytes as PNG Image File
  pngImage := TPngImage.Create;
  try
    pngImage.AssignBytes(bytes);
    pngImage.SaveToFile(filename);
  finally
    pngImage.Free;
  end;
end;

// Usage example
begin
  DecodePNGfromBase64('iVBORw0KGgoAAAANSUhEUgAAAAoAAAAKCAYAAACNMs+9AAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEwAACxMBAJqcGAAAAH1JREFUKJG9kNEKwjAARSBzAVuEPMmyDAlNEWz+AdQjaPriLDS3zDL2ELEVZKDDQnBUOdJftP2zQle+Z/gQygTSyn9v+tBZv6OzbgYw/S3IF83AmdeG6gEh7cGgEPipDNuAbczKoVQBHHEJ7plYjX7kMtJrbncCdZhXiBsANwX0f27+ocpAAAAAElFTkSuQmCC', 'myimage.png');
end.

在上面的示例中，`base64`参数是一个包含PNG图像编码的Base64字符串，`filename`参数是要保存PNG图像的目标文件名。