How to convert a TMemoryStream into an Base64 encoded string in DelphiXE3 
and vice verse?

I know JCLMime.pas, but it works only from Stream to Stream or from 
ANSISTRING to ANSISTRING.

Did someone makes a performance test between JCLMime, Indy and SOAP?

Thanks, too.

Thanks for TStringStream.

I'm using now this functions:

  function StreamToMimeString(const aStream: TMemoryStream): string;
  var
    aOutput: TStringStream;
  begin
    aOutput := TStringStream.Create;
    try
      //EncodeStream(aStream, aOutput);            //Soap.EncdDecd including 
LineBreaks
      MimeEncodeStreamNoCRLF(aStream, aOutput);    //JclMime no LineBreaks
      Result := aOutput.DataString;
    finally
      aOutput.Free;
    end;
  end;

  function MimeStringToStream(const aString: string): TMemoryStream;
  var
    aInput: TStringStream;
  begin
    Result := TMemoryStream.Create;
    aInput := TStringStream.Create(aString);
    try
      //DecodeStream(aInput, Result);
      MimeDecodeStream(aInput, Result);
    finally
      aInput.Free;
    end;
  end;

Mathias wrote:

> How to convert a TMemoryStream into an Base64 encoded
> string in DelphiXE3 and vice verse?

Indy 10 ships with Delphi, and has TIdEncoderMIME and TIdDecoderMIME classes 
for working with base64:

{code:delphi}
uses
  ..., IdCoderMIME;

var
  S: String;
  Stream: TMemoryStream;
....
  S := TIdEncoderMIME.EncodeStream(Stream);
{code}

{code:delphi}
uses
  ..., IdCoderMIME;

var
  S: String;
  Stream: TMemoryStream;
....
  TIdDecoderMIME.DecodeStream(S, Stream);
{code}

--
Remy Lebeau (TeamB)

Mathias Pannier wrote:

> How to convert a TMemoryStream into an Base64 encoded string in
> DelphiXE3 and vice verse?
> 
> I know JCLMime.pas, but it works only from Stream to Stream or from
> ANSISTRING to ANSISTRING.

The built in functions do the same.  Stream to stream or string to
string.

I would do it in two steps.  1) Encode the stream and 2) read from the
destination stream into a string.

-- 
Regards,
Bruce McGee
Glooscap Software

> {quote:title=Mathias Pannier wrote:}{quote}
> How to convert a TMemoryStream into an Base64 encoded string in DelphiXE3 
> and vice verse?
> 
> I know JCLMime.pas, but it works only from Stream to Stream or from 
> ANSISTRING to ANSISTRING.

Hi, 

Something like this ?

{code}
uses encdDecd;

{$R *.dfm}

procedure TForm19.Button1Click(Sender: TObject);
var MyString : String;
    a : TStringStream;
    b : TStringStream;
begin
  a :=  TStringStream.Create;
  b := TStringStream.Create;

  a.WriteString('Hello World');
  a.Position := 0;
  b.Clear;

  EncodeStream(a,b);

  ShowMessage('base64 Encoded : ['+b.DataString+']');

  a.Clear;
  b.Position := 0;
  DecodeStream(b,a);

  ShowMessage('base64 Decoded : ['+a.DataString+']');
end;
{code}