楼主的RichEdit控件应该是显示Rtf文件，Word文件的话,RichEdit控件是显示不了的。
...
uses EncdDecd;
//RichEdit1,RichEdit2:TRichEdit;
//Memo1:TMemo;
procedure TForm1.Button2Click(Sender: TObject);//打开Rtf文件
begin
if not OpenDialog1.Execute then exit;
RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MSStream:TMemoryStream;
TSString,TSString2:TStringStream;
ssBlob:string;
begin
MSStream:=TMemoryStream.Create;
try
MSStream := TMemoryStream.Create; // 创建内存流
TSString := TStringStream.Create('');
try
RichEdit1.Lines.SaveToStream(MSStream);
MSStream.Position:=0;
//引用单元 EncdDecd,才能引用函数EncodeStream和DecodeStream
//DecodeStream(Tss,Tms);//在这个位置是将base64转为内存流
EncodeStream(MSStream,TSString); //将内存流转化base64
ssBlob:=TSString.DataString; //转换成 字符串
Memo1.Text :=ssBlob; //保存为 字符串
MSStream.Clear;
Memo1.Lines.SaveToStream(MSStream);
TSString2:=TStringStream.Create('');
try
MSStream.Position:=0;
DecodeStream(MSStream,TSString2);
TSString2.Position:=0;
RichEdit2.Lines.LoadFromStream(TSString2);
finally
TSString2.Free;
end;
finally
TSString.Free;
end;
finally
MSStream.Free;
end;
end;
