Delphi 使用 IDHttp 获取文件最后修改时间
procedure TForm1.FormCreate(Sender: TObject);
var
dt: TDateTime;
begin
IdHTTP1.Head(sURL);
dt := IdHTTP1.Response.LastModified;
IdHTTP1.Disconnect;
ShowMessage(DateTimeToStr(dt));
end;
procedure TForm1.FormCreate(Sender: TObject);
var
dt: TDateTime;
begin
IdHTTP1.Head(sURL);
dt := IdHTTP1.Response.LastModified;
IdHTTP1.Disconnect;
ShowMessage(DateTimeToStr(dt));
end;