Любой сервер передает дату в заголовках ответа.
| Код |
uses
....,winsock;
type
pin_addr=^in_addr;
var
s:tsocket;
addr:tsockaddr;
str:pchar;
rez:pchar;
padr:PHostEnt;
wd:wsadata;
begin
getmem(rez,1024);
wsastartup($101,wd);
s:=socket(af_inet,SOCK_STREAM,IPPROTO_IP);
addr.sin_family:=af_inet;
addr.sin_port:=htons(80);
padr:=gethostbyname('ya.ru');
if padr=nil then exit;
addr.sin_addr:=pin_addr(padr.h_addr_list^)^;
int64(addr.sin_zero):=0;
connect(s,addr,sizeof(addr));
str:= 'HEAD / HTTP/1.1'#13#10'Host: ya.ru'#13#10#13#10;
send(s,str^,strlen(str),0);
recv(s,rez^,1024,0);
closesocket(s);
label1.Caption:=rez;
end;
|
В результате получим нечто типа
| Цитата |
HTTP/1.1 200 OK
Server: nginx
Date: Thu, 03 Mar 2011 11:43:00 GMT
Content-Type: text/html; charset=UTF-8
Connection: close
Cache-Control: no-cache,no-store,max-age=0,must-revalidate
Content-Length: 6262
Expires: Thu Mar 3 11:43:00 2011 GMT
Last-Modified: Thu Mar 3 11:43:00 2011 GMT
P3P: policyref="/w3c/p3p.xml", CP="NON DSP ADM DEV PSD IVDo OUR IND STP PHY PRE NAV UNI"
Set-Cookie: S=; path=/; expires=Mon, 05-Mar-2001 11:43:00 GMT
Set-Cookie: S=; domain=.ya.ru; path=/; expires=Mon, 05-Mar-2001 11:43:00 GMT
Set-Cookie: yandex_gid=141; domain=.ya.ru; path=/; expires=Sat, 02-Apr-2011 11:43:00 GMT
Set-Cookie: yp=1301744580.ygu.1; domain=.ya.ru; path=/; expires=Sun, 28-Feb-2021 11:43:00 GMT |
Поле Date содержит текущее время GMT
Сервер может быть быть любым, важно только соответствие адреса в
padr:=gethostbyname('ya.ru'); и str:= 'HEAD / HTTP/1.1'#13#10'Host: ya.ru'#13#10#13#10;
|
