2006/04/21 | 一个博客送出的大礼
类别(摘要) | 评论(1) | 阅读(46) | 发表于 10:28
生活理财工具



家庭理财计算器大全http://finance.sina.com.cn/money/2004/0917/4.html

查看外汇牌价

www.bank-of-china.com/cn/common/service.jsp?category=ROOT%3E中行总行%3E行情分析室%3E中行汇评%3E外汇牌价

体彩查询http://www.9991.com/tools/lottery.htm

福彩查询http://www.zhcw.com/

汽车报价大全
www.pcauto.com.cn/qcbj/qcbj_if_gngw.html

商品防伪码查询
www.zfcc.net/chaxun.htm

商标注册前查询
www.86tm.com/tmdatabase/freemarksearch.asp

银行保险类网站入口
www.eeeuuu.com/life/Bank.htm






生活工具大全



常用电话列表
www.23u.com/tool/tel.htm

在线英汉翻译
www.9991.com/tools/translate.htm

历史上的今天
www1.wst.net.cn/scripts/flex/TodayOnHistory/


万年历
site.baidu.com/list/wannianli.htm

消费者维权相关站点 www.cca.org.cn/home/wangm_more1.asp?db=dfxx


查看各地每周电视预告 www.9991.com/tools/tv.htm

全国邮编查询http://www.9991.com/tools/postcode.htm

手机号码所属城市 www.9991.com/tools/shouji.htm

全国报刊订阅查询系统http://www.hepost.com/baokan/Default.htm

全国各地著名医院查询http://www.9991.com/tools/hospital.htm

国内身份证号码验证查询 flash.chinaren.com/ip/id.php

固定电话 地址查询 www.whatchina.com/html/about.html

法律条规查询 www.law-star.com/html/lawsearch.htm

药品健康查询 health.sohu.com/health/drugsearch.htm

菜谱大全 www.tastenet.com.cn/menu/


高等学历证书真伪查询
www.chsi.com.cn/xlcx/
各类学校查询
www.hongen.com/info/school/index.htm


政府机构查询
www.govonline.cn/frontmanger/govNavigation.jsp





交通旅游工具



列车时刻表
www.cngoto.com/tr/chaxun.htm

各地交通违章记录查询
www.huoe.com/wzml/fllm/sygjgdqc.htm

飞机航班查询
www.ctrip.com/supermarket/Flight/SuperFlightSearch.asp

全国各地长途汽车站刻查表
www.chelink.com/topic/changtu.htm

全国酒店查询、预订
travel.elong.com/hotels/default.aspx?campaign_id=4051398

旅游出行参考
www.cctv.com/geography/cxck/index.html

全国公交线路、站点查询
www.ibusdb.com/






//用了nmhttp这个控件，还有类似这种的网上应该很多例子的，delphifans里好像就不少

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Psock, NMHttp, ComCtrls, ExtCtrls,
Buttons,inifiles, shellapi;

type
TForm1 = class(TForm)
NMHTTP1: TNMHTTP;
Timer1: TTimer;
Panel1: TPanel;
Label3: TLabel;
Animate1: TAnimate;
ProgressBar1: TProgressBar;
Label1: TLabel;
Label2: TLabel;
Timer2: TTimer;
Image1: TImage;
procedure Timer1Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
url,cflj,bbh,bz:string;
i,size:integer;
end;

var
Form1: TForm1;

implementation

{$ R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=nmhttp1.BytesRecvd;
label2.Caption:='已下载：'+inttostr(nmhttp1.BytesRecvd)+' 字节';;
end;

procedure TForm1.FormShow(Sender: TObject);
var
inif:Tinifile;
begin
try
cflj:=extractfilepath(application.ExeName)+'ptckhd.exe';
inif:=Tinifile.Create(extractfilepath(application.ExeName)+'config.ini');
url:=inif.ReadString('zdgx','url','');
bbh:=inif.ReadString('zdgx','bbh','');
finally
inif.free;
end;
nmhttp1.Head(url);
label1.Caption:='共：'+inttostr(nmhttp1.BytesTotal)+' 字节';
label2.Caption:='已下载：0 字节';
ProgressBar1.Min:=0;
ProgressBar1.Max:=nmhttp1.BytesTotal;
size:=nmhttp1.BytesTotal;
nmhttp1.Cancel;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
inif:Tinifile;
begin
i:=i+1;
if i=3 then
begin
timer1.Enabled:=true;
Animate1.Active:=true;
nmhttp1.InputFileMode:=true;
nmhttp1.Body:=cflj;
nmhttp1.Get(url);
try
inif:=Tinifile.Create(extractfilepath(application.ExeName)+'config.ini');
inif.WriteString('bbh','bbh',bbh);
shellexecute(handle,nil,pchar('ptckhd.exe'),nil,nil,sw_shownormal);
finally
inif.free;
close;
end;
end;
end;

end.

0

评论Comments

日志分类
首页[140]
自创[54]
生活[65]
摘要[14]
公告[2]
图片[2]
隐私篇[3]