高价分了！急求如何用DELPHI获取PHP网页上的数据，并自动刷新对比网页数据的变化？(300)

有一个PHP的网页，我要如何用DELPHI编程来实现对其的实时观察并对比网页上数据的变化？比如一PHP网页上有四个数据：消费者、买入商品、买入数量、买入金额，因为要实时观察这四个数据的变化，不断地手动刷新网页很麻烦，能不能用DELPHI编程来实现对这个网页中四个数据的实时变化，发现有新的消费者数据，并自动弹出消息来提示你？急了，出大价钱了，300分送上！求各位高手……本来要给1000分的，系统不让哟

￥1000还差不多。

利用Hook技术将包捕获驱动挂接在网络层与链路层二者之间，有点复杂，没人民币搞不定。

找我有 现成的模型 qq439661788

1000分，系统不让给呀，最多给300分

用一个IDHTTP组件去访问该页面,自己解析处理画图,用一个定时器就可以了.

Com组件 MSXML2.XMLHTTP 读取网页信息，然后对信息进行处理后进行记录，然后再读取，再处理，再比较。

To dtamade：您这样说我不太明白；To Vsun：能否举出实例代码谢谢楼上各位！

对浏览器信息进行拦截,分析.BHO估计就可以了.

var LoadHttp,Matches, MyRegExp: OleVariant; NewHttpText, HttpText: string; i: integer;begin //读取目标网站信息 LoadHttp:=CreateOleObject('MSXML2.XMLHTTP'); LoadHttp.open('GET','http://www.taomail.com.cn/',false); LoadHttp.send; HttpText := LoadHttp.responseText; //将读取的信息进行分析处理 MyRegExp := CreateOleObject('VBScript.RegExp'); MyRegExp.Global := True; MyRegExp.IgnoreCase := True; MyRegExp.Pattern := 'Username:/s/w{3}-/w{3,20}/
Password:/s/w{3,20}';//正则表达式规则请参考相关文档 Matches := MyRegExp.Execute(HttpText); //显示找到的结果 if MyRegExp.Test(HttpText) then begin ShowMessage('找到了账号和密码'); for i := 1 to Matches.Count do begin ShowMessage(Format('找到的第%d个：%s', [i, Matches.item[i - 1]])); end; end else ShowMessage('没有找到');end;以上代码需引用ComObj单元

刚刚组建一个DELPHI INDY群，主要讨论INDY编程，希望熟悉此方面的朋友加入共同讨论，也欢迎使用webbrowser,ICS,SOCKET编程的朋友加入，也欢迎熟悉互联网协议HTTP、ftp、udp等的朋友加入。群号：12360713