[poli-smen]

Сообщение от Easy

переделал функцию декодирования вот так

Код:

function TForm1.DecodeFile(): AnsiString;
var
ss: TStringStream;
begin
  stream := TMemoryStream.Create;
  ss:= TStringStream.Create('');
  bmp:= TBitMap.Create;
  try
  result:= memo1.Text;
  DecodeBase64(result);
  ss.WriteString(result);
  ss.Seek(0,0);
  stream.CopyFrom(ss, ss.Size);
  bmp.LoadFromStream(stream);
  image2.picture.assign(bmp)
  finally
    stream.Free;
    Bmp.Free;
    ss.Free;
  end;

end;

все запускается. но в image2 ничего не отображается

Вообще-то DecodeBase64 это не процедура, а функция которая возвращает результат, который ты не используешь и поэтому ничего не отображается в image2.
В твоём случае наверно вместо DecodeBase64 лучше использовать DecodeString или DecodeStream.