爱音乐的孩子是小白

http://www.cnblogs.com/yangyxd/

我是新手，请大家多多滴帮助我。

[Delphi] YxdIOCP 之 MVC 简介

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

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

[FMX] FMX UI 开源库

2016-09-082016-09-08 • Delphi • 暂无评论 • 爱音乐的孩子是小白 •浏览 2,738 次

【简介】 FMXUI的开发忠旨是发掘FMX界面设计的优点，再整合进入Android界面设计的优点。使用过Java搞Android界面设计朋友看到后应该会有一定的熟悉感。【类介绍】 TView 基本视图 TViewGroup 视图组 TLinearLayout 线性布局 TRelativeLayout 相对布局 TT

[Java] 图说注解

2016-06-13 • Delphi • 暂无评论 • 爱音乐的孩子是小白 •浏览 1,322 次

在 Java 1.5 开始，可以使用“注解”更方便的实现一些功能。

[Delphi] FMXUI布局组件简介

2016-01-302016-01-30 • Android、Delphi • 2 条评论 • 爱音乐的孩子是小白 •浏览 5,749 次

终于熬过了今年的最后一天班，哥们怀着兴奋，下班了赶紧去放松了一下，再吃碗热呼呼的牛肉面，回来洗个热水澡，感觉太舒服了。当然了，这么重要的日了，不能忘了写篇文章，介绍下最近整的这个基础UI库，不能顾着自个儿舒服了，要让大家也开开心心才对吧？哈，顺便各位走过路过的满天神佛拜个早年，祝大家新春快乐，恭喜发财！（好吧，我还想

[QWorker] 制作多线程日志输出查看Demo

2016-01-222016-01-22 • Delphi、QWorker • 暂无评论 • 爱音乐的孩子是小白 •浏览 2,758 次

要解决的问题：有多个线程输出日志，日志内容需要在列表框中显示出来，不管日志输出的频率快慢，界面不能卡，不能闪烁。超过10万行日志时，自动删除最开始的1万行日志。此问题涉及多线程编程，多线程输出时要更新界面的显示。多线程的东西，当然不能忘了QWorker这样的神器，下面我们就来使用QWorker解决问题，哦，不对，

[FMX] Android APP 启动黑屏优化补丁

2016-01-172016-01-17 • Android、Delphi • 暂无评论 • 爱音乐的孩子是小白 •浏览 3,678 次

使用说明 *************************************************** Android APP 启动黑屏优化补丁作者： Swish, YangYxd 2016.01.16 Version: 1.0.0 QDAC官方群: 250530692 ******************

[Delphi] 进制转换之10进制与34进制互转

2016-01-07 • Delphi • 暂无评论 • 爱音乐的孩子是小白 •浏览 2,554 次

嗯，今天阳光明媚，空气清新，心情愉快，还不忙。正好有人说到进制转换，就试着做了一下。此处省略一千字的废话。。。。先上图：下面直接上代码，希望大家能看明白。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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,16,17,18,19,20,21,22,23,24,
     25,26,27,28,29,30,31,32,33,-1,-1,-1,-1,-1,-1,-1,
     -1,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
     25,26,27,28,29,30,31,32,33,-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
     );
  Convert2: array[0..33] of AnsiChar =
    (
     '0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f',
     'g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v',
     'w','x');


function IntToHEX34(const V: Int64; const Digits: Integer = -1): string;
const
  CSTR = '0000000000000000';
var
  P, P1: PAnsiChar;
  I: Int64;
  NewLen: Integer;
begin
  GetMem(P, 16);
  Move(CSTR, P^, 16);
  P1 := P + 16 - 1;
  I := V;
  while True do begin
    P1^ := Convert2[I mod 34];
    I := I div 34;
    if I = 0 then
      Break
    else
      Dec(P1);
  end;
  NewLen := 16 - (P1 - P);
  if NewLen > Digits then
    SetString(Result, P1, NewLen)
  else begin
    P1 := P + 16 - Digits;
    SetString(Result, P1, Digits);
  end;
end;

function HEX34ToInt(const S: string; const Default: Int64): Int64;
var
  I: Integer;
  v: Int64;
begin
  Result := 0;
  for I := 1 to length(s) do
  begin
    V := Convert[ord(s[i])];
    if V < 0 then begin
      Result := Default;
      Exit;
    end;
    result := (result * 34) + V;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := IntToHEX34(StrToInt64Def(Edit1.Text, 0));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(HEX34ToInt(Edit2.Text, 0));
end;

end.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

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,16,17,18,19,20,21,22,23,24,

25,26,27,28,29,30,31,32,33,-1,-1,-1,-1,-1,-1,-1,

-1,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,

25,26,27,28,29,30,31,32,33,-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

);

Convert2: array[0..33] of AnsiChar =

(

'0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f',

'g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v',

'w','x');

function IntToHEX34(const V: Int64; const Digits: Integer = -1): string;

const

CSTR = '0000000000000000';

var

P, P1: PAnsiChar;

I: Int64;

NewLen: Integer;

begin

GetMem(P, 16);

Move(CSTR, P^, 16);

P1 := P + 16 - 1;

I := V;

while True do begin

P1^ := Convert2[I mod 34];

I := I div 34;

if I = 0 then

Break

else

Dec(P1);

end;

NewLen := 16 - (P1 - P);

if NewLen > Digits then

