Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Получение ссылки из Frame

Автор: borockov 27.11.2012, 18:52

Привет всем. Друзья есть несколько вопросов прошу вашей помощи. Есть небольшое подобие браузера с вкладками (pagecontrol), с помощью неё я захожу на сайт (он всегда один), после нескольких кликов перед нами открывается страница со ссылками, далее нажимаю на кнопку "Парсить", загоняю все ссылки в listbox, затем с помощью функций POS отсеиваю ненужные ссылки. Далее при нажатий на кнопку "Открыть все", каждая ссылка находившаяся в listbox открывается в отдельной вкладке. Теперь на каждой из открывшихся страниц находятся прямые ссылки на pdf документ, я хотел их тоже пропарсить но тут выскочила проблема, ссылка находится внутри фрейма, имеет такой вид

Код


"http://www.fips.ru/cdfi/fips.dll?ty=29&docid=2465459&cl=9&path=http://195.208.85.248/Archive/PAT/2012FULL/2012.10.27/DOC/RUNWC2/000/000/002/465/459/document.pdf"

и благодаря политике безопасности винды я не могу вытащить эти ссылки, при попытке их извлечь выскакивает ошибка "Отказано в доступе". Как можно сделать так что бы при нажатий на button, происходило программное нажатие на ссылку в открывшихся страницах?
При ручном нажатий на ссылку также в webbrowser выскакивало диалоговое окно загрузки, а мне этого не надо было, проблема частично решена с помощью компонента idhttp, с помощью GET запроса я передаю прямую ссылку прописанную прямо в коде и таким образом скачивается, без диалоговых окон. Спасибо, заранее благодарен!

Автор: Illusion Dolphin 27.11.2012, 19:24

Цитата

выскакивает ошибка "Отказано в доступе"

Кто именно выдаёт эту ошибку? И полный текст ошибки.

Цитата

ссылка находится внутри фрейма, имеет такой вид

Если фрейм имеет другой домен, то "Отказано в доступе" может выдавать браузер.

Автор: borockov 27.11.2012, 19:33

Вот полный текст ошибки "Project1.exe raised exception class EOleException with message 'Отказано в доступе'. Process stopped ..." Если таккую ошибку может выдавать браузер то смена Twebbroser к примеру на gecko может помочь?

Автор: Illusion Dolphin 27.11.2012, 19:51

Цитата

"Project1.exe raised exception class EOleException with message 'Отказано в доступе'. Process stopped ..."

Что в этот момент времени происходит? Можно 2-3 строчки кода?

Автор: borockov 27.11.2012, 20:14

Код


procedure TForm1.Button15Click(Sender: TObject);
var
  i: integer;
begin
   Listbox1.Clear;
   if Webbrowser1.OleObject.Document.Frames.Length <> 0 then
   begin
      for i := 0 to Webbrowser1.OleObject.Document.Frames.Length-1 do
      begin
         Listbox1.Items.Add( Webbrowser1.OleObject.Document.Frames.item(i).Document.URL );
      end;
   end;
   end;
end.

Стрелочка указывает вот сюда "

Код


Listbox1.Items.Add( Webbrowser1.OleObject.Document.Frames.item(i).Document.URL );

Автор: borockov 27.11.2012, 21:30

И кстати такой интересный момент если сохранить html страницу, то данная ссылка ""

Код


http://www.fips.ru/cdfi/fips.dll?ty=29&docid=2465459&cl=9&path=http://195.208.85.248/Archive/PAT/2012FULL/2012.10.27/DOC/RUNWC2/000/000/002/465/459/document.pdf"

" в ней отсутствует

Автор: Illusion Dolphin 27.11.2012, 22:34

Цитата

Стрелочка указывает вот сюда "
Выделить всёкод Pascal/Delphi
1:

Listbox1.Items.Add( Webbrowser1.OleObject.Document.Frames.item(i).Document.URL );

Думаю что проблема в том, что Document недоступен, т.к. у фрейма другой домен. Можно попробовать обойти не все фреймы, а все элементы, найти те что iframe и взять у них аттрибут src

Код


(Webbrowser1.Document as IHTMLDocument2).all;
Elem := allElemtns.item(0, I) as IHTMLElement;
if Assigned(Elem ) and (Embed.tagName = 'IFRAME') then
  Elem .getAttribute("src", 2) <-- тут получается адрес

Автор: borockov 27.11.2012, 22:45

Спасибо, щас попробую=)

Автор: borockov 28.11.2012, 09:24

Вообще почти всю ночь просидел, ничего не получилось, попробую с Geckobrowser