Delphi – QDAC数据访问组件网站

[荐]DDNRuntime：Delphi 调用 .NET 库工具

2021-11-272021-11-27 • Delphi • 评论关闭 • swish •浏览 662 次

DDNRuntime是一个用Delphi调用.NET的库。支持调用C#、VB.NET编写的程序集。支持自动导入.net dll，并创建.net接口。官方QQ群：712048702 特性不需要COM的支持。支持.NET Framework和.NET Core Runtime 使用非常的简单，只需要在Delphi中申

[Bug] Delphi System.Net.HttpClient.Win 单元的一处Bug

2020-07-28 • C++ Builder、Delphi、教程 • 评论关闭 • swish •浏览 1,721 次

[问题函数]System.Net.HttpClient.Win.ReadHeader[影响版本]自有这个单元开始到10.4，包括打完最新的 patch3。[问题描述]WinHttpQueryHeaders 返回 LSize 如果等于 2，则 SetLength 得到的结果是将 Result 设置对应的字符串缓冲区被设置

[译]Delphi 10.4 新变化：定制拖管记录（结构）类型

2020-05-122020-05-12 • Delphi • 暂无评论 • swish •浏览 2,767 次

原文链接此文为简略翻译，更详细内容请访问原文。现有的 Delphi 中的记录如果包含复杂类型，如接口、动态数组等初始化和记录的赋值都是由 Delphi 默认提供的过程完成的，10.4 允许用户定制这些操作，只要用户实现对应的函数就可以。初始化函数，重载类操作 Initialize 清理函数，重载类操作 Fina

[QMQTT]MQTT 协议的 Delphi 实现

2019-03-232019-03-25 • Delphi • 暂无评论 • swish •浏览 8,531 次

QMQTT 实现是基于 MQTT 协议标准编写的 Delphi 客户端程序，不依赖于任何第三方的 DLL 或组件实现。它的主要特性如下：完整支持 MQTT 3.1.1 协议版本（5.0版也将支持）不依赖任何第三方组件（QDAC 内也只是依赖于 QString 单元）支持主题的多重派发，也就是说同一个主题在程序中，

[教程] Delphi 中的自动引用计数使用规则

2018-02-132018-02-13 • Delphi、教程 • 暂无评论 • swish •浏览 2,733 次

Delphi 用户应该早已经熟悉自动引用计数的概念（ARC），Delphi 很早就开始支持接口、动态数组和字符串的自动引用计数（DCC32、DCC64、DCCOSX），移动编译器则加入对类的自动引用计数支持，因此还加了入弱引用的概念，以管理循环引用。有个预编译条件指令 AUTOREFCOUNT 可以检测当前是否编译器

[QLang] 只需六个字，拥抱全世界- QLang 新版发售

2017-08-312017-08-31 • Android、C++ Builder、Delphi、iOS • 暂无评论 • swish •浏览 5,265 次

