title: Convert BitMap to string without line breaks?
body: <p>Somewhere I found this code to convert a BitMap to a string:</p>
  
  <pre><code>function Base64FromBitmap(Bitmap: TBitmap): string;
  var
    Input: TBytesStream;
    Output: TStringStream;
  begin
    Input := TBytesStream.Create;
    try
      Bitmap.SaveToStream(Input);
      Input.Position := 0;
      Output := TStringStream.Create('', TEncoding.ASCII);
      try
        Soap.EncdDecd.EncodeStream(Input, Output);
        Result := Output.DataString;
      finally
        Output.Free;
      end;
    finally
      Input.Free;
    end;
  end;
  </code></pre>
  
  <p>However, this gives back a block of wrapped lines. Is it possible to get one single line without line breaks?</p>