![](https://img-blog.csdnimg.cn/20201014180756738.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
明明人
我很喜欢我的工作,喜欢程序员这个职业。
展开
-
代码片段
USES IdGlobal,IdHash; function GetMd5Str(ContenStr:string):string; var RegMd5:TIdHashMessageDigest5; RegDigest:T4x4LongWordRecord; begin RegMd5:=TIdHashMessageDigest5.Create; RegDigest:=RegMd转载 2016-03-29 17:22:19 · 195 阅读 · 0 评论 -
IdWhois查询乱码修正
原代码 function TIdWHOIS.WhoIs(const ADomain: string): string; begin Connect; try IOHandler.WriteLn(ADomain); Result := IOHandler.AllData; finally Disconnect; end; end; 修改为 function原创 2016-02-19 15:02:40 · 520 阅读 · 0 评论 -
UTF-8 response of TIdHTTPServer with Free Pascal
原链接:原链接 问题 (Question) This code starts a HTTP server which listens for requests on port 8080. When compiled with Delphi 2009, the Chinese text is rendered correctly. With Free Pascal 2.6.0转载 2016-02-19 15:14:34 · 1181 阅读 · 0 评论 -
send sms
unit untSMS; interface uses System.Hash, System.Net.HttpClientComponent, System.Classes, System.Generics.Collections, System.SysUtils, System.JSON, System.NetEncoding; type TSmsBase...转载 2018-04-09 09:48:29 · 1112 阅读 · 0 评论