webservices传base64字串

最新推荐文章于 2021-10-15 20:42:59 发布

weixin_30872671

最新推荐文章于 2021-10-15 20:42:59 发布

阅读量138

点赞数

原文链接：http://www.cnblogs.com/hnxxcxg/archive/2012/10/28/2743186.html

版权

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;