zoukankan      html  css  js  c++  java
  • rest api上传和下载文件

    rest api上传和下载文件

    function FileToString(AFileName: string): string;
    var
      LMemoryStream: TMemoryStream;
      LStringStream: TStringStream;
      LDstStream: TMemoryStream;
    begin
      Result := '';
      if not FileExists(AFileName) then
        Exit;
      LMemoryStream := TMemoryStream.Create;
      LStringStream := TStringStream.Create;
      LDstStream := TMemoryStream.Create;
      try
        LMemoryStream.LoadFromFile(ExtractFilePath(ParamStr(0)) + AFileName);
        LMemoryStream.Position := 0;
        ZCompressStream(LMemoryStream, LDstStream);
        LDstStream.Position := 0;
        TNetEncoding.Base64.Encode(LDstStream, LStringStream);
        Result := LStringStream.DataString;
      finally
        LMemoryStream.Free;
        LStringStream.Free;
        LDstStream.Free;
      end;
    end;
    

      

    procedure FileFromString(AFileName, AFileContent: string);
    var
      LStringStream: TStringStream;
      LMemoryStream: TMemoryStream;
      LOrgStream: TMemoryStream;
    begin
      if AFileName = '' then
        Exit;
      LStringStream := TStringStream.Create(AFileContent);
      LMemoryStream := TMemoryStream.Create;
      LOrgStream := TMemoryStream.Create;
      try
        LStringStream.Position := 0;
        TNetEncoding.Base64.Decode(LStringStream, LOrgStream);
        LOrgStream.Position := 0;
        ZDecompressStream(LOrgStream, LMemoryStream);
        LMemoryStream.Position := 0;
        LMemoryStream.SaveToFile(ExtractFileName(AFileName));
      finally
        LStringStream.Free;
        LMemoryStream.Free;
        LOrgStream.Free;
      end;
    end;
    

      

  • 相关阅读:
    数据库出现中文乱码解决方法
    OO第四次博客作业
    OO第三次博客作业
    OO第二次博客作业
    OO前三次作业反思
    mybatis怎么自动生成实体类,Mapper配置文件和Dao接口
    Win7+VS2013初试Thrift
    静态链接库与动态链接库
    排序算法总结
    TCP/IP协议详解
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/10272284.html
Copyright © 2011-2022 走看看