|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
TWebBrowser портит ссылки в коде страницы
Добрый день
есть общеизвестный код вывода закачанного кода ХТМЛ-страницы при помощи TWebBrowser (RAD2010) Код:
procedure TForm1.Button1Click(Sender: TObject); var URL, Flags, TargetFrameName, PostData, Headers: Olevariant; MS : String; begin URL := Edit1.Text; Flags := 0; TargetFrameName := 0; Postdata := 0; Headers := 0; WebBrowser1.Navigate(URL, Flags, TargetFrameName, PostData, Headers); repeat Application.ProcessMessages; until WebBrowser1.ReadyState >= READYSTATE_COMPLETE; if WebBrowser1.Document <> nil then MS := (WebBrowser1.Document as IHTMLDocument2).body.innerhtml; begin Memo1.Clear; Memo1.Text := MS; end; end; initialization Set8087CW($133F); Код позволяет вывести в МЕМО код страницы после обработки ЖАБА-скриптов. однако при этом искажаются ссылки. Код страницы, закачанный idHTTP (только ссылки) <a href="http://mail.yandex.ru"onclick="c(this,17,1080)">Войти&nbs p;в почту</a> <a href="http://www.yandex.ru" onclick="c(this,17,1083)">Яндекс</a> <a href="http://www.artlebedev.ru" onclick="c(this,17,1084)">Студия Артемия Лебедева</a> Код страницы, закачанный TWebBrowser <A onclick=c(this,17,1080) href="http://mail.yandex.ru">Войти в почту</A> <A onclick=c(this,17,1083) href="http://www.yandex.ru">Яндекс</A>»</P> <A onclick=c(this,17,1084) href="http://www.artlebedev.ru">Студия Артемия Лебедева</A> Вопрос: что нужно изменить в коде, чтобы ссылки не портились, конечно если это возможно Всем ответившим спасибо. Последний раз редактировалось Pcrepair, 25.02.2012 в 19:05. |