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 · 189 阅读 · 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 · 509 阅读 · 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 · 1159 阅读 · 0 评论 -
send sms
unit untSMS;interfaceuses System.Hash, System.Net.HttpClientComponent, System.Classes, System.Generics.Collections, System.SysUtils, System.JSON, System.NetEncoding;type TSmsBase...转载 2018-04-09 09:48:29 · 1092 阅读 · 0 评论