请"隐士山人"进来!(50分)

  • 主题发起人 主题发起人 SP229
  • 开始时间 开始时间
S

SP229

Unregistered / Unconfirmed
GUEST, unregistred user!
网页上很多内容都是连接其它网页上的内容,直接查看http://www.qqfzl.net 网页代码你并不能发现你所要的字段,在http://www.qqfzl.net 网页上用鼠标指向你要查看的位置,单击右键,弹出菜单,点属性,上面就有连接网址了.
进入'http://www.855800.com/1218.htm网页编辑你会发现 <div align="center"><b><font size="3">你要找的那一段字符 </font></b></div>;这段代码,你要的内容就是从<font size="3">开始,到</font>结束的中间一段.
以上为你4月21日给我的回答.(分配100分)
再请你帮我看看这个网址:http://188100.net/1218.htm
在源代码中怎么也找不到后面的文字:第046期开奖结果:14-08-36-40-46-31 T:09
不知它藏哪去了.
 
还有这个地址也是取不到文字:http://www.4394.com/auto.htm
能否把这个时时更新的显示在IMAGE控件中呢
 
有两天上不了,自已顶一下
 
<div align="center"><span id="start_score" style="FONT-SIZE: 13pt"></span></div>
它使用了"内嵌文本容器span id" 直接连接到服务器中的start_score文件中,找不到的.
要长期获得特定字符是比较困难的,
procedure TForm1.Button1Click(Sender: TObject);
const
cbegin
= ':<bR><bR><bR><bR>';
cEnd = '==';
iLenbegin
= Length(cbegin
);
iLenEnd = Length(cEnd);
var
s: TStringStream;
sHtml,st: String;
ibegin
,iEnd: Integer;
begin
s := TStringStream.Create('');
try
IdHTTP1.HandleRedirects := True;
//http://www.qqfzl.net
IdHTTP1.Get('http://www.hkyzx.net/bbs/html/rlist/20080131180516.htm',s);
sHtml := s.DataString;
ibegin
:= Pos(cbegin
,sHtml);
Inc(ibegin
,iLenbegin
);
iEnd := PosEx(cEnd,sHtml,ibegin
);
st:=Copy(sHtml,ibegin
,iEnd-ibegin
);
// st:=' '+LeftStr(St,26)+' '+RightStr(St,6);
showmessage(st);
finally
s.Free;
end;
end;
 
也就是说它可能随时会改变
 
能否在窗口中放一个什么控件,就把网页上需要的内容显示出来.不是整个网页,
比如就显示下面的内容
112118.com开奖结果与本港台直播同步播出,结果自动更新! 开奖记录
第046期开奖结果:14-08-36-40-46-31 T:09
开奖时间4月24日星期四 21点00分 win98请点击刷新
 
有的文字放到js里面了,有的更加 变态,放到js 里面还加密
 
你的问题我看了一下资料,发现直接可取网页.而不用进入网页代码;
下面要用到 internt 组件下的WebBrowser1控件和一个memo1一个Timer1
加入这些后照贴如下代码就行了.呵呵~ 贴完代码后还要双击一下 OnTimer 事件.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls,mshtml, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
WebBrowser1: TWebBrowser;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure WbnHttp(var s:string);
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WbnHttp(var s:string);
begin
begin
S:='';
WebBrowser1.Navigate('http://188100.net/1218.htm');
if not(WebBrowser1.Busy) then
s:=(IHtmlDocument2(WebBrowser1.Document).Body.OuterText);
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var s:string;
begin
WbnHttp(s);
memo1.Text:=s;
end;

end.
 
感谢楼上,回答的朋友!!!
再次感谢你了"隐士山人"老大!!!
 
后退
顶部