简单问题（送分）

Question

我想Label1显示 当前电脑连接 www.baidu.com 的延迟速度 

Answer 1

简单一些的,用IdHTTP组件:var
    dwTickCount: DWORD;procedure TForm1.Button1Click(Sender: TObject);
begin
    IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.2;)';
    IdHTTP1.Get('http://www.baidu.com/');
end;procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
    dwTickCount := GetTickCount();
end;procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
    Label1.Caption := Format('耗时: %d ms', [GetTickCount() - dwTickCount]);
end;