if Webbrowser1.OleObject.Document.Frames.Length <> 0
then
begin
for i := 0 to Webbrowser1.OleObject.Document.Frames.Length - 1 do
!!! for j:=0 to Webbrowser1.OleObject.Document.Frames.item(i).Links.Length - 1 do
Listbox1.Items.Add(Webbrowser1.OleObject.Document.Frames.item(i).Links.Item(j));
end;
Delphi7. WebBrowser. Фреймы. Access Denied.
Код:
В строке, помеченной !!!, Возникает ошибка
"project project1.exe raised exception class EOleException with message 'Access denied'. Process stopped. Use Step or Run to continue"
В чем трабла и как обойти? помогите пжлст.