[Easy]

нет, не работает. программа колом встает. и нагрузку на систему 99% выдает.
вот у меня вот этот код

Код:

function TForm1.EncodeFile(): AnsiString;
begin
  stream := TMemoryStream.Create;
  try
    bmp.SaveToStream(stream);
    result := EncodeBase64(stream.Memory, stream.Size);
    memo1.Text:= result;
  Except
    on E : Exception do
   ShowMessage(E.ClassName+' ошибка с сообщением : '+E.Message);
  end;

    stream.Free;
    Bmp.Free;

end;

вроде кодирует. не могу сказать точно. но в memo загружается текст.
вот такой

Qk1mMjwAAAAAADYAAAAoAAAAVgUAANICAAABACAAAAAAADAyPA AAAAAAAAAAAAAAAAAAAAAASGQZ
ACdiIQAuZCAANGYhADhnIAA5cCAANG8gACxuIAAobB4AJGwdAC RuHwAmbB8AKG8fAC1vHwAsbR8A
LW4hAClvHgArbR0AJmwiACptHgAwcSQAMG8kADBvJAAxciUANH EkADNwJAA+dCUAQHUnAEN1JgBE
dSYARXcmAEB0KAA+dScAPnQlADpyJgA4dCYAOnUnAD5zLAA8dC wAPXQqADtzKgA7ciwAOnQsADp0
LQA5dSoAOXMsADlyKwA4cioAOXErADdyKgA4cioAOHMrAD1zLg A8czAAPnMwAD5yMAA8cjAAPXEv
ADxyLgA8cTAAPXMwAD5yMAA9cjAAPnEuAD9yMQA/czEAPnMwAD5yMwA+cTEAQHMxAD1xMQA+cjAA
PnMxAD9yMQBAczEAQ3QwAEN1MgBFdy8AR3UwAEZ0MgBFdi8AR3 UwAEJzKwBCdS0AP3QrAD9rKwA9
aioAPWkqADNnIQAzZiIAMmUiADhjIQDjcisA4m4qANZbIgClQR kApUEZAKVBGQClQRkApUEZAKVB

но декодировать это не получается. а еще и нужно из этого картинку сделать. пытаюсь вот так

Код:

function TForm1.DecodeFile(): AnsiString;
var
ss: TStringStream;
begin
  stream := TMemoryStream.Create;
  ss:= TStringStream.Create('');
  bmp:= TBitMap.Create;
  try
  memo1.Lines.SaveToStream(ss);
  //ss.Seek(0,0);
  //stream.CopyFrom(ss, ss.Size);
  DecodeStream(ss, stream);
  bmp.LoadFromStream(stream);
  image2.picture.assign(bmp)
 Except
    on E : Exception do
    ShowMessage(E.ClassName+' ошибка с сообщением : '+E.Message);
  end;

    stream.Free;
    Bmp.Free;
    ss.Free;




end;

по нажатию на кнопку вызываю функцию. но ничего не происходит...