delphi base64编码图片字符串转化图片显示IMAGE

Question

得到如下/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAgEBAgICAgICAgEBAgICAgICAgICAgICAgL/2wBDAQEBAQEBAQEBAQECAQEBAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgL/wAARCAEgAWADASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD+Xb9h9v8AiSfF+fy/Ie31r4eyLqP2KO9mt0j03xu76dbxsVkF1rIARCJoA21k3Ftq19l3ms2zWlrbaXb+aY01u5iFrql+/wBttLTbpDX22CU6i8M1w2+4j8uF38lYxA2Hmi+Kf2IGmh0b4w3IjWeK0v8AwC9ynneVcw239m+N0kvQz2t3bfZYg4Eizb0lJEPlSbsD7g8Mf2hoF9Z+JLfUdRs7zS9R1MRfYLyZdeOnx2ttp90iX8EVjKY5BcXAmzexWzRyxw2sN1y6HbyA/SP9n+WT4vfs1+JvAV1a/wBsar4UsINT0K9jnn+26TbrDc3Dx6FeRSnzZ7hmEhtTv2Fc2wjdmuU+BrWTXW1q28HWNp/aPiOC6hEFtcaVBq0U3jH+17rRbGK9s59O/fWhhO43VkrSw3BLifiZpPub9hTTvEcfxP1a7s7WbU/AusaHb6Z4su7uFLe303TlGpReWB5vyqbfYJpUk1Aupfbe3YZre2+lLb4NfD34aN8b7i4i0a4+IXgrUfCXjDwhs+0WSTwNremzafF5dnZXs08lpb/KtuWk2wbZopNiGN63/DXtpt/SK6fLT0PWf2Cf2E/h3q+o6jf/ALbF9Jo9l/wj8N3Bos099b3A8+3mh/dy22Iftecl1hFrZxW+Ci3DNIH+Lfjb8J/h/bfsy/tI2HgjSNJ1LSPh78Z7lfC1zBbWstzaeFrbUrFNLiuNlmQX25klVbW6QDFzDFMQbcfrL+058fPhP+0H8GL7QPD/AIbvrf4n6l4L0L+w301dUSSBbC0t45v+Pm40vTtl7Mv71o/MvjDzbhpdor8jPDlnqZ/Zn/a48OzXrrrGj2Vhr/2TUYBEbO/sP3NzN5Mf+kRwOsDspb7H5akGW2uWedxP42uk30T3S+5fdqSfM+g+bq3gfR7r7I1xc614e09ftOrEfZRctbvcyXNjZKYlimtAw+zTw3ksMqZIA3yMOp8DTf2j4P8AEmmWdpC2kWHw88R/aIWttG33jWkDNNqk5jmhDDfalv31nuUNhXaJUmXnfh1p0moeBPCVn9v/AHP/AAjH9k3G5j字符串，请问如何显示到IMAGE1

Answer 1

 IdDecoderMIME1:=TIdDecoderMIME.Create(nil);
  Try
    str:=IdDecoderMIME1.DecodeString(str1);
    strlist:=TStringlist.Create;
    try
      strlist.Add(str);
      strlist.SaveToFile(FileName);
    finally
      strlist.Free;
    end;
  Finally
    IdDecoderMIME1.Free;
  End;