Сорсы из TWebBrowser

[Johnson]

Здравствуйте, уважаемые!
Подскажите, как сохранить исходный код открытой страницы из TWebBrowser в файл? Примеры из инета пробовал - не работают толком...

BDS 2007 Delphi
IE 7.0
Установлены паки JCL, JVCL, RScp

PS: Либо подскажите, как с компонентом TidHTTP использовать кукисы?

[Johnson]

а ещё подскажите, как найти с помощью Pos такую строку: '>

[psycho-coder]

> #1 примеры дай которые ты в инете нашел. Можно в ЛС

Pos('''>', <строка>)

[Johnson]

http://www.delphisources.ru/pages/fa...ml_source.html
http://www.delphisources.ru/pages/fa..._html_doc.html

примеров полно... и все они сделаны както очень уж... ректально, чтоли...
ниужели нет способа сохранить по-простому?

PS: кстати... лучше было бы научиться использовать кукисы через TidHTTP
загружать страничку, обрабатывать её, а потом уже открывать в TWebBrowser...

PPS: А м.б. есть компонент нормальный, который будет открывать HTML и может сохранить сырцы?

[Johnson]

Так-с... чтото у меня с логикой не то... )
Подскажите заодним... есть строка-ссылка вида
<li><a href='http://blablabla.ru/tesp.php?uid=200'> Бла-бла-бла </a> (и ещё тэги....)

пытаюсь вытащить адрес ссылки таким макаром:

      TmpLink:=Copy(
        HLEditor.Lines.Strings[I],
        Pos('href=',HLEditor.Lines.Strings[I])+5,
        PosEx('>', HLEditor.Lines.Strings[I], Pos('href=',HLEditor.Lines.Strings[I])+5) - Pos('href=',HLEditor.Lines.Strings[I]) + 6);

получаю после завершения открывающего тэга ещё лишние символы.. например:
'http://blablabla.ru/tesp.php?uid=200'> Бла-бла-бла </
или
'http://blablabla.ru/tesp.php?uid=200'> Бла-б

что я делаю неправильно? )

[Пепел Феникса]

Johnson поищи на форуме я выкладывал функции для получения исходного кода из браузера

s:='<li><a href='#39'http://blablabla.ru/tesp.php?uid=200'#39'> Бла-бла-бла </a>';
Delete(s,1,pos(#39,s));
s:=Copy(s,1,pos(#39,s)-1);

и все отлично выводит(здесь я реальные апострофы заменил на их код(#39) а поидее в исходном тексте этого не надо делать конечно...а вот внутри Pos надо так оставить)

[psycho-coder]

У меня все работает. Только сохраняет весь файл в одну строку

uses
  ..., mshtml, activex;
procedure TForm1.Button1Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
begin
  HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
  PersistFile := HTMLDocument as IPersistFile;
  PersistFile.Save(StringToOleStr('test.htm'), True);
end;

[Johnson]

У меня Access volation вылазит с пометкой строки:

  PersistFile.Save(StringToOleStr('test1.htm'), True);

[psycho-coder]

А доступ есть на запись?

[Пепел Феникса]

http://programmersforum.ru/showthrea...ght=WebBrowser
вот тема...я говорил поищи