A
angel725
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
begin
web.Navigate('mail.163.com');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Web.OleObject.document.all.item('username',0).value := 'a';
Web.OleObject.document.all.item('password',0).value := 'b';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Web.OleObject.document.all.item('登陆邮箱',0).click;
end;
点前两个按钮没问题,点button3时,就出来一个框:
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0045424F in module 'Project1.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.
这是哪错了??
begin
web.Navigate('mail.163.com');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Web.OleObject.document.all.item('username',0).value := 'a';
Web.OleObject.document.all.item('password',0).value := 'b';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Web.OleObject.document.all.item('登陆邮箱',0).click;
end;
点前两个按钮没问题,点button3时,就出来一个框:
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0045424F in module 'Project1.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.
这是哪错了??