Кодировать изображение Base64 и отправить как строку.

[Человек_Борща]

Доброго времени суток!

Есть некий сервер со своим протоколом. Ему необходимо передавать изображение в виде строки, сжатой в base64, в теле XML файла.

Вопрос в кодировании картинки как строки в base64.

Пробую так:

              png := TPNGImage.Create;
              try
                png.Assign(bmp);
                png.SaveToStream(mEncStream);
              finally
                FreeAndNil(png);
              end;
              EncodeStream(mEncStream, sEncStream);
              if (sEncStream.Size > 0) then
                sScrImgEncoded := sEncStream.DataString;

mEncStream, sEncStream - TStringStream'ы.
Использую base64 "из коробки".

Пробовал заменять mEncStream на MemoryStream.

sEncStream.Size - всегда 0. Почему?

Кто знает, как это делать правильно?

проблему решил:
Нужен только 1 поток.

              sEncStream.Position := 0;
              sScrImgEncoded := EncodeString(sEncStream.ReadString(sEncStream.Size));