ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / новый <script>
2 сообщений из 2, страница 1 из 1
новый <script>
    #35479966
CraMas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CraMas
Гость
наверно не в тот форум пишу, но делфисты ответить не могут(((

есть приложение на делфях, которое обрабатывает хтмл страницу
возникла необходимость добавить туда свой скрипт
пытался двумя способами
1.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure WB_AddHTML(var WebBrowser: TWebBrowser; Allign: string; HTMLCode: string);
var
  WebDoc: HTMLDocument;
  WebBody: HTMLBody;
begin
  WebDoc := WebBrowser.Document as HTMLDocument;
  WebBody := WebDoc.body as HTMLBody;
  WebBody.insertAdjacentHTML(Allign, HTMLCode);
end;

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  WB_AddHTML(WebBrowser,'afterBegin','<html><script>dfgdgfdfg</script></html>');//не работает
  WB_AddHTML(WebBrowser,'afterBegin','<html><div>dfgdgfdfg</div></html>'); //работает
end;

не понятно в чем разница

так же пытался добавить свой код с существующий js, скачивал его к себе, а потом пытался поменять
при переборе всех тегов делаю в TForm1.WebBrowser1DocumentComplete
Код: plaintext
1.
2.
3.
4.
if (HtmlElement.tagName = 'SCRIPT') 
        then
        begin
          HtmlElement.setAttribute('src','D:\my.js', 0 );
        end;

но выскакивает ошибка,(как я понимаю скрипт загружается раньше и менять себя не дает)
при просмотре кода через
WebBrowser1.OleObject. Document. documentElement. innerHTML показывается нужный код, который сохраненный отдельно, работает
чем можете помочь???
...
Рейтинг: 0 / 0
09.08.2008, 22:02
| Ответить | Цитировать | Написать  
новый <script>
    #35479986
apapacy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
apapacy
Участник
Поддержка HTML CSS JavaScript в компонентах Дельфей или Явы реализована далеко не в полном обънме. Уточните по докам что Вы можете и что не можеьте испольоваь в компонентах.
Тег скрипт может быть inline
<script type="text/javascript">
alert("Я работаю")
</script>
или внешний
<script type="text/javascript" src="script.js"></script>
Присваивание нового значения атрибуту src двже не во всех веб-браузерах приводит к загрузке скрипта.
...
Рейтинг: 0 / 0
09.08.2008, 22:32
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / новый <script>
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=22&gotonew=1&tid=1456046]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 152ms
get topic data:
 8ms
get first new msg:
 6ms
get forum data:
 3ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 223ms
total:  457ms
созд. / загр.: 457ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]