如何在Delphi中实现精确到微秒级的时钟

  {A high-precision counter/timer. Retrieves time differences                 downto microsec. Quick Reference:                 THPCounter inherits f...

2018-04-22 15:30:07

阅读数 690

评论数 0

使用 Delphi Xe 的 TDictionary

原本一直使用 TList, 将定义的一个个 Record 保存在TList 里面, 为了能把某些对象管理起来, 例如一个类的 n 多实例,可以进行索引、查找、释放等 今天刚看到原来已经有了一个叫 TDictionary 对象,用起来挺方便。 挺像我们在DB中定义的 Dictionary 表,Ke...

2018-01-30 22:04:07

阅读数 1165

评论数 0

delphi 弹出ado连接配置相关函数

function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString; procedure CreateUDLFile(const FileName, ProviderName, Dat...

2018-01-30 21:57:55

阅读数 307

评论数 0

delphi 各种时间类型之间的转换函数

各种时间类型之间的转换函数 DateTimeToFileDate函数: 定义:DateTimeToFileDate(DateTime: TDateTime): Integer; 作用: 将一个TDateTime类型的时间转化为Dos环境中的时间,Dos环境下对时间的访问方法和VCL中的TdateT...

2017-12-01 20:33:47

阅读数 2342

评论数 0

分布式系统唯一ID生成方案汇总

分布式系统唯一ID生成方案汇总 系统唯一ID是我们在设计一个系统的时候常常会遇见的问题,也常常为这个问题而纠结。生成ID的方法有很多,适应不同的场景、需求以及性能要求。所以有些比较复杂的系统会有多个ID生成的策略。下面就介绍一些常见的ID生成策略。 1. 数据库自增长序列或字段 最常...

2017-11-30 09:27:33

阅读数 488

评论数 0

Delphi XE中String、ANSIString、TBytes之间的转换 一、string转为ansistring 1、直接赋值 (有警告) 2、ansistring()类型强制转换。(无警

Delphi XE中String、ANSIString、TBytes之间的转换 一、string转为ansistring 1、直接赋值 (有警告) 2、ansistring()类型强制转换。(无警告) 二、ansistring 转为string 1、直接赋值 (有警告) 2、str...

2017-11-30 09:25:31

阅读数 1239

评论数 0

delphi禁止webbrowser弹出窗口或者脚本错误

delphi禁止webbrowser弹出窗口或者脚本错误 webbrowser1.silent:=true; //屏蔽脚本错误 procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; ...

2017-11-20 21:40:18

阅读数 643

评论数 0

【转】解决Delphi WebBrowser 无法调用当前浏览器的版本 复制代码

procedure TregedtIE.FormCreate(Sender: TObject);   begin     WriteAppNameToReg;     WebBrowser1.Navigate('C:\a.html');   end;   {--}   {需要注意是GetNativ...

2017-11-20 21:02:41

阅读数 1245

评论数 0

利用XE7的OmniXML完成XML文件的处理,支持跨平台

OmniXML是XE7提供的新DOM,传说比ADOM还要快,实际操作确实如此,这次我们来做几个文件操作, 首先在控件页上加上TXMLDocument控件,然后给控件命名为XMLDoc, 修改DOMVendor属性为OmniXML即可完成,操作与原来一样, 另外还有MSXML和ADOM...

2017-11-13 08:37:04

阅读数 410

评论数 0

delphi中GetEnumName和GetEnumValue

利用TypInfo单元的GetEnumName和GetEnumValue可以遍历任意枚举类型,并获取其名称和值。下面是示例Demo。 procedure TForm1.btnTestClick(Sender: TObject); var   p: PTypeData;   i: Inte...

2017-10-25 09:03:25

阅读数 274

评论数 0

Delphi通过管道执行外部命令行程序(cmd)并获取返回结果

//================================================================ //K8执行DOS并返回结果 function RunDosCommand(Comman...

2017-10-15 14:45:37

阅读数 1751

评论数 0

基于Token的身份验证——JWT

初次了解JWT,很基础,高手勿喷。 基于Token的身份验证用来替代传统的cookie+session身份验证方法中的session。 JWT是啥? JWT就是一个字符串,经过加密处理与校验处理的字符串,形式为: A.B.C A由JWT头部信息header加密得到 B由JWT用...

2017-10-11 16:00:27

阅读数 797

评论数 0

基于Token的WEB后台认证机制

几种常用的认证机制 HTTP Basic Auth HTTP Basic Auth简单点说明就是每次请求API时都提供用户的username和password,简言之,Basic Auth是配合RESTful API 使用的最简单的认证方式,只需提供用户名密码即可,但由于有把用户名密码暴露给第...

2017-10-11 15:28:08

阅读数 185

评论数 0

TMemoryStream、String与OleVariant互转

TMemoryStream、String与OleVariant互转 //////////////////////////////////////////////////////////////////////////////// //功能: STRING 的内容流化到 OLEVARIANT...

2017-09-29 19:50:04

阅读数 172

评论数 0

JSON 之 SuperObject(14): 从 XML 中解析

JSON 之 SuperObject(14): 从 XML 中解析 SuperObject 文件包中还有一个 SuperXmlParser 单元, 可以从 XML 中解析出 ISuperObject. SuperXmlParser 只有三个函数: XMLParseString、XM...

2017-09-29 09:01:32

阅读数 678

评论数 0

Delphi DataSet和JSON互转函数

一、DataSet转JSON [delphi] view plain copy print? //1)数据集转换为JSON字符串:  //需USES System.JSON;    function DataSetToJson(ADataset: TDataSet)...

2017-09-28 20:49:10

阅读数 571

评论数 0

HTTP协议详解(真的很经典)

Author :Jeffrey 引言 HTTP是一个属于应用层的面向对象的协议,由于其简捷、快速的方式,适用于分布式超媒体信息系统。它于1990年提出,经过几年的使用与发展,得到不断地完善和扩展。目前在WWW中使用的是HTTP/1.0的第六版,HTTP/1.1的规范化工作正在进行之中,...

2017-09-27 09:21:33

阅读数 182

评论数 0

Sending a URL to Another App on Android and iOS with Delphi XE5

Here is the source code for my Open and View URL library from my CodeRage 8 session “Beyond the App”. Here is a download of the example app. I’ll...

2017-09-26 17:11:26

阅读数 600

评论数 0

使用 BinToHex() 把 TBytes 转换为十六进制字符串

{函数} function BytestoHexString(ABytes: TBytes; len: Integer): AnsiString; begin   SetLength(Result, len*2);   BinToHex(@ABytes[0], PAnsiChar(Result),...

2017-09-20 19:29:15

阅读数 772

评论数 0

Delphi下16进制位图数据转位图

如果我们在Form中拖入一个Image控件,并设置好picture后,Alt+F12就可以看到Form的源代码中已经将图片转成了16进制字符串,如下: object Image1: TImage Left = 536 Top = 24 Width = 105 ...

2017-09-20 19:02:22

阅读数 753

评论数 0

提示
确定要删除当前文章?
取消 删除
关闭
关闭