对Zlib单元进行再封装低版本DELPHI，如D7，ZLIB.pas单元封装的很简陋，因此有必要再封装，以增加使用的便利性。高版本DELPHI，zlib.pas本身提供的接口已经相当完善。Zlib.pas是DELPHI自带的压缩单元，下面对对Zlib单元进行再封装，增加两个压缩函数，一个压缩流，一个压缩字符串：分别在D7和XE10.3.1下面，测试通过。 unit Unit1; interface uses ZLib, Windows, Messages, SysUtils, Variants, Cl
位运算Delphi 的按位运算符共有六个: not and or xor shr shl; 其中的 not and or xor 也叫逻辑运算符, 其实功能都是一样的, 因为不管什么数据追到底都是 0 和 1 的组合 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(T
http json tokenhttps使用证书来保证链接的安全，是目前最为流行的做法。另一种保证HTTP 函数的安全，就是http json token，只有TOKEN验证通过，才能调用方法（一般指通过HTTP GET/POST调用的REST API）。1）客户端调用REST API的时候，要增加TOKEN参数及值演示使用HS256，只有公钥，没有私钥 procedure TForm1.Button5Click(Sender: TObject);//HTTP TOKENbegin const sec
function DirWritable(m_dir : string) : boolean; //目录是否有写入权限 var tmpStrs: TStrings; //测试数据目录是否写权限 tmpName : string;begin //参数为目录，包含最后的斜杠 //如果可写，返回True try Result := True; tmpStrs := TStringList.Create; tmpStrs.Add('1and1-aMail
function IsValidIP(Str: string): Boolean; // 检查IP地址合法性var i, PartCount { 用多少段,以点号分开 } : Integer; Part: string;begin PartCount := 0; while Str <> '' do begin i := Pos('.', Str); if i = 0 then begin Part := Str;
Delphi实现百度地图经纬度与地址互转通过百度地图Geocoding API Web服务API，实现输入经纬度坐标，转换为经纬度所在地址，效果如图：Delphi百度地图经纬度与地址互转 Delphi专题 第1张API参见1、百度地图地理编码服务Geocoding API2、百度地图国际化逆地理编码服务Geocoding API接口功能介绍1、地理编码http://api.map.baidu.com/geocoder/v2/?address=北京市海淀区上地十街10号&output=json&a
Delphi XE8安卓下汉字转Gb2312 urlencode代码在Android下汉字转GB2312 urlencode时候，如果使用下边代码：Edit2.Text :=Tnetencoding.url.EncodeBytesToString( Tencoding.GetEncoding(936).getbytes('提交'));//会提示错误No mapping for the Unicode character exists in the target multi-byte co
通过百度地图Geocoding API Web服务API，实现输入经纬度坐标，转换为经纬度所在地址，效果如图：API参见1、百度地图地理编码服务Geocoding API2、百度地图国际化逆地理编码服务Geocoding API接口功能介绍1、地理编码http://api.map.baidu.com/geocoder/v2/?address=北京市海淀区上地十街10号&output=json&ak=您的ak&callback=showLocation //GET请求2、逆地理编码