title: Image To String Delphi XE7 Android and Ios
body: <p>Im programming mobil app with WebSevices at Delphi Xe7 FireMonkey.
  I have a webmethod on webservice. That webmethod is post Base64 string  to my database.
  Delphi Side is create this Base64 string from Bitmap.
  Im use this algorithm</p>
  
  <pre><code>Uses ....EncdDecd;
  function Tfrm_yenikayit.BitmapToBase64(Bitmap: TBitmap): string;
  var
    Input : TMemoryStream;
    Output: TStringStream;
  begin
    Input := TMemoryStream.Create;
    try
      Bitmap.SaveToStream(Input);
      Input.Position := 0;
      Output := TStringStream.Create('');
      try
        EncdDecd.EncodeStream(Input, Output);
        Result := Output.DataString;
      finally
        Output.Free;
      end;
    finally
      Input.Free;
    end;
  end;
  </code></pre>
  
  <p>But A Photo that size's 1920x1280 is giving approximately 3 million charecter to result.
  How to i making image to short string and fastest than this algorithm?</p>