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;