rest api上传和下载文件 function FileToString(AFileName: string): string; var LMemoryStream: TMemoryStream; LStringStream: TStringStream; LDstStream: TMemoryStream; begin Result := ''; if not FileExists(AFileName) then Exit; LMemoryStream := TMemoryStream.Cr