![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 53
|
![]()
Столкнулся с такой проблемой пытаюсь открыть исходный код html страницы в memo
Код:
|
![]() |
![]() |
![]() |
#2 |
Участник клуба
Регистрация: 28.07.2009
Сообщений: 1,510
|
![]()
Написать движок для выполнения яваскриптов *trollface*
|
![]() |
![]() |
![]() |
#3 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,434
|
![]()
1. GET метод может вернуть исходник как результат.. все проще:
Код:
|
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
![]()
первое на взгляд что пришло в голову, это то что не маскируетесь вы под IE.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 53
|
![]()
Вот схраняем в файл парс страницы
Код:
Код:
Код:
Код:
вообщем получается что HTML код сохраняется в файл а как сделать чтоб он был не в файле а в StringStream |
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
![]() Код:
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
![]() |
![]() |
![]() |
#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; как то так не работает.... |
![]() |
![]() |
![]() |
#8 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
![]()
а где создание объекта потока?
Код:
Код:
Код:
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 14.06.2009
Сообщений: 53
|
![]() Код:
Код:
|
![]() |
![]() |
![]() |
#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 |