xe下BASE64中文

unit Soap.EncdDecd;

 

var basestr:ansiString;
  a: String;
begin
  a:=self.Edit1.Text;
 basestr:=UTF8Encode(a);
 self.Memo1.Lines.Add(EncodeBase64(@basestr[1],length(basestr)));

 

 

 

var
  InStr, OutStr: TStringStream;
begin
  InStr := TStringStream.Create(UTF8Encode(self.Edit1.Text));
  try
    OutStr := TStringStream.Create('');
    try
      EncodeStream(InStr, OutStr);
       self.Memo1.Lines.Add(OutStr.DataString);
    finally
      OutStr.Free;
    end;
  finally
    InStr.Free;
  end;