Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.08.2009, 14:02   #1
Johnson
кривокодер ;)
Форумчанин
 
Аватар для Johnson
 
Регистрация: 20.06.2008
Сообщений: 707
По умолчанию Сорсы из TWebBrowser

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

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

PS: Либо подскажите, как с компонентом TidHTTP использовать кукисы?
"А как написать праграму?, "ришыти задачьку очинь нада" ©с форума. Жить становится интереснее, жить становится веселее...
{Быть или не быть} {Неуспешный суицид}
Johnson вне форума Ответить с цитированием
Старый 01.08.2009, 14:11   #2
Johnson
кривокодер ;)
Форумчанин
 
Аватар для Johnson
 
Регистрация: 20.06.2008
Сообщений: 707
По умолчанию

а ещё подскажите, как найти с помощью Pos такую строку: '>
"А как написать праграму?, "ришыти задачьку очинь нада" ©с форума. Жить становится интереснее, жить становится веселее...
{Быть или не быть} {Неуспешный суицид}
Johnson вне форума Ответить с цитированием
Старый 01.08.2009, 14:27   #3
psycho-coder
Участник клуба
 
Аватар для psycho-coder
 
Регистрация: 06.04.2009
Сообщений: 1,524
По умолчанию

> #1 примеры дай которые ты в инете нашел. Можно в ЛС
Код:
Pos('''>', <строка>)
psycho-coder вне форума Ответить с цитированием
Старый 01.08.2009, 14:38   #4
Johnson
кривокодер ;)
Форумчанин
 
Аватар для Johnson
 
Регистрация: 20.06.2008
Сообщений: 707
По умолчанию

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

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

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

PPS: А м.б. есть компонент нормальный, который будет открывать HTML и может сохранить сырцы?
"А как написать праграму?, "ришыти задачьку очинь нада" ©с форума. Жить становится интереснее, жить становится веселее...
{Быть или не быть} {Неуспешный суицид}
Johnson вне форума Ответить с цитированием
Старый 01.08.2009, 14:45   #5
Johnson
кривокодер ;)
Форумчанин
 
Аватар для Johnson
 
Регистрация: 20.06.2008
Сообщений: 707
По умолчанию

Так-с... чтото у меня с логикой не то... )
Подскажите заодним... есть строка-ссылка вида
<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 вне форума Ответить с цитированием
Старый 01.08.2009, 14:54   #6
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

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 надо так оставить)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 01.08.2009, 14:57   #7
psycho-coder
Участник клуба
 
Аватар для psycho-coder
 
Регистрация: 06.04.2009
Сообщений: 1,524
По умолчанию

У меня все работает. Только сохраняет весь файл в одну строку
Код:
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;
psycho-coder вне форума Ответить с цитированием
Старый 01.08.2009, 16:10   #8
Johnson
кривокодер ;)
Форумчанин
 
Аватар для Johnson
 
Регистрация: 20.06.2008
Сообщений: 707
По умолчанию

У меня Access volation вылазит с пометкой строки:
Код:
  PersistFile.Save(StringToOleStr('test1.htm'), True);
"А как написать праграму?, "ришыти задачьку очинь нада" ©с форума. Жить становится интереснее, жить становится веселее...
{Быть или не быть} {Неуспешный суицид}
Johnson вне форума Ответить с цитированием
Старый 01.08.2009, 16:12   #9
psycho-coder
Участник клуба
 
Аватар для psycho-coder
 
Регистрация: 06.04.2009
Сообщений: 1,524
По умолчанию

А доступ есть на запись?
psycho-coder вне форума Ответить с цитированием
Старый 01.08.2009, 16:23   #10
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

http://programmersforum.ru/showthrea...ght=WebBrowser
вот тема...я говорил поищи
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TWebBrowser ak3000 Компоненты Delphi 8 08.04.2010 19:33
TWebBrowser Sergey2 Компоненты Delphi 3 17.06.2009 03:32
TWebBrowser + IE 7.0 Diogo Общие вопросы Delphi 5 27.01.2008 12:43
TWebBrowser dima_lamo Работа с сетью в Delphi 1 19.01.2008 21:16