|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.09.2011, 23:32 | #1 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 53
|
HTML исходный код (парсинг)
Столкнулся с такой проблемой пытаюсь открыть исходный код html страницы в memo
Код:
|
09.09.2011, 02:10 | #2 |
Участник клуба
Регистрация: 28.07.2009
Сообщений: 1,510
|
Написать движок для выполнения яваскриптов *trollface*
|
09.09.2011, 02:53 | #3 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,426
|
1. GET метод может вернуть исходник как результат.. все проще:
Код:
|
09.09.2011, 12:35 | #4 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
первое на взгляд что пришло в голову, это то что не маскируетесь вы под IE.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
10.09.2011, 19:32 | #5 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 53
|
Вот схраняем в файл парс страницы
Код:
Код:
Код:
Код:
вообщем получается что HTML код сохраняется в файл а как сделать чтоб он был не в файле а в StringStream |
10.09.2011, 19:40 | #6 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
Код:
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
10.09.2011, 20:19 | #7 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 53
|
procedure TForm1.Button2Click(Sender: TObject);
var PersistStream: IPersistStreamInit; WebDoc: TStringStream; Stream: IStream; SaveResult: HRESULT; begin webbrowser1.Navigate('http://www.youtube.com/watch?NR=1&v=cPujBlFSQtU'); PersistStream := WebBrowser1.Document as IPersistStreamInit; WebDoc := TStringStream.Create(''); try Stream := TStreamAdapter.Create(WebDoc, soReference) as IStream; SaveResult := PersistStream.Save(Stream, True); if FAILED(SaveResult) then MessageBox(Handle, 'Fail to HTML source', 'Error', 0); MEMO1.Text:=WEBDOC.DataString; finally WebDoc.Free; end; как то так не работает.... |
10.09.2011, 20:30 | #8 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
а где создание объекта потока?
Код:
Код:
Код:
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
10.09.2011, 21:22 | #9 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 53
|
Код:
Код:
|
10.09.2011, 21:28 | #10 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
потому что надо ждать события OnDocumentComplete(и в том еще проверять на статус браузера)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Исходный код сайта. 2 | Тутонхамон | Работа с сетью в Delphi | 0 | 22.05.2011 14:38 |
Исходный код сайта. | Тутонхамон | Работа с сетью в Delphi | 7 | 22.05.2011 07:59 |
преобразовать исходный код | *Оля* | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 18.04.2010 20:47 |
Исходный код страницы | Abuhamed | PHP | 5 | 02.02.2010 00:34 |
Расформатировать исходный код страницы | OdNairy | Работа с сетью в Delphi | 5 | 19.09.2009 18:13 |