delphi6 base64转图片

在Delphi 6中，可以使用以下步骤将Base64字符串转换为图片：

1. 首先，你需要将Base64字符串解码为字节数组。可以使用`TNetEncoding.Base64.DecodeStringToBytes`方法来完成解码。例如：

var
  base64Str: string;
  bytes: TBytes;
begin
  base64Str := 'your_base64_string_here';
  bytes := TNetEncoding.Base64.DecodeStringToBytes(base64Str);
end;

2. 接下来，你可以将字节数组保存为图片文件。可以使用`TMemoryStream`和`TBitmap`来完成这一步骤。例如：

var
  ms: TMemoryStream;
  bmp: TBitmap;
begin
  ms := TMemoryStream.Create;
  try
    ms.WriteBuffer(bytes, Length(bytes));
    ms.Position := 0;

    bmp := TBitmap.Create;
    try
      bmp.LoadFromStream(ms);
      bmp.SaveToFile('path_to_save_image');
    finally
      bmp.Free;
    end;
  finally
    ms.Free;
  end;
end;

以上代码将Base64字符串解码为字节数组，并将字节数组保存为图片文件。你只需要将`your_base64_string_here`替换为你的Base64字符串，将`path_to_save_image`替换为你想要保存图片的路径。