话题327138的标题是： 如何获取一个url对应的网页的创建时间 (200分)
分类：Internet/TCPIP whj2001 (2000-09-04 21:06:00)
我原来用的是http控件的head函数，但速度慢，好像还容易出错
请问有没有其它的方法，要求速度快。
谢谢！
steve (2000-09-05 9:16:00)
那恐怕只能自己用Winsock来实现了。
Atomic (2000-09-05 9:28:00)
怎么做？
如果用Head改怎么做？（我给分吧）
whj2001 (2000-09-05 20:22:00)
steve能说的详细一点吗，因为有急用，多谢了。
for Atomic:用head函数返回的信息（一些文本,如下所示）
中含有这个时间标志，分析一下就行了
HTTP/1.1 200 OK
Date: Fri, 04 Aug 2000 05:43:09 GMT
Server: Apache/1.3.9 (Unix)
Connection: close
Content-Type: text/html
Atomic (2000-09-06 3:49:00)
哦， i see.
我还以为可以直接用JavaScript or VBScript实现呢，thanks
刘建军 (2000-09-09 14:50:00)
VBSCRIPT或JAVASCRIPT均有函数获得页面的最后修改时间。
Pipi. (2000-09-10 0:24:00)
HEAD是快的了
whj2001 (2000-09-17 10:11:00)
head好像还经常出现取不回来甚至access violent错误。
有没有稳定一些地方法。
kucio (2000-09-17 12:53:00)
试试调用JavaScript or VBScript。
wjiachun (2000-10-26 19:26:00)
附加功能 将问题提前
honestman (2000-12-04 20:08:00)
head已经是最快的了。
unreal (2000-12-04 23:36:00)
各位兄台，不要把简单问题复杂化么，呵呵.用TWebBrowser很简单的.
uses mshtml;
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('www.delphibbs.com');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Doc : IHTMLDocument2;
begin
Doc := WebBrowser1.Document as IHTMLDocument2;
Edit1.Text := Doc.Get_fileCreatedDate;
Edit2.Text := Doc.Get_fileModifiedDate;
end;
原来www.delphibbs.com的首页是2000-12-1日做的，呵呵
wjiachun (2001-01-13 8:14:00)
多人接受答案了。
zhfhe (2003-09-11 13:26:00)
利用delphi7中的控件TIdHTTP，极其简单、速度最快、不出acess violate错、而且还是同步的：
IdHTTP1.Head('http://zeroworld.html.533.net/program/http-modified-time.htm');
Showmessage(Datetimetostr(IdHTTP1.Response.LastModified));
Pipi.-50,steve-50,unreal-100,的回答最终被接受。
