zoukankan      html  css  js  c++  java
  • webservices传base64字串

    function CompressStrToBase64(sStr: string): string;
    var
      M1: TMemoryStream;
      M0, M2: TStringStream;
    begin
      Result := '';
      if sStr = '' then
        Exit;
      M0 := TStringStream.Create(sStr);
      M1 := TMemoryStream.Create;
      M2 := TStringStream.Create(' ');
      try
        M0.Position := 0;
        M1.Position := 0;
        ZCompressStream(M0, M1);
        M1.Position := 0;
        M2.Position := 0;
        EncodeStream(M1, M2);
        Result := M2.DataString;
      finally
        FreeAndNil(M0);
        FreeAndNil(M1);
        FreeAndNil(M2);
      end;
    end;

    function DeCompressBase64ToStr(sStr: string): string;
    var
      M0, M1: TStringStream;
      M2: TMemoryStream;
    begin
      Result := '';
      if sStr = '' then
        Exit;
      M0 := TStringStream.Create('');
      M1 := TStringStream.Create(sStr);
      M2 := TMemoryStream.Create;
      try
        M1.Position := 0;
        M2.Position := 0;
        DeCodeStream(M1, M2);
        M0.Position := 0;
        M2.Position := 0;
        ZDecompressStream(M2, M0);
        Result := M0.DataString;
      finally
        FreeAndNil(M0);
        FreeAndNil(M2);
        FreeAndNil(M1);
      end;
    end;

  • 相关阅读:
    一些常用的接口地址
    1-项目启动
    事件处理优化
    如何javascript获取css中的样式
    mysql编程--创建函数出错的解决方案
    mysql编程---函数
    mysql---数据控制语言(用户及其权限管理)
    php与mysql的常规使用
    php数组的使用
    php函数的使用
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/2743186.html
Copyright © 2011-2022 走看看