QLang 新版为您带来 FMX 框架的多语言支持，让您拥有全新的体验，要进一步了解 QLang ，请下载 QLang3介绍（PDF 格式））在加入 FMX 的同时，QLang 产品的售价我们将做如下调整（本价格表自 2017-10-1 日起执行）：注： 1、本价格自 2017 年 10 月 1 日(含 2017

[Delphi] YxdIOCP 之 MVC 简介

2016-10-252016-10-25 • Delphi • 暂无评论 • 爱音乐的孩子是小白 •浏览 3,257 次

原文地址： http://www.cnblogs.com/yangyxd/articles/5993764.html YxdIocp: https://github.com/yangyxd/YxdIOCP 最近为 YxdIocp 开源库增加了这个轻量级的 MVC 支持。其实说是 MVC ，但由于现在还没

[译] Delphi/C++ Builder 官方全新产品路线图

2016-08-042016-08-04 • C++ Builder、Delphi、杂谈 • 1 条评论 • swish •浏览 4,359 次

原文：http://community.embarcadero.com/article/news/16418-product-roadmap-august-2016 二月份我们提供了我们产品的一份详细路线图表并且我们确定我们将每六个月更新一次路线图以便我们的众多客户了解接下来是什么。根据众多像您一样的客户要求，我们改为

[FMX] System.IOUtils.TPath 中的目录都是啥

2016-07-01 • Delphi、杂谈 • 暂无评论 • swish •浏览 3,483 次

Windows 下：

Temp=C:\Users\[UserName]\AppData\Local\Temp\
Home=C:\Users\[UserName]\AppData\Roaming
Documents=C:\Users\[UserName]\Documents
SharedDocuments=C:\Users\Public\Documents
Library=[App Path]
Cache=C:\Users\[UserName]\AppData\Local
Public=C:\ProgramData
Picture=C:\Users\[UserName]\Pictures
SharedPicture=C:\Users\Public\Pictures
Camera=C:\Users\[UserName]\Pictures
SharedCamera=C:\Users\Public\Pictures
Music=C:\Users\[UserName]\Music
SharedMusic=C:\Users\Public\Music
Movies=C:\Users\[UserName]\Videos
SharedMovies=C:\Users\Public\Videos
Alarms=C:\Users\[UserName]\Music
SharedAlarms=C:\Users\Public\Music
Downloads=C:\Users\[UserName]\AppData\Local
SharedDownloads=C:\ProgramData
Ringtones=C:\Users\[UserName]\Music
SharedRingtones=C:\Users\Public\Music

Temp=C:\Users\[UserName]\AppData\Local\Temp\

Home=C:\Users\[UserName]\AppData\Roaming

Documents=C:\Users\[UserName]\Documents

SharedDocuments=C:\Users\Public\Documents

Library=[App Path]

Cache=C:\Users\[UserName]\AppData\Local

Public=C:\ProgramData

Picture=C:\Users\[UserName]\Pictures

SharedPicture=C:\Users\Public\Pictures

Camera=C:\Users\[UserName]\Pictures

SharedCamera=C:\Users\Public\Pictures

Music=C:\Users\[UserName]\Music

SharedMusic=C:\Users\Public\Music

Movies=C:\Users\[UserName]\Videos

SharedMovies=C:\Users\Public\Videos

Alarms=C:\Users\[UserName]\Music

SharedAlarms=C:\Users\Public\Music

Downloads=C:\Users\[UserName]\AppData\Local

SharedDownloads=C:\ProgramData

Ringtones=C:\Users\[UserName]\Music

SharedRingtones=C:\Users\Public\Music

Android 下：

Temp=/storage/emulated/0/Android/data/[PackageName]/files/tmp
Home=/data/user/0/[PackageName]/files
Documents=/data/user/0/[PackageName]/files
SharedDocuments=/storage/emulated/0/Documents
Library=/data/app/[PackageName]-1/lib/arm
Cache=/data/user/0/[PackageName]/cache
Public=/storage/emulated/0/Android/data/[PackageName]/files
Picture=/storage/emulated/0/Android/data/[PackageName]/files/Pictures
SharedPicture=/storage/emulated/0/Pictures
Camera=/storage/emulated/0/Android/data/[PackageName]/files/DCIM
SharedCamera=/storage/emulated/0/DCIM
Music=/storage/emulated/0/Android/data/[PackageName]/files/Music
SharedMusic=/storage/emulated/0/Music
Movies=/storage/emulated/0/Android/data/[PackageName]/files/Movies
SharedMovies=/storage/emulated/0/Movies
Alarms=/storage/emulated/0/Android/data/[PackageName]/files/Alarms
SharedAlarms=/storage/emulated/0/Alarms
Downloads=/storage/emulated/0/Android/data/[PackageName]/files/Download
SharedDownloads=/storage/emulated/0/Download
Ringtones=/storage/emulated/0/Android/data/[PackageName]/files/Ringtones
SharedRingtones=/storage/emulated/0/Ringtones

Temp=/storage/emulated/0/Android/data/[PackageName]/files/tmp

Home=/data/user/0/[PackageName]/files

Documents=/data/user/0/[PackageName]/files

SharedDocuments=/storage/emulated/0/Documents

Library=/data/app/[PackageName]-1/lib/arm

Cache=/data/user/0/[PackageName]/cache

Public=/storage/emulated/0/Android/data/[PackageName]/files

Picture=/storage/emulated/0/Android/data/[PackageName]/files/Pictures

SharedPicture=/storage/emulated/0/Pictures

Camera=/storage/emulated/0/Android/data/[PackageName]/files/DCIM

SharedCamera=/storage/emulated/0/DCIM

Music=/storage/emulated/0/Android/data/[PackageName]/files/Music

SharedMusic=/storage/emulated/0/Music

Movies=/storage/emulated/0/Android/data/[PackageName]/files/Movies

SharedMovies=/storage/emulated/0/Movies

Alarms=/storage/emulated/0/Android/data/[PackageName]/files/Alarms

SharedAlarms=/storage/emulated/0/Alarms

Downloads=/storage/emulated/0/Android/data/[PackageName]/files/Download

SharedDownloads=/storage/emulated/0/Download

Ringtones=/storage/emulated/0/Android/data/[PackageName]/files/Ringtones

SharedRingtones=/storage/emulated/0/Ringtones

iOS

Temp=/private/var/mobile/Containers/Data/Application/[App GUID]/tmp
Home=/private/var/mobile/Containers/Data/Application/[App GUID]
Documents=/var/mobile/Containers/Data/Application/[App GUID]/Documents
SharedDocuments=
Library=/var/mobile/Containers/Data/Application/[App GUID]/Library
Cache=/var/mobile/Containers/Data/Application/[App GUID]/Library/Caches
Public=
Picture=
SharedPicture=
Camera=
SharedCamera=
Music=
SharedMusic=
Movies=
SharedMovies=
Alarms=
SharedAlarms=
Downloads=
SharedDownloads=
Ringtones=
SharedRingtones=

Temp=/private/var/mobile/Containers/Data/Application/[App GUID]/tmp

Home=/private/var/mobile/Containers/Data/Application/[App GUID]

Documents=/var/mobile/Containers/Data/Application/[App GUID]/Documents

SharedDocuments=

Library=/var/mobile/Containers/Data/Application/[App GUID]/Library

Cache=/var/mobile/Containers/Data/Application/[App GUID]/Library/Caches

Public=

Picture=

SharedPicture=

Camera=

SharedCamera=

Music=

SharedMusic=

Movies=

SharedMovies=

Alarms=

SharedAlarms=

Downloads=

SharedDownloads=

Ringtones=

SharedRingtones=

[FMX] 写了一个Helper，为TCustomScrollBox的子类添加ScrollInView方法

2016-06-12 • Android、Delphi、iOS • 暂无评论 • swish •浏览 1,874 次

因为要用到，所以特意添加了这么个方法，FMX 的 TCustomScrollBox 没有提供，或者是我没有找到正确的，所以特意加了一个。另外，针对 TControl 加了一个 LocalToParent 函数用于将指针的坐标转换为指定级别的父控件的坐标。完整源码奉上，但声明下，我只测试了一部分我用到的情况，其它情况没

[杂谈] SDKTransform 试用笔记

2016-04-202016-04-20 • Delphi • 暂无评论 • swish •浏览 4,172 次

SDKTransform 是 RadStudio 10 Berlin （后面称Berlin）里带的转换工具，可以将 iOS 或 OSX SDK 里的头文件转换为 Delphi 的接口文件。它是一个命令行工具，所以，需要你手动去在命令行下运行。要使用它，你需要：到 CLang 的官方去自行下载 CLang，然后安装，

[杂谈]Delphi/C++ Builder 10.1 柏林更新内容简译

2016-04-11 • C++ Builder、Delphi、更新、杂谈 • 暂无评论 • swish •浏览 12,395 次

原文太长，我就不全文翻译了，以意译为主。 1、安装程序更新新的安装器让你快速安装基本的功能，然后通过 Feather Installer 来安装额外需要的功能，从而加快安装速度，减少不必要的带宽占用。 2、FireMonkey 更新 Android 6.0 支持新增 TAddressBook 来访问联系人信息 St

[杂谈] 在应用中通过短信平台使用 REST 发送短信验证码

2016-03-022016-03-02 • Android、C++ Builder、Delphi、杂谈 • 暂无评论 • swish •浏览 2,024 次

现在许多短信验证码平台都提供 REST 接口，而我们通过 REST 接口可以很方便的完成短信验证码的发送工具，如果没提供，那就不要继续看了。当然了，价格方面，各家平台各有优劣，就不做评论了。下面主要介绍的是一般的步骤：注册短信平台账号。这是第一步，不用多说了。这一步你一般会得到自己的账号编码（Account SID）

【Delphi】GMT时间与TDateTime转换

2015-06-09 • Delphi • 暂无评论 • 爱音乐的孩子是小白 •浏览 8,242 次

说到GMT时间，人们天天都在用，但一般人不会被注意到。在Http的世界里面，GMT无处不在，不信你抓包看看各种Header里面。 GMT是世界时间，在处理的时候需要处理当前的时区。算了，我懒得多说，直接贴代码吧。吹吹牛，我这个可以高性能的哦~~~~

const
  Convert: array[0..255] of Integer =
    (
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
      0, 1, 2, 3, 4, 5, 6, 7, 8, 9,-1,-1,-1,-1,-1,-1,
     -1,10,11,12,13,14,15,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,10,11,12,13,14,15,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
     );

function PCharToIntDef(const S: PAnsichar; Len: Integer; def: Integer = 0): Integer;
var
  I: Integer;
  v: Integer;
begin
  Result := 0;
  for I := 0 to len-1 do begin
    V := Convert[ord(s[i])];
    if V<0 then begin
      Result := def;
      Exit;
    end;
    result := (result * 10) + V;
  end;
end;

function LocalTimeZoneBias: Integer;
{$IFDEF LINUX}
var
  TV: TTimeval;
  TZ: TTimezone;
begin
  gettimeofday(TV, TZ);
  Result := TZ.tz_minuteswest;
end;
{$ELSE}
var
  TimeZoneInformation: TTimeZoneInformation;
  Bias: Longint;
begin
  case GetTimeZoneInformation(TimeZoneInformation) of
    TIME_ZONE_ID_STANDARD: Bias := TimeZoneInformation.Bias + TimeZoneInformation.StandardBias;
    TIME_ZONE_ID_DAYLIGHT: Bias := TimeZoneInformation.Bias + ((TimeZoneInformation.DaylightBias div 60) * -100);
  else
    Bias := TimeZoneInformation.Bias;
  end;
  Result := Bias;
end;
{$ENDIF}

var
  DLocalTimeZoneBias: Double = 0;

function DateTimeToGMT(const DT: TDateTime): TDateTime; inline;
begin
  Result := DT + DLocalTimeZoneBias;
end;

function GMTToDateTime(const DT: TDateTime): TDateTime; inline;
begin
  Result := DT - DLocalTimeZoneBias;
end;

function DateTimeToGMTRFC822(const DateTime: TDateTime): string;
const
  WEEK: array[1..7] of string = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
  STR_ENGLISH_M: array[1..12] of string = ('Jan', 'Feb', 'Mar', 'Apr', 'May',
    'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
var
  wWeek, wYear, wMonth, wDay, wHour, wMin, wSec, wMilliSec: Word;
begin
  DecodeDateTime(DateTimeToGMT(DateTime), wYear, wMonth, wDay, wHour, wMin, wSec, wMilliSec);
  wWeek := DayOfWeek(DateTimeToGMT(DateTime));
  Result := Format('%s, %.2d %s %.4d %.2d:%.2d:%.2d GMT',
    [WEEK[wWeek], wDay, STR_ENGLISH_M[wMonth], wYear, wHour, wMin, wSec]);
end;

function GMTRFC822ToDateTime(const pSour: AnsiString): TDateTime;

  function GetMonthDig(const Value: PAnsiChar): Integer;
  const
    STR_ENGLISH_M: array[1..12] of PAnsiChar = ('Jan', 'Feb', 'Mar', 'Apr', 'May',
      'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
  begin
    for Result := Low(STR_ENGLISH_M) to High(STR_ENGLISH_M) do begin
      if StrLIComp(Value, STR_ENGLISH_M[Result], 3) = 0 then
        Exit;
    end;
    Result := 0;
  end;
var
  P1, P2, PMax: PAnsiChar;
  wDay, wMonth, wYear, wHour, wMinute, wSec: SmallInt;
begin
  Result := 0;
  if Length(pSour) < 25 then Exit;
  P1 := Pointer(pSour);
  P2 := P1;
  PMax := P1 + Length(pSour);
  while (P1 < PMax) and (P1^ <> ',') do Inc(P1); Inc(P1);
  if (P1^ <> #32) and (P1 - P2 < 4) then Exit;
  Inc(P1); P2 := P1;
  while (P1 < PMax) and (P1^ <> #32) do Inc(P1);
  if (P1^ <> #32) then Exit;
  wDay := PCharToIntDef(P2, P1 - P2);
  if wDay = 0 then Exit;  
  Inc(P1); P2 := P1;

  while (P1 < PMax) and (P1^ <> #32) do Inc(P1);
  if (P1^ <> #32) and (P1 - P2 < 3) then Exit;
  wMonth := GetMonthDig(P2);
  Inc(P1); P2 := P1;

  while (P1 < PMax) and (P1^ <> #32) do Inc(P1);
  if (P1^ <> #32) then Exit;
  wYear := PCharToIntDef(P2, P1 - P2);
  if wYear = 0 then Exit;
  Inc(P1); P2 := P1;

  while (P1 < PMax) and (P1^ <> ':') do Inc(P1);
  if (P1^ <> ':') then Exit;
  wHour := PCharToIntDef(P2, P1 - P2);
  if wHour = 0 then Exit;
  Inc(P1); P2 := P1;

  while (P1 < PMax) and (P1^ <> ':') do Inc(P1);
  if (P1^ <> ':') then Exit;
  wMinute := PCharToIntDef(P2, P1 - P2);
  if wMinute = 0 then Exit;
  Inc(P1); P2 := P1;

  while (P1 < PMax) and (P1^ <> #32) do Inc(P1);
  if (P1^ <> #32) then Exit;
  wSec := PCharToIntDef(P2, P1 - P2);
  if wSec = 0 then Exit;

  Result := GMTToDateTime(EnCodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSec, 0));
end;

initialization
  DLocalTimeZoneBias := LocalTimeZoneBias / 1440;

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

const

Convert: array[0..255] of Integer =

(

-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,

0, 1, 2, 3, 4, 5, 6, 7, 8, 9,-1,-1,-1,-1,-1,-1,

-1,10,11,12,13,14,15,-1,-1,-1,-1,-1,-1,-1,-1,-1,

-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,

-1,10,11,12,13,14,15,-1,-1,-1,-1,-1,-1,-1,-1,-1,

-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,

-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1

);

function PCharToIntDef(const S: PAnsichar; Len: Integer; def: Integer = 0): Integer;

var

I: Integer;

v: Integer;

begin

Result := 0;

for I := 0 to len-1 do begin

V := Convert[ord(s[i])];

if V<0 then begin

Result := def;

Exit;

end;

result := (result * 10) + V;

end;

function LocalTimeZoneBias: Integer;

{$IFDEF LINUX}

var

TV: TTimeval;

TZ: TTimezone;

begin

gettimeofday(TV, TZ);

Result := TZ.tz_minuteswest;

end;

{$ELSE}

var

TimeZoneInformation: TTimeZoneInformation;

Bias: Longint;

begin

case GetTimeZoneInformation(TimeZoneInformation) of

TIME_ZONE_ID_STANDARD: Bias := TimeZoneInformation.Bias + TimeZoneInformation.StandardBias;

TIME_ZONE_ID_DAYLIGHT: Bias := TimeZoneInformation.Bias + ((TimeZoneInformation.DaylightBias div 60) * -100);

else

Bias := TimeZoneInformation.Bias;

end;

Result := Bias;

end;

{$ENDIF}

var

DLocalTimeZoneBias: Double = 0;

function DateTimeToGMT(const DT: TDateTime): TDateTime; inline;

begin

Result := DT + DLocalTimeZoneBias;

end;

function GMTToDateTime(const DT: TDateTime): TDateTime; inline;

begin

Result := DT - DLocalTimeZoneBias;

end;

function DateTimeToGMTRFC822(const DateTime: TDateTime): string;

const

WEEK: array[1..7] of string = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');

STR_ENGLISH_M: array[1..12] of string = ('Jan', 'Feb', 'Mar', 'Apr', 'May',

'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');

var

wWeek, wYear, wMonth, wDay, wHour, wMin, wSec, wMilliSec: Word;

begin

DecodeDateTime(DateTimeToGMT(DateTime), wYear, wMonth, wDay, wHour, wMin, wSec, wMilliSec);

wWeek := DayOfWeek(DateTimeToGMT(DateTime));

Result := Format('%s, %.2d %s %.4d %.2d:%.2d:%.2d GMT',

[WEEK[wWeek], wDay, STR_ENGLISH_M[wMonth], wYear, wHour, wMin, wSec]);

end;

function GMTRFC822ToDateTime(const pSour: AnsiString): TDateTime;

function GetMonthDig(const Value: PAnsiChar): Integer;

const

STR_ENGLISH_M: array[1..12] of PAnsiChar = ('Jan', 'Feb', 'Mar', 'Apr', 'May',

'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');

begin

for Result := Low(STR_ENGLISH_M) to High(STR_ENGLISH_M) do begin

if StrLIComp(Value, STR_ENGLISH_M[Result], 3) = 0 then

Exit;

end;

Result := 0;

end;

var

P1, P2, PMax: PAnsiChar;

wDay, wMonth, wYear, wHour, wMinute, wSec: SmallInt;

begin

Result := 0;

if Length(pSour) < 25 then Exit;

P1 := Pointer(pSour);

P2 := P1;

PMax := P1 + Length(pSour);

while (P1 < PMax) and (P1^ <> ',') do Inc(P1); Inc(P1);

if (P1^ <> #32) and (P1 - P2 < 4) then Exit;

Inc(P1); P2 := P1;

while (P1 < PMax) and (P1^ <> #32) do Inc(P1);

if (P1^ <> #32) then Exit;

wDay := PCharToIntDef(P2, P1 - P2);

if wDay = 0 then Exit;

Inc(P1); P2 := P1;

while (P1 < PMax) and (P1^ <> #32) do Inc(P1);

if (P1^ <> #32) and (P1 - P2 < 3) then Exit;

wMonth := GetMonthDig(P2);

Inc(P1); P2 := P1;

while (P1 < PMax) and (P1^ <> #32) do Inc(P1);

if (P1^ <> #32) then Exit;

wYear := PCharToIntDef(P2, P1 - P2);

if wYear = 0 then Exit;

Inc(P1); P2 := P1;

while (P1 < PMax) and (P1^ <> ':') do Inc(P1);

if (P1^ <> ':') then Exit;

wHour := PCharToIntDef(P2, P1 - P2);

if wHour = 0 then Exit;

Inc(P1); P2 := P1;

while (P1 < PMax) and (P1^ <> ':') do Inc(P1);

if (P1^ <> ':') then Exit;

wMinute := PCharToIntDef(P2, P1 - P2);

if wMinute = 0 then Exit;

Inc(P1); P2 := P1;

while (P1 < PMax) and (P1^ <> #32) do Inc(P1);

if (P1^ <> #32) then Exit;

wSec := PCharToIntDef(P2, P1 - P2);

if wSec = 0 then Exit;

Result := GMTToDateTime(EnCodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSec, 0));

end;

initialization

DLocalTimeZoneBias := LocalTimeZoneBias / 1440;

标签： Delphi

[荐]DDNRuntime：Delphi 调用 .NET 库工具

[Bug] Delphi System.Net.HttpClient.Win 单元的一处Bug

[译]Delphi 10.4 新变化：定制拖管记录（结构）类型

[QMQTT]MQTT 协议的 Delphi 实现

[教程] Delphi 中的自动引用计数使用规则

[QLang] 只需六个字，拥抱全世界- QLang 新版发售

[Delphi] YxdIOCP 之 MVC 简介

[译] Delphi/C++ Builder 官方全新产品路线图

[FMX] System.IOUtils.TPath 中的目录都是啥

[FMX] 写了一个Helper，为TCustomScrollBox的子类添加ScrollInView方法

[杂谈] SDKTransform 试用笔记

[杂谈]Delphi/C++ Builder 10.1 柏林更新内容简译

[杂谈] 在应用中通过短信平台使用 REST 发送短信验证码

【Delphi】GMT时间与TDateTime转换

Delphi <-> C++ 基本语法对照表

Delphi调用C语言接口的几点小提示

C++ Builder中实现对Delphi匿名函数的支持

Delphi中DB.PAS变迁概略

Delphi下的字符串分隔函数的一种用法（摘抄）

QMsgPack专题-Delphi/C++ Builder下的跨平台MessagePack协议解析单元

登录