求救，WebBrowser中的附加码问题（重复，注销） ( 积分: 50 )

现做一个程序自动读取WebBrowser中的值，传递用户名、密码、附加码等相关值。现网页能取出来，相关值也能传递，但我无法在页面中取出附加码显示在界面上。我放了两个WebBrowser，一个显示网页，一个显示网页是的附加码。但不能同步。

if not FDownComplete then
begin
Application.MessageBox('网页正在下载中，请稍后……', '提示', MB_OK + MB_ICONINFORMATION);
end
else
begin
ovDoc := WebBrowser1.Document;
ovForm := ovDoc.forms;

for I := ovForm.length - 1 downto 0 do
begin
if ovForm.item(I).Name = 'Login' then
begin
ovInput := ovform.Item(I);
Break;
end;
end;

for I := 0 to ovInput.length -1 do
begin
ovTag := ovInput.item(I);
if (ovTag.Type = 'text') or (ovTag.Type = 'password') then
begin
if ovTag.Name = 'TextBoxUid' then ovTag.Value := Trim(Edit1.Text);
if ovTag.Name = 'TextBoxPwd' then ovTag.Value := Trim(Edit2.Text);
if ovTag.Name = 'TextBoxVerifyCode' then ovTag.Value := Trim(Edit3.Text);
end
else
begin
if (ovTag.Type = 'submit') and (ovTag.Name = 'BtnLogin') then
begin
ovTag.Click;
end;
end;
end;
end;
这是我传递相关参数的值的代码。
因我需访问的网页和附加码的地址不一样。

急用。。。。。

现做一个程序自动读取WebBrowser中的值，传递用户名、密码、附加码等相关值。现网页能取出来，相关值也能传递，但我无法在页面中取出附加码显示在界面上。我放了两个WebBrowser，一个显示网页，一个显示网页是的附加码。但不能同步。

if not FDownComplete then
begin
Application.MessageBox('网页正在下载中，请稍后……', '提示', MB_OK + MB_ICONINFORMATION);
end
else
begin
ovDoc := WebBrowser1.Document;
ovForm := ovDoc.forms;

for I := ovForm.length - 1 downto 0 do
begin
if ovForm.item(I).Name = 'Login' then
begin
ovInput := ovform.Item(I);
Break;
end;
end;

for I := 0 to ovInput.length -1 do
begin
ovTag := ovInput.item(I);
if (ovTag.Type = 'text') or (ovTag.Type = 'password') then
begin
if ovTag.Name = 'TextBoxUid' then ovTag.Value := Trim(Edit1.Text);
if ovTag.Name = 'TextBoxPwd' then ovTag.Value := Trim(Edit2.Text);
if ovTag.Name = 'TextBoxVerifyCode' then ovTag.Value := Trim(Edit3.Text);
end
else
begin
if (ovTag.Type = 'submit') and (ovTag.Name = 'BtnLogin') then
begin
ovTag.Click;
end;
end;
end;
end;
这是我传递相关参数的值的代码。
因我需访问的网页和附加码的地址不一样。

急用。。。。。

其实我说的方法可以找到图片的，不管是不是aspx，我的目的是最终放到TImage里面，这样可以避免重复请求，楼主把那个网页贴出来，很多人会帮你的，放心吧

－－－－－－－－－－－－－－－－－－－－－－－－
不要注销了，我很想要这个分呢[][]

接受答案了.