是否能实现：delphi应用程序获取网页上某text的内容?(100分)

J

jiem

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-19

• #1

即想获取
<input type="text" name="wxsbmc" value="一期二级站3#水泵" size="26">
wxsbmc.value内容----"一期二级站3#水泵"

 

J

j_shen2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-19

• #2

用IHTMLDOCUMENT2搜索一下，一大堆答案

 

G

gutian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-19

• #3

使用webbrowser或者internetexplorer

 

B

bjxbt01

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-19

• #4

可以请看
http://www.delphibbs.com/delphibbs/dispq.asp?lid=551816

 

B

bbs_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-19

• #5

找公性

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-19

• #6

用http控件

 

C

cfish828

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-02

• #7

我也想知道～！

 

S

satanmonkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-08

• #8

http://www.www.ietoolkit.com
这个东西好像可以。

拖那个瞄准器到你想要的标签上就可以了。

 

S

siaosa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-08

• #9

//这是函数，在必须引用idHTTP单元
//注意输入参数的时候必须输入完整地址
function fnGetHtmlSource(AHtmAddress:String)Char;
var
idHttp1:TidHTTP;
begin
Result:=Pchar('');
try
idHttp1:=TidHTTP.Create(Application);
Result:=Pchar(idHttp1.Get(AHtmAddress));
except
ShowMessage('您输入的网页无法访问或者输入的地址不完整');
end;
idHttp1.Free;
end;

//实现方法
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:=fnGetHtmlSource('http://www.163.com/index.html');
end;