Delphi对接快递单的md5函数
对接快递单每个快递商家的接口都不同，但基本大同小异，主要的算法都是md5 和Base64。一般提供的Demo都不会有Delphi的。其实md5和Base64Delpi都自带了。 base64一般都不会有问题，主要是md5，很多用Delphi对接的，主要的问题都是出在这里。下面我分享对接两个不同快递接口，用到的md5处理都不同。 procedure TForm1.SpeedButton1Click(Sender: TObject); var Str:String; M5Str,BaseStr:AnsiString; begin str:=StringReplace(Trim(Edit1.Text),' ','',[rfReplaceAll]); Memo1.Lines.Add('原文'+str); M5Str:=THashMD5.GetHashString(Str); Memo1.Lines.Add('MD5:'+M5Str); Memo1.Lines.Add('QDAC,URL:'+qstring.UrlEncode(str,False,true)); Memo1.Lines.Add('TNET,URL:'+TURLEncoding.URL.Encode(str)); BaseStr:=TNetEncoding.Base64.Encode(M5Str); Memo1.Lines