SetString(Result, P1, NewLen)

else begin

P1 := P + 16 - Digits;

SetString(Result, P1, Digits);

end;

function HEX34ToInt(const S: string; const Default: Int64): Int64;

var

I: Integer;

v: Int64;

begin

Result := 0;

for I := 1 to length(s) do

begin

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

if V < 0 then begin

Result := Default;

Exit;

end;

result := (result * 34) + V;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit2.Text := IntToHEX34(StrToInt64Def(Edit1.Text, 0));

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text := IntToStr(HEX34ToInt(Edit2.Text, 0));

end;

end.

34进制，不好优化。要是32进制，除法的地方和乘法地方，应该可以换成移位操作。

[技巧] Pg2MSSQL数据同步工具简介

2016-01-062016-01-06 • Delphi、PostgreSQL、QWorker、杂谈 • 1 条评论 • 爱音乐的孩子是小白 •浏览 2,158 次

Pg2MSSQL是swish群主开发的一个可以同步PostgreSQL、MSSQL的工具软件，使用了我们熟悉的QWorker作为引擎，可以高效的并发执行数据库同步任务。您可以到QDAC官方群或者本站下载页面找到Pg2MSSQL的下载地址，并免费使用部分功能。如果您觉得好用，可以和swish联系购买注册码。详细的注册信

[Java] 在JSP中读取POST的JSON数据

2015-12-182016-01-06 • Delphi • 暂无评论 • 爱音乐的孩子是小白 •浏览 5,130 次

jsp是开发bs的利器。在jsp中我们可以很方便的使用JSON来开发一个数据接口。今天我想实现的例子是：接收客户端（浏览器、APP）通过POST方式提交的JSON数据。解析接收到数据，如果存在”username”则返回用户名，否则返回一个错误。我使用java-ee作为开发环境，项目结构如

[数据库] 取指定表中某字段的累加和不超过总和80%的行

2015-11-17 • Delphi • 7 条评论 • 爱音乐的孩子是小白 •浏览 2,398 次

有表 Table_1，字段 Value int, P float 。5 要取出以 Value 字段倒序的 P 字段累加和不超过整个表中P字段总和的 80%的行。并在返回列表中加入字段 SUM ，存放当前行与前面所有行的累加和。折腾了半天，写了下面的查询sql: [crayon-6097b917dfbf

【随笔】什么是函数？

2015-11-15 • Delphi • 暂无评论 • 爱音乐的孩子是小白 •浏览 1,648 次

在数学中，函数通常用式子 y=f(x) 来表示。f 是英语单词 function中的f , 是“功能”或者“作用”的意思。说白了就是使用f给x施加某种规则或关系，进而推导出y。函数可以用来表示“因果”，表示“变化”规则。比如把 x 当作母鸡，f(x)可能出来的就是小鸡鸡了。当然了，不同的f会有不同的结果，说不定结

[原创] 常用字符集简介

2015-09-022015-09-02 • Delphi • 暂无评论 • 爱音乐的孩子是小白 •浏览 2,208 次

字符集 ANSI (ASCII) 美国信息互换标准编码 GB 2312 信息交换用汉字编码字符集 GBK Chinese Internal Code Specification GB18030 信息交换用汉字编码字符集基本集的扩充 UTF-8 万国码 UTF-16 (ISO/IEC 10646-1、UCS-2) 通用字

GIF 动画建立

2015-07-26 • Delphi • 1 条评论 • 爱音乐的孩子是小白 •浏览 2,103 次

var Gif:TGifImage;
begin
    //Setting the delay for each frame
    TGIFGraphicControlExtension.Create(Gif.Add(image1.Picture.Bitmap)).Delay := 300;
    TGIFGraphicControlExtension.Create(Gif.Add(image2.Picture.Bitmap)).Delay := 300;
    TGIFGraphicControlExtension.Create(Gif.Add(image3.Picture.Bitmap)).Delay := 300;
    //Adding loop extension in the first frame (0 = forever)
    TGIFAppExtNSLoop.Create(Gif.Images.Frames[0]).Loops := 0;

    Gif.SaveToFile('gif.gif');
end;

var Gif:TGifImage;

begin

//Setting the delay for each frame

TGIFGraphicControlExtension.Create(Gif.Add(image1.Picture.Bitmap)).Delay := 300;

TGIFGraphicControlExtension.Create(Gif.Add(image2.Picture.Bitmap)).Delay := 300;

TGIFGraphicControlExtension.Create(Gif.Add(image3.Picture.Bitmap)).Delay := 300;

//Adding loop extension in the first frame (0 = forever)

TGIFAppExtNSLoop.Create(Gif.Images.Frames[0]).Loops := 0;

Gif.SaveToFile('gif.gif');

end;

【Delphi】玩转浮点数转整数

2015-06-192015-06-23 • Delphi • 2 条评论 • 爱音乐的孩子是小白 •浏览 6,586 次

Delphi中提供了三个函数: Trunc: 将浮点数的整数部分返回。 Round: 将浮点数四舍五入后返回整数部分。 Int: 将浮点数的小数部分去掉，返回只保留了整数部分的Extended型。在D2007 + Win7 + Intel平台下测试，由于Int返回的并非整型，我们把它排除掉。测试结果是 Round

【Delphi】GMT时间与TDateTime转换

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

说到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;

作者：爱音乐的孩子是小白