编译环境:Windows 7 +Delphi xe 10.3.2

封装了快递鸟接口,注意的坑:MD5要转为小写。

function TKDniaoAPI.StrtoMd5(const str: string): string;
var
  AMD5: TIdHashMessageDigest5;
begin
  AMD5 := TIdHashMessageDigest5.Create;
  try
    Result := AnsiLowerCase(AMD5.HashStringAsHex(str, IndyTextEncoding(TEncoding.UTF8)));
     //注意转小写
  finally
    AMD5.Free;
  end;
end;

 

posted on 2019-11-19 14:51  redhat588  阅读(424)  评论(0编辑  收藏  举报