Delphi使用XmlHttp获取时间

uses ComObj, DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  XmlHttp: Variant;
  datetxt : String;
  DateLst : TStringList;
  mon: String;
  timeGMT,GetNetTime:TDateTime;
begin
    XmlHttp := CreateOleObject(‘Microsoft.XMLHTTP‘);
    XmlHttp.Open( ‘Get‘, ‘http://www.baidu.com/‘, False);
    XmlHttp.send;
    datetxt :=XmlHttp.getResponseHeader(‘Date‘);
    datetxt := Copy(datetxt,Pos(‘,‘,datetxt)+1,100);
    datetxt := StringReplace(datetxt,‘GMT‘,‘‘,[]);
    datetxt := Trim(datetxt);
    DateLst := TStringList.Create;
    while Pos(‘ ‘,datetxt)>0 do
    begin
        DateLst.Add(Copy(datetxt,1,Pos(‘ ‘,datetxt)-1)) ;
        datetxt := Copy(datetxt,Pos(‘ ‘,datetxt)+1,100);
    end ;
    DateLst.Add(datetxt) ;
    if DateLst[1] = ‘Jan‘ then
        mon := ‘01‘
    else if DateLst[1] = ‘Feb‘ then
        mon := ‘02‘
    else if DateLst[1] = ‘Mar‘ then
        mon := ‘03‘
    else if DateLst[1] = ‘Apr‘ then
        mon := ‘04‘
    else if DateLst[1] = ‘Mar‘ then
        mon := ‘05‘
    else if DateLst[1] = ‘Jun‘ then
        mon := ‘06‘
    else if DateLst[1] = ‘Jul‘ then
        mon := ‘07‘
    else if DateLst[1] = ‘Aug‘ then
        mon := ‘08‘
    else if DateLst[1] = ‘Sep‘ then
        mon := ‘09‘
    else if DateLst[1] = ‘Oct‘ then
        mon := ‘10‘
    else if DateLst[1] = ‘Nov‘ then
        mon := ‘11‘
    else if DateLst[1] = ‘Dec‘ then
        mon := ‘12‘ ;
    timeGMT := StrToDateTime(DateLst[2]+‘-‘+mon+‘-‘+DateLst[0]+‘ ‘+ DateLst[3]);
    GetNetTime := IncHour(TimeGMT,8);
    self.Caption := FormatDateTime(‘yyyy年mm月dd日 HH:NN:SS‘,GetNetTime) ;
end;

http://www.lsworks.net/article/20.html

时间： 2024-10-06 13:46:47

Delphi使用XmlHttp获取时间的相关文章

ajax异步服务器获取时间

1.创建ajax对象 <script type="text/javascript"> //创建AJAX异步对象 function createAJAX(){ var ajax = null; try{ //如果IE5=IE12的话 ajax = new ActiveXObject("microsoft.xmlhttp"); }catch(e1){ try{ //如果是非IE的话 ajax = new XMLHttpRequest(); }catch(e2

js中获取时间new date()的用法

js中获取时间new date()的用法获取时间: var myDate = new Date();//获取系统当前时间获取特定格式的时间: 1 myDate.getYear(); //获取当前年份(2位) 2 myDate.getFullYear(); //获取完整的年份(4位,1970-????) 3 myDate.getMonth(); //获取当前月份(0-11,0代表1月) 4 myDate.getDate(); //获取当前日(1-31) 5 myDate.getDay();

javaScript系列：js中获取时间new Date()详细介绍

var myDate = new Date();myDate.getYear(); //获取当前年份(2位)myDate.getFullYear(); //获取完整的年份(4位,1970-????)myDate.getMonth(); //获取当前月份(0-11,0代表1月)myDate.getDate(); //获取当前日(1-31)myDate.getDay(); //获取当前星期X(0-6,0代表星期天) 何问起 hovertree.commyDate.getTime(); //获取当前时

【转载】c/c++在windows下获取时间和计算时间差的几种方法总结

一.标准C和C++都可用 1.获取时间用time_t time( time_t * timer ),计算时间差使用double difftime( time_t timer1, time_t timer0 ). 精确到秒. 测试程序如下: #include <time.h> #include <stdio.h> int main() { time_t start ,end ; double cost; time(&start); sleep(1); time(&en

javacscript 3 获取时间、数字取值、定时器

[jq与js的关系]:jq是对js常用的方法进行封装.简化和优化. [小技巧]ctrl+k+D :VS写代码格式乱了时,整理代码用的快捷键 ------------------------------------------------------------------------------------------------------ 1.获取时间: 方法描述 getFullYear() 返回四位数的年份 getMonth() 返回月份(从0开始,1月=0,2月=1,...) getD

2015.7.20 第九课课程重点（js语句：获取时间、数字取值、定时器）

单位换算（格式化十进制数-B），获取时间工具类CommenUtil

package com.example.administrator.filemanager.utils; import java.text.DecimalFormat;import java.text.SimpleDateFormat;import java.util.Date; /** * Created by Administrator on 2016/12/29. */ public class CommonUtils { //DecimalFormat:用于格式化十进制的数字

（基础篇）PHP获取时间、时间戳的各种格式写法汇总

1.获取当前时间方法date() 很简单,这就是获取时间的方法,格式为:date($format, $timestamp),format为格式.timestamp为时间戳–可填参数. 2.获取时间戳方法time().strtotime() 这两个方法,都可以获取php中unix时间戳,time()为直接获取得到,strtotime($time, $now)为将时间格式转为时间戳,$time为必填.清楚了这个,想了解更多,请继续往下看. 3. date($format)用法比如: echo da

使用PHP获取时间今天明天昨天时间戳的详解

使用php获取时间今天明天昨天时间戳 2013-06-20 11:12 <?php echo "今天:".date("Y-m-d")."<br>"; echo "昨天:".date("Y-m-d",strtotime("-1 day")), "<br>"; echo "明天:".date("Y-m-d&quo