11 2017 档案

delphi 获取跃点、网卡序号，添加、删除路由节点
摘要：1 uses 2 Windows, WinSock, IpHlpApi, IpRtrMib; 3 4 //获取网卡序号 5 function GetGPIndex(const AIP: AnsiString): Cardinal; 6 var 7 ipinfo, info: PIpAdapterInfo; 8 ips: TIpAddrString; ... 阅读全文
posted @ 2017-11-30 14:58 伯通心智 阅读(781) 评论(0) 推荐(0)
delphi 绘制二维码
摘要：uses vcl.Graphics, DelphiZXingQRCode; procedure CreateQRCode(AImg: vcl.Graphics.TBitMap; const ACode: String); const IMG_SCALE = 25; //放大倍数 var QRCode: TDelphiZXingQRCode; Row, Column: Inte... 阅读全文
posted @ 2017-11-25 15:48 伯通心智 阅读(2193) 评论(0) 推荐(0)
delphi RGB 转 HSV
摘要：1 procedure RgbToHsv(R, G, B: Byte; var H, S, V: Single); 2 var 3 mx, mn: Byte; 4 tmp: Single; 5 begin 6 mx := R; 7 mn := R; 8 if mx G then mn := G; 11 if mn > B then mn := B; 12... 阅读全文
posted @ 2017-11-25 15:28 伯通心智 阅读(440) 评论(0) 推荐(0)