DELPHI 解决 Base64文件 每76字符换行问题 （不生成换行符）

1、引用单元 IdCoderMIME

2、文件Base64编码

function FileBase64(aFilePath: string): string;

var
  IdEncoderMIME : TIdEncoderMIME;
  FileStream:TFileStream;
begin
  Result:= True;
  if FileExists(aFilePath) then
  begin
    FileStream:= TFileStream.Create(aFilePath,fmOpenRead);
    IdEncoderMIME:= TIdEncoderMIME.Create(nil);
    try
      try
         Result:= IdEncoderMIME.EncodeStream(FileStream);
      except on E: Exception do
        showmessage(e.message)
      end;
    finally
      FileStream.Free;
      IdEncoderMIME.Free;
    end;
  end;
end;

3、BASE64解码

function TForm1.Base64DeCode(aBase64EncodeStr: string): Boolean;
var
  IdDeCoderMIME : TIdDeCoderMIME;
  MemoryStream:TMemoryStream;
begin
  IdDeCoderMIME:= TIdDecoderMIME.Create(nil);
  MemoryStream:=TMemoryStream.Create;
  try
    try
      IdDeCoderMIME.DecodeStream(Trim(mmo1.Text), MemoryStream);
      MemoryStream.SaveToFile('d:\idMinie.jpg');
    except on E: Exception do
      begin
        ShowMessage(e.Message);
      end;
    end;
  finally
    MemoryStream.Free;
    IdDeCoderMIME.Free;
  end;
end;