procedure TForm1.BtnStartClick(Sender: TObject);
var
str: string;
i,j: longint;
begin
i := 0;
for i := 0 to ListBoxName.Items.Count - 1 do
begin
while WebBrowser.Busy do
Delay(50);
with WebBrowser do
begin
OleObject.document.all.Item('xuehao').value := ListBoxNum.Items.Strings[i]; //i=0 时正常,i=1时报错;
OleObject.document.all.Item('zhenhao').value := ListBoxName.Items.Strings[i];
OleObject.document.all.Item('submit_query').click;
end;
{此处省略N行}
try
WebBrowser.GoBack;
except
on E: Exception do
begin
{此处省略N行}
end;
end;
end;
end;错误代码:First chance exception at $756EB9BC. Exception class EAccessViolation with message 'Access violation at address 004B7E61 in module 'GetResult.exe'. Read of address 00000000'. Process GetResult.exe (11244)WebBrowser打开的网页: http://cx.zjzs.net/pg.asp (验证码在程序启动时手动输入)
var
str: string;
i,j: longint;
begin
i := 0;
for i := 0 to ListBoxName.Items.Count - 1 do
begin
while WebBrowser.Busy do
Delay(50);
with WebBrowser do
begin
OleObject.document.all.Item('xuehao').value := ListBoxNum.Items.Strings[i]; //i=0 时正常,i=1时报错;
OleObject.document.all.Item('zhenhao').value := ListBoxName.Items.Strings[i];
OleObject.document.all.Item('submit_query').click;
end;
{此处省略N行}
try
WebBrowser.GoBack;
except
on E: Exception do
begin
{此处省略N行}
end;
end;
end;
end;错误代码:First chance exception at $756EB9BC. Exception class EAccessViolation with message 'Access violation at address 004B7E61 in module 'GetResult.exe'. Read of address 00000000'. Process GetResult.exe (11244)WebBrowser打开的网页: http://cx.zjzs.net/pg.asp (验证码在程序启动时手动输入)
解决方案 »
- 哪位同学有Delphi direct X图形与游戏程序设计 一书源代码?
- 如何用SQL同时使用两张数据表
- 那位大侠帮我修改下面这个程序啊,很简单的,就是数据库的增加删除功能(我只有30分了)
- 有一个文件加不到listbox中
- toolbar上的toolbutton按下去就弹不上来了是为什么、怎么解决?
- adoconnection怎样动态连接?
- 怎么能以网络形式打开DBF数据库,要能修改,删除,增加。(给分32)
- 怎样确定任意一天是星期几?????
- 如何将midi文件打成专用包并播放
- 哪里有delphi6下载。谢谢!
- =?UTF-8?B?解码(indy10,idpop3,idmessage.subject)
- 行首怎么显示编号
GET/POST 搞不来,我是初学者,大一还没开学呢用WebBrowser就没办法了吗?