大虾好，我做了一个软件，想在软件打开后，访问一下公司的网站（该软件也是属于这个公司的）使网站计数器加1。可是我用idhttp组件访问网页，在流量统计却不能看到访问记录，怎么回事？我把那个访问网页的线程贴出来。
大虾们帮帮忙吧
procedure TConnectCorpWeb.Execute;
begin
{ Place thread code here }
myweb:=TIdHTTP.Create(nil);
url:='*************';
try
try
myweb.ReadTimeout:= 20000; //超过这个时间则不再访问
myweb.Get(URL);
except
end;
finally
myweb.Free;
end; end;
大虾们帮帮忙吧
procedure TConnectCorpWeb.Execute;
begin
{ Place thread code here }
myweb:=TIdHTTP.Create(nil);
url:='*************';
try
try
myweb.ReadTimeout:= 20000; //超过这个时间则不再访问
myweb.Get(URL);
except
end;
finally
myweb.Free;
end; end;
解决方案 »
- FastReport横向打印的奇怪问题，请大家看看
- 关于adoQuery下的多条件查询请教?(100分)
- delphi的TreeView中点击节点前面的stateimage图标如何触发一个事件
- 如何得到ADO存储过程的返回值?
- 应该是个常见问题，请问它的sql语句如何写？
- 请问如何得到任意一个文件的绝对路径呢？？急！在线寻求帮助
- ★★★★★用Delphi的ado连接sql 2000桌面版的困难★★★★★
- 请问：哪里有fastreport的使用教程，它自带的实在是看不懂。或者给个例子也行
- 如何在程序里调用另一个 button 的事件过程
- ICS的HttpCli怎样设置超时？ 如何得到它是否已莫名其妙的死了，以便用HttpCli1.Abort中断他？
- 请问李维在MSN的BLOG的地址是什么？？
- 如何知道函数在使用的过程中参数的数量？
myweb.ReadTimeout:= 20000; //超过这个时间则不再访问
myweb.Get(URL);
except
//-----------------------------------------
//在调用myweb.Get(URL);时产生了错误
On E: Exception do
Log.Write(E.Message)
end;
就是来增加一个网站的访问量。<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gbk">
<title></title>
</head><body> 1 <script language=javascript>
<!--
var m_tc_server="vip1.t2t2.com";
var m_tc_website="14880";
var m_tc_parent_website="0";
var m_tc_style="3";
/-->
</script>
<script language=javascript src="http://vip1.t2t2.com/visit.js"></script>
</body>
</html>