汇编写的BASE64 unit Base64; { procedure TForm1.Button1Click(Sender: TObject); var Source, Dest: TStream; begin if OpenDialog1.Execute then begin Source := TFileStream.Create(OpenDialog1.FileName, fmOpenRead); // 打开源文件 Dest := TFileStream.Create('Base64En