Delphi acquires Beijing (via Baidu and Timedate website)

Method One:

[Delphi]View Plaincopyprint?

2. Uses
4. Comobj, Dateutils;
8. function Getinternettime: string;
10. Var
12. Xmlhttp:olevariant;
14. Datetxt: string;
16. Datelst:tstringlist;
18. Mon: string;
20. TIMEGMT, Getnettime:tdatetime;
22. S: string;
24. Begin
26. XmlHttp: = Createoleobject (' microsoft.xmlhttp ');
28. XmlHttp.  Open (' GET ', ' http://open.baidu.com/special/time/', False);
30. XmlHttp.  Send;
34. Datetxt: = XmlHttp.   getResponseHeader (' Date ');
36. Datetxt: = Copy (Datetxt, Pos (', ', datetxt) + 1, 100);
38. Datetxt: = StringReplace (Datetxt, ' GMT ', ', []);
40. Datetxt: = Trim (Datetxt);
42. If datetxt = "then Exit;
44. Datelst: = Tstringlist.  Create;
46. while Pos (", datetxt) > 0 do
48. begin
50. Datelst.  ADD (Copy (Datetxt, 1, Pos (', datetxt)- 1));
52. Datetxt: = Copy (Datetxt, Pos (", datetxt) + 1, 100);
54. end;
56. Datelst.  ADD (Datetxt);
58. if datelst[1] = ' Jan ' Then
60. Mon: = ' Down '
62. Else if datelst[1] = ' Feb ' Then
64. Mon: = ' on '
66. Else if datelst[1] = ' Mar ' Then
68. Mon: = ' a '
70. Else if datelst[1] = ' Apr ' Then
72. Mon: = ' i '
74. Else if datelst[1] = ' Mar ' Then
76. Mon: = ' on '
78. Else if datelst[1] = ' June ' Then
80. Mon: = ' '
82. Else if datelst[1] = ' Jul ' Then
84. Mon: = ' '
86. Else if datelst[1] = ' OK ' Then
88. Mon: = ' A '
90. Else if datelst[1] = ' Sep ' Then
92. Mon: = ' the '
94. Else if datelst[1] = ' Oct ' Then
96. Mon: = ' Ten '
98. Else if datelst[1] = ' Nov ' Then
100. Mon: = ' One '
102. Else if datelst[1] = ' Dec ' Then
104. Mon: = ' 12 ';
106. S: = datelst[2] + '-' + mon + '-' + datelst[0] + ' + datelst[3];
108. Standard Time
110. ShowMessage (s);
112. '/' or '-'
114. TIMEGMT: = Strtodatetime (datelst[2] + '-' + mon + '-' + datelst[0] + ' + datelst[3]);
116. //Convert time zone
118. Getnettime: = Inchour (TIMEGMT, 8);
120. ShowMessage (FormatDateTime (' yyyy mm month dd HH:NN:SS ', getnettime));
122. Freeandnil (DATELST);
124. result:= formatdatetime (' yyyy mm month dd Day HH:NN:SS ', getnettime);
126. End

Method Two:

[Delphi]View Plaincopyprint?

2. Procedure TForm1.  Formcreate (Sender:tobject);
4. Begin
6. WebBrowser.  Navigate (' http://www.timedate.cn/worldclock/ti.asp ');
8. TMR1.  Enabled: = True;
10. End
14. Procedure TForm1.  Webbrowserstatustextchange (Sender:tobject;
16. const text:widestring);
18. Var
20. StrText: string;
22. Begin
24. StrText: = Text;
26. If StrText = ' Done ' then
28. begin
30. Caption: = WebBrowser. OleObject. Document. Body.  Innertext;
32. TMR1. Enabled: = True
34. end;
36. End
40. Procedure TForm1Tmr1timer (sender:tobject);
42. Begin
44. TMR1.  Enabled: = False;
46. WebBrowser. Refresh
48. End

http://blog.csdn.net/yanjiaye520/article/details/7887463

Delphi acquires Beijing (via Baidu and Timedate website)