uses FMX.Platform; function TForm2.GetCurrentLan: string;var LocServ: IFMXLocaleService;begin //读取当前语言，测试通过。 if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(LocServ)) then Result := LocServ.GetCurrentLangID;end;以上
自己做 TCP 的操作，客户端采用 TIdTCPClient 用起来比较简单。经过测试，这个控件也比较稳定。Indy 的控件都是阻塞模式。阻塞模式下，代码比较简单，不容易出现面条代码。假设 TCP 连接已经建立，正常操作中，网络掉线了，可能过一段时间，网络又恢复了。比如拔掉网线这种情况。经过测试，发现以下状况。以下描述的情况，在主线程中操作，和在线程中操作，结果一样。在刚掉线的在几秒之内，发送数据不会出异常。看起来就是发送成功了（实际上肯定没发出去，网络已经掉了）。此时，检查其 Connected 属性
前两天帮人写程序用IdHTTP控件往一网站发包如下：Delphi代码IdHTTP1.Request.Connection:='Keep-Alive'; IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon)'; // idhttp1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE
理解Delphi中Sender用法procedure TForm1.Button1Click(Sender: TObject);beginend;解析：Procedure是过程，TForm是窗体类，加上数字就是某个窗体，像TForm1就是Form1窗体。Button1是你的按钮控件的名称，Button1Click就是按钮的单击事件，（Sender:Tobject）就是发送消息到对象，这里默认为本窗体。Sender的类型是Tobject,是Tobject的派生类。Delphi中Sender对象1.Send
CompareDate 比较两个日期时间值日期部分的大小CompareDateTime 比较两个日期时间值的大小CompareTime 比较两个日期时间值时间部分的大小DateOf 去除日期时间值的时间部分DateTimeToJulianDate 转换日期时间值为儒略日DateTimeToModifiedJulianDate 转换日期时间值为改进的儒略日DateTimeToUnix 转换日期时间值为Unix/Linus日期时间值Day of week 常量 ISO 8601标准中一周各天顺序的 常量Da
代码文件: -------------------------------------------------------------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TFo
Delphi 推出对 WebService 的支持很多年了。遥想当年 XML, SOPA 火爆的时候，Delphi 也跟风推出了对 WebService 的支持。现在 JSON RESTful 火爆了，Delphi 又跟风推出了 DataSnap。不过，我还是觉得 Delphi 的 WebService 采用的基于 Interface 的架构，代码更简单，优雅。不知道为什么 DataSnap 放弃了基于 Interface 的架构。莫非是 Delphi 的架构师换人导致的？目前看来，做基于互联网的应用，
Delphi 提供的加密解密控件中，LockBox 是一套非常优秀的开源控件。其前身是 TruboPower LockBox 是一套商业控件。LockBox 到 Version 2 的时候决定开源。因此有 LockBox2，和之前的商业控件完全一样。后来，有人另外写了一套，叫做 LockBox3，这个版本同样开源，但代码完全不一样，用法也不一样。其采用的开源协议也不一样。关于 LockBox2 和 LockBox3 的区别，以及为什么要另外搞一套，请看这里：http://lockbox.seanbdur