- 博客(3)
- 资源 (5)
- 收藏
- 关注
原创 原创:DELPHI编写OLED12864图像取模工具
//关键过程,将图片装载在TImage中,然后按照需要的顺序读取每个像素值,生成二进制列,然后转换成十六进制即可: for tx_h:= 0 to 63 do begin for tx_w:= 0 to 127 do begin if ColorTobrt(form1.Image1.Canvas.Pixels[tx_w,tx_h]) > 127 then //设置的域值为127,函数Co...
2021-09-19 15:06:42 397
原创 IP地址物理位置查询,支持IPV6
其实很简单,通过公开的查询接口获取JSON,解析即可。IPV4:CX_URL := 'http://whois.pconline.com.cn/ipJson.jsp?json=true&ip=';try JSONStr := form1.IdHTTP1.Get(CX_URL + ipv4); if JSONStr <> '' then begin aJson:=TJSONObject.ParseJSONValue(Trim(JSONStr)) as TJS...
2021-09-13 16:25:38 492
原创 身份证号码校验位的计算方法
Delphi例子:function jy_sfzh(Str:string):char;varr:integer;t_tmp:integer;jym:char;beginif (isnum(copy(Str,1,17))=true) and (isdate(copy(Str,7,8))=true) thenbegin t_tmp:=(strtoint(Str[1])*7 +strtoint(Str[2])*9 +strtoint(Str[3])...
2021-09-13 15:46:04 423
XLSReadWriteII5.pas FOR DX104
2021-10-15
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人