[borockov]

Код:

PersistFile.Save(StringToOleStr('D:\'+pagecontrol1.Pages[j].Caption+'.html'), System.True);

По моему тут проблема в том что "pagecontrol1.pages[j].Caption" я обращаюсь ко всем вкладкам в том числе и к тем в которых нет открытых страниц, если так то как можно отследить вкладки к которым подгружены html?

[poli-smen]

Сообщение от borockov

Код:

PersistFile.Save(StringToOleStr('D:\'+pagecontrol1.Pages[j].Caption+'.html'), System.True);

По моему тут проблема в том что "pagecontrol1.pages[j].Caption" я обращаюсь ко всем вкладкам в том числе и к тем в которых нет открытых страниц, если так то как можно отследить вкладки к которым подгружены html?

Код:

  if Assigned(PersistFile) then PersistFile.Save(Pointer(WideString('D:\'+pagecontrol1.Pages[j].Caption+'.html')), True);

[borockov]

if Assigned(PersistFile) then PersistFile.Save(Pointer(WideString('D:\'+pagecont rol1.Pages[j].Caption+'.html')), True);
Всё работает на отлично! Пожалуйста если не трудно объясни этот кусочек кода=))

[poli-smen]

Сообщение от borockov

if Assigned(PersistFile) then PersistFile.Save(Pointer(WideString('D:\'+pagecont rol1.Pages[j].Caption+'.html')), True);
Всё работает на отлично! Пожалуйста если не трудно объясни этот кусочек кода=))

Когда в браузер не загружена страница то его свойство Document равно nil (указатель вникуда) и всякие преобразования его сначала в "as IHTMLDocument2", а потом в "as IPersistFile" ничего не изменяют и переменная HTMLDocument и переменная PersistFile принимают тоже значение nil. И когда ты пытаешься обратиться к методам PersistFile, то фактически пытаешься прочитать данные из запрещённого места, за что Windows "наказывает" приложением исключением "Access Violation". А функция Assigned просто проверяет указатель на nil.

[borockov]

Разъяснил. Спасибо!

[poli-smen]

Ещё забыл добавить, что функцией StringToOleStr пользоваться не рекомендую, так как она не освобождает за собой память занятую под строку - получаются утечки памяти. Либо же освобождать память явно, вызывая SysFreeString.

[borockov]

Так как вопрос связан снова с webbrowser не стал создавать новую тему. Вопрос заключается в следующем: Браузер с вкладками (вкладки сделаны при помоши pageontrol, вкладок около 30 штук). Есть кнопка для парсинга ссылок находящихся на данной странице, таким образом я после парсинга получаю все ссылки находящиеся на данной странице. Теперь собственно сам вопрос, в каждой открытой странице есть ссылочка на pdf файл, а в ссылке присутствует тег

target="_blank"

из за чего при нажатий на него ссылка открывается в новой вкладке, как сделать так что бы при нажатий на эту ссылку, файл сразу скачивался, а не открывался в новой вкладке?

[borockov]

Или как сохранить файл по такой ссылке? Например в IE можно сохранять так "ПКМ -> Сохранить объект"

[borockov]

Меня сейчас посетила одна мысль, а можно ведь пропарсить страницу, и вырезать с помощью функций POS тег

target_blank

[poli-smen]

Сообщение от borockov

Меня сейчас посетила одна мысль, а можно ведь пропарсить страницу, и вырезать с помощью функций POS тег

target_blank

А потом этот html опять нужно будет в браузер вгружать. По моему проще тогда просто пройтись по DOM объектам документа и прямо их и исправлять.
Вот попробовал - у меня так работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  doc: IHTMLDocument2;
  col: IHTMLElementCollection;
  a: IHTMLAnchorElement;
  i: Integer;
begin
  doc := WebBrowser1.Document as IHTMLDocument2;
  col := doc.links;
  for i := 0 to col.length - 1 do
  begin
    a := col.item(i, EmptyParam) as IHTMLAnchorElement;
    a.target := '';
  end;
end;