indy html 编码,如何获得INDY的内部HTML

这个答案的最重要的部分是“你需要了解HTML和JavaScript，并找出该网站是如何工作的。”打开网站，右键单击并执行“显示源”。你会发现顶端有这样的：

那样子的时候，在我的情况下，时间是正确的，但没有调整到我的时区。您可以使用Indy轻松获取纯HTML，显然这就够了。此快速代码示例向您展示了如何使用一小段RegEx获取HTML并解析日期和时间。如果您使用的是Delphi XE，则必须将TPerlRegEx类名称和PerlRegEx单元名称替换为任何XE所需的名称。如果您使用的是旧版Delphi，那么不能使用RegEx！下载TPerlRegEx，它是免费的，并与XE的东西兼容。

program Project29;

{$APPTYPE CONSOLE}

uses

SysUtils, IdHTTP, PerlRegEx, SysConst;

function ExtractDayTime: TDateTime;

var H: TIdHTTP;

Response: string;

RegEx: TPerlRegEx;

s: string;

Month, Year, Day, Hour, Minute, Second: Word;

begin

H := TIdHttp.Create(Nil);

try

Response := H.Get('http://presnycas.eu/');

RegEx := TPerlRegEx.Create;

try

RegEx.RegEx := 'var\ currenttime\ \=\ \''(\w+)\ (\d{1,2})\,\ (\d{4})\ (\d{1,2})\:(\d{1,2})\:(\d{1,2})\''';

RegEx.Subject := Response;

if RegEx.Match then

begin

// Translate month

s := RegEx.Groups[1];

if s = SShortMonthNameJan then Month := 1

else if s = SShortMonthNameFeb then Month := 2

else if s = SShortMonthNameMar then Month := 3

else if s = SShortMonthNameApr then Month := 4

else if s = SShortMonthNameMay then Month := 5

else if s = SShortMonthNameJun then Month := 6

else if s = SShortMonthNameJul then Month := 7

else if s = SShortMonthNameAug then Month := 8

else if s = SShortMonthNameSep then Month := 9

else if s = SShortMonthNameOct then Month := 10

else if s = SShortMonthNameNov then Month := 11

else if s = SShortMonthNameDec then Month := 12

else if s = SLongMonthNameJan then Month := 1

else if s = SLongMonthNameFeb then Month := 2

else if s = SLongMonthNameMar then Month := 3

else if s = SLongMonthNameApr then Month := 4

else if s = SLongMonthNameMay then Month := 5

else if s = SLongMonthNameJun then Month := 6

else if s = SLongMonthNameJul then Month := 7

else if s = SLongMonthNameAug then Month := 8

else if s = SLongMonthNameSep then Month := 9

else if s = SLongMonthNameOct then Month := 10

else if s = SLongMonthNameNov then Month := 11

else if s = SLongMonthNameDec then Month := 12

else

raise Exception.CreateFmt('Don''t know what month is: %s', [s]);

// Day, Year, Hour, Minute, Second

Day := StrToInt(RegEx.Groups[2]);

Year := StrToInt(RegEx.Groups[3]);

Hour := StrToInt(RegEx.Groups[4]);

Minute := StrToInt(RegEx.Groups[5]);

Second := StrToInt(RegEx.Groups[6]);

Result := EncodeDate(Year, Month, Day) + EncodeTime(Hour, Minute, Second, 0);

end

else

raise Exception.Create('Can''t get time!');

finally RegEx.Free;

end;

finally H.Free;

end;

end;

begin

WriteLn(DateTimeToStr(ExtractDayTime));

ReadLn;

end.