K210.ORG

unit Unit1;

 

interface

 

uses

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

  Dialogs, wininet, StdCtrls, DateUtils;

 

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

function GetUrlInfo(const dwInfoLevel: DWORD; const FileURL: string):

  string;

var

  hSession, hFile: hInternet;

  dwBuffer: Pointer;

  dwBufferLen, dwIndex: DWORD;

begin

  Result := '';

  hSession := InternetOpen('',

    INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if Assigned(hSession) then begin

    hFile := InternetOpenURL(hSession, PChar(FileURL), nil, 0,

      INTERNET_FLAG_RELOAD, 0);

    dwIndex := 0;

    dwBufferLen := 20;

    if HttpQueryInfo(hFile, dwInfoLevel, @dwBuffer, dwBufferLen, dwIndex)

      then Result := PChar(@dwBuffer);

    if Assigned(hFile) then InternetCloseHandle(hFile);

    InternetCloseHandle(hsession);

  end;

end;

 

function GetFileTime(url: string): TDateTime;

var

  hSession, hFile: hInternet;

  dwBuffer: Pointer;

  dwBufferLen, dwIndex: DWORD;

  Len: DWORD;

  t, LastModified: SYSTEMTIME;

  ft1, ft2: FILETIME;

 

begin

 

  hSession := InternetOpen('',

    INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if Assigned(hSession) then begin

    hFile := InternetOpenURL(hSession, PChar(URL), nil, 0,

      INTERNET_FLAG_RELOAD, 0);

    dwIndex := 0;

    Len := sizeof(LastModified);

    HttpQueryInfo(HFile, HTTP_QUERY_LAST_MODIFIED or

      HTTP_QUERY_FLAG_SYSTEMTIME, @LastModified, Len, dwIndex);

    if Len > 0

      then begin

      SystemTimeToFileTime(LastModified, ft2);

      FileTimeToLocalFileTime(ft2, ft1);

      FileTimeToSystemTime(ft1, t);

      result := EncodeDateTime(t.wYear, t.wMonth, t.wDay, t.wHour, t.wMinute, t.wSecond, 0);

    end;

    if Assigned(hFile) then InternetCloseHandle(hFile);

    InternetCloseHandle(hsession);

  end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var

  s, url: string;

begin

  url := 'http://www.ya.ru/logo.gif';

  s := formatDatetime('dd mmmm yyyy, hh:nn:ss', GetFileTime(url));

  label1.Caption := s;

end;

 

end.