一个问题 (50分)

gide · 2002-11-19

在一个网页的源文件里，有<html><body>.....<input type="hidden" value="123" name="shuzhi">...</body></html>怎么利用delphi将value值该为789啊

zhgnet · 2002-11-19

先关注一下

amourz · 2002-11-20

用WebBrowser：
var
o : Olevariant;
begin
o := WebBrowser.OleObject.document.all.item('shuzhi',0);
o.value := '789';
o.Click;
end;

gide · 2002-11-21

to amourz 好象不行啊

jsxjd · 2002-11-21

要注意写法！！！

procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.navigate('d:/tt.htm');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
o : Olevariant;
begin
o := WebBrowser1.document;
o:=o.all.item('shuzhi',0);
showmessage(o.value);// 123
o.value := '789';
showmessage(o.value);// 789
end;

/////// tt.htm

<HTML>
<HEAD>
<TITLE> New Document </TITLE>
</HEAD>

<BODY>
AA<input type="hidden" value="123" name="shuzhi">BB
</BODY>
</HTML>

gide · 2002-11-22

还是不行，请高手实验后得出实际结果再发帖好吗？？？

amourz · 2002-11-22

怎么不行，完全可以的。自己再试试。给你完整代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.navigate('d:/tt.htm');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
o : Olevariant;
begin
o := WebBrowser1.document;
o:=o.all.item('shuzhi',0);
showmessage(o.value);// 123
o.value := '789';
o.click;
showmessage(o.value);// 789
end;

/////// tt.htm

<HTML>
<HEAD>
<TITLE> New Document </TITLE>
</HEAD>

<BODY>
AA<input type="hidden" value="123" name="shuzhi">BB
</BODY>
</HTML>

gide · 2002-12-02

我是说在html里并未真正把值改为789，只是在提示里showmessage(o.value);改了

amourz · 2002-12-03

兄弟，如果HTML代码可以被随意改动，那网络还有安全性可言吗。这里改变的只是你提交
的值。你可以自己设计一个简单的表单试试，把数据存入数据库，看看是否改变了

一个问题 (50分)

gide

Unregistered / Unconfirmed

zhgnet

Unregistered / Unconfirmed

amourz

Unregistered / Unconfirmed

gide

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

gide

Unregistered / Unconfirmed

amourz

Unregistered / Unconfirmed

gide

Unregistered / Unconfirmed

amourz

Unregistered / Unconfirmed

Similar threads