delphi 获取北京时间

最新推荐文章于 2021-05-29 00:48:35 发布
最新推荐文章于 2021-05-29 00:48:35 发布
阅读量7k 收藏 7
点赞数
分类专栏： DELPHI VS PASCAL 文章标签： delphi string timer date
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/yanjiaye520/article/details/7887463
版权
本文介绍了如何在Delphi编程环境中通过不同方法获取准确的北京时间。首先，提到了使用内置的Timer组件结合网络API来同步系统时间，其次，探讨了处理字符串和日期类型在时间获取过程中的作用。
摘要由CSDN通过智能技术生成

方法一：

uses
   ComObj, DateUtils;

function GetInternetTime: string;
var
  XmlHttp: OleVariant;
  datetxt: string;
  DateLst: TStringList;
  mon: string;
  timeGMT, GetNetTime: TDateTime;
  s: string;
begin
  XmlHttp := CreateOleObject('Microsoft.XMLHTTP');
  XmlHttp.Open('GET', 'http://open.baidu.com/special/time/', False);
  XmlHttp.Send;

  datetxt := XmlHttp.GetResponseHeader('Date'); 
  datetxt := Copy(datetxt, Pos(',', datetxt) + 1, 100);
  datetxt := StringReplace(datetxt, 'GMT', '', []);
  datetxt := Trim(datetxt);
  if datetxt = '' then Exit;
  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
最低0.47元/天 解锁文章
Microblue
关注
专栏目录
Delphi XE 取得当前时间戳的几个函数
yuteria的博客
12-18 732
时间戳 delphi
服务器与客户端的时间同步
lyhoo163的专栏
10-06 9913
                                                 服务器与客户端的时间同步                服务器、客户端全部代码下载：https://download.csdn.net/download/lyhoo163/10703465             一、服务器与客户端的时间同步 我们在编程时，需要让客户端与服务器的时间保存一致...
delphi _获取Internet时间
01-19
unit GetInternetTime; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComObj, DateUtils; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private public function GetInternetTime:string; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var InternetTime:string; begin InternetTime:=GetInternetTime; ShowMessage(InternetTime); end; function TForm1.GetInternetTime:string; var XmlHttp: Variant; datetxt: string; DateLst: TStringList; mon: string; timeGMT, GetNetTime: TDateTime; s: string; 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);
获取北京时间
weixin_30877755的博客
06-30 126
方法一： [delphi] uses ComObj,DateUtils; functionGetInternetTime:string; var XmlHttp:OleVariant; datetxt:string; DateLst:TStringList; mon:strin...
delphi xe android 黑屏,delphi xe 网上获取北京时间Android APP 启动黑屏优化补丁
weixin_39956353的博客
05-29 115
这个必须转，这才是高手，解决官方都解决不好的问题！
delphi从网页头获取网络时间日期
01-24
delphi从任意网页头信息中提取网络时间日期
自动网上获取北京时间更新
01-10
自动获取百度北京时间，自动更新Windows的系统时间源代码
Delphi控件 HTTPGet
02-25
在 Delphi 开发环境中，HTTPGet 是一个常用的控件，用于执行 HTTP GET 请求来获取远程服务器上的资源。这个控件简化了与 Web 服务交互的过程，使得开发者无需深入理解网络编程的细节，即可轻松实现数据的获取。在...
delphi + GPS
09-22
3. **坐标转换**：GPS返回的数据通常是WGS84坐标系，但在某些情况下可能需要转换到其他坐标系，如北京54、西安80等。源码可能包含相应的坐标转换算法。 4. **地图显示**：如果包含地图显示的示例，那么源码可能涉及...
DELPHI 从网络获取当前时间，并自动校对
04-21
通过 TClientSocket 从网络获取时间，并截取表示时间的字符串。与本机时间进行比对，并进行校正。
从网页获取网络时间
06-20
从网页获取时间，速度超快，几乎每次都能成功的，不像从时间服务器上获取时间常常失败
互联网时间的获取和同步实例(Delphi7+ Indy)
04-10
使用 Delphi7 + IdDay 编写的互联网时间同步小程序，能够获取互联网上多台网络服务器的时间，并能够和本地时间进行同步。程序很简单，但是为了能写这个简单的小程序背后花的心血却不简单！新手在这方面如果没有人指点光靠自己摸索会浪费很多宝贵的时间，做过的人都深有体会。 网上能搜到的资源很多，但是帮得上忙的却寥寥无几。该实例对于有这方面需求的朋友有着十分重要的借鉴意义。资源分定得不低，但是下载使用后你会觉得这10分下载得很超值，因为我也是花了不少积分才总结出这么个资源，谢谢支持。
Delphi通过Internet同步电脑时间
05-03
内容索引:Delphi源码,网络相关,时间同步　　Delphi通过Internet同步完全自己所用电脑的时间，运行程序前请确保你的本地网络连接是正确的，因本程序要连接到远程时间服务器，然后比对本地电脑时间，如果有误差程序会自动更正。界面方面使用了一个界面控件，如果找不到合适的版本，请去掉控件的引用。
Delphi TClientSocket 获取网络时间并自动校正.rar
07-10
Delphi TClientSocket 获取网络时间并自动校正Windows电脑时间，并截取表示时间的字符串。与本机时间进行比对，并进行校正。自动从Windows中的时间服务器获取时间戳，对字符串处理比对后更新系统时间，和Windows时间同步程序功能相仿。源代码编译运行界面如演示截图所示。
Delphi从UTC (GMT)返回时差
weixin_34233856的博客
01-08 438
Delphi/Pascal view sourceprint?1 function TimeZoneBias: Integer;   var    TZI: Windows.TTimeZoneInformation; // info about time zone   begin    if Windows.GetTimeZoneInformation(TZI) = Windows.TIM...
Delphi 获取当前时间并且设置格式
小印丶的笔记
12-10 654
RAD Studio 10.2.3 测试√ var mTime : string; begin mTime := FormatDateTime('YYYY-MM-DD hh:mm:ss', Now()); ShowMessage(mTime); end; 一点点笔记，以便以后翻阅。
Delphi两则：1、PDT时间转北京时间，2、条件编译
coolslob
10-22 5470
1、PDT时间转北京时间   做了个小东西，时间是PDT，而且月份也是英文的。写了个小函数，有用得着的直接copy去:) 有更好的实现方法，请回复。 uses DateUtils;function ConvertPDTDateTime(Str: string): TDateTime;const  EngMonthName: array[1..12] of string = (Jan, Feb
获取网络日期及时间
PowerFY的博客
08-17 1806
WebClient wc = new WebClient();             string html = wc.DownloadString("http://time.tianqi.com/");             int begin = html.IndexOf("北京现在时间：");             string dateTime= html.Substring(
DELPHI 获取当前时间
最新发布
04-24
你可以使用 Delphi 中的内置函数 Now 获取当前时间。Now 函数返回一个 TDateTime 类型的值，它表示当前日期和时间。例如，以下代码演示如何获取当前时间并将其显示在 MessageDlg 函数中： ``` procedure TForm1....
评论 4
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值