abc

博客园 首页 新随笔 联系 订阅 管理

03 2016 档案

摘要:1.屏蔽Float浮点数出错:Set8087CW(Longword($133f));2.Idhttp参数设置: FIdhttp := TIdHTTP.Create(nil); FSSL := TIdSSLIOHandlerSock... 阅读全文
posted @ 2016-03-16 17:11 &大王叫我来巡山& 阅读(338) 评论(0) 推荐(0)

摘要:function HttpEncode(S:AnsiString):string; var P:^Byte; I:Cardinal; begin Result:=''; P:=@S[1]; Result:=Format('%%%x',[Ord(P^)]); for I := 1 to Length( 阅读全文
posted @ 2016-03-09 21:52 &大王叫我来巡山& 阅读(404) 评论(0) 推荐(0)