Webbrowser1 delphi html код

Webbrowser1 delphi html код

← →
Dimonf ( 2001-11-26 08:56 ) [0]

Народ, как програмно запихивать свой HTML код в TWebBrowser, чтобы он сразуже выполнялся. Может есть другие компаненты или сылки на готовые примеры. Буду рад всему.

← →
Furkan ( 2001-11-26 17:58 ) [1]

При создании формы создаешь *.HTML, и загружаешь в TWebBrowser.

← →
Dimonf ( 2001-11-26 18:17 ) [2]

Где создовать *.HTML, в памяти или на диске? И какой командой идет загрузка в TWebBrowser?

← →
Dimonf ( 2001-11-26 22:33 ) [3]

Народ, нет никаких мыслей. :(((

← →
Donal ( 2001-11-27 10:51 ) [4]

Html — на диске, а потом
TWebBrowser.Navigate (PathToYourHTML);

← →
Sir Alex ( 2001-11-27 17:04 ) [5]

Посмотри на www.euromind.com/iedelphi в разделе APP/namespace — там показан пример загрузки страниц из баз данных, но HTML можно брать откуда угодно.

← →
nikkie ( 2001-11-27 18:57 ) [6]

на самом деле вариантов много. можно через namespace, но во многих случаях сгодится вариант через dhtml.

procedure TForm1.Button1Click(Sender: TObject);
var
Doc : Variant;
begin
Doc := WebBrowser1.Document;
Doc.body.innerHTML := «Hello, Web»;
// или так
Doc.write(«Hello, Web«);
end;

← →
Sir Alex ( 2001-11-28 14:16 ) [7]

А можно через DHTML, к уже отображенному тексту добавить еще что-нибудь без передергивания экрана?

← →
nikkie ( 2001-11-29 10:39 ) [8]

я попробовал — вроде не дергается. мне кажется, что если добавленный html не изменяет layout всей страницы, то и не должно дергаться. если проблемы все-таки есть, то пришли пример — какая страница, что и как добавляешь.

← →
дикое Кенгуру ( 2002-02-09 02:21 ) [9]

Что делать если
TWebBrowser.Navigate (PathToYourHTML);
не работает? Пишет что какойто класс не правильный.
Как должен выглядить PathToYourHTML ?

А код
————-
procedure TForm1.Button1Click(Sender: TObject);
var
Doc : Variant;
begin
Doc := WebBrowser1.Document;
Doc.body.innerHTML := «Hello, Web»;
// или так
Doc.write(«Hello, Web«);
end;
————-
Вызывает какую то там ошибку по какому то адресу.
Что можно сделать с этим ?

← →
Dimk ( 2002-02-09 02:36 ) [10]

Наверное дело в том что TWebBrowser это еще и оле объект и может у тебя CLSID класса который скрывается за TWebBrowser не зарегистрирован? В священном писании написано :o)

TWebBrowser wraps the IWebBrowser2 interface from Microsoft’s Shell Doc Object and Control Library (SHDOCVW.DLL) to allow you to create a customized Web browsing application or to add Internet, file and network browsing, document viewing, and data downloading capabilities to your Delphi applications.

Note: Because TWebBrowser wraps the SHDOCVW.DLL, you must have SHDOCVW.DLL installed to use this component. This DLL ships with InternetExplorer 4 and later.

← →
дикое Кенгуру ( 2002-02-11 04:06 ) [11]

А где скачать этот CLSID класс ?
И где его надо регистрировать ?
У меня стандартное Дельфи 5.

Файл SHDOCVW.DLL у меня в папке C:\WINDOWS\SYSTEM\ находится.
Как его использовать ?
Это значит, что все кто будет пользоваться моей программой, должны будут тоже устанавливать и регистрировать этот файл ?

← →
дикое Кенгуру ( 2002-02-11 04:22 ) [12]

Во чего пишет :
[Error] Unit1.pas(207): This form of method call only allowed for class methods

На сточку :
TWebBrowser.Navigate («file.txt»);

Что же я не так делаю ?
Может кроме TWebBrowser нужно ещё что то важное на форму поместить ?

← →
Лёша ( 2002-02-11 14:16 ) [13]

TWebBrowser.Navigate («file.txt»);
И не будет работать. Надо писать:
WebBrowser1.Navigate («file.txt»);
Чтобы работал код:
procedure TForm1.Button1Click(Sender: TObject);
var
Doc : Variant;
begin
Doc := WebBrowser1.Document;
Doc.body.innerHTML := «Hello, Web»;
// или так
Doc.write(«Hello, Web«);
end;
нужно предварительно загрузить в WebBrowser1 какой-нибудь документ. Например:
WebBrowser1.Navigate («about:blank»);
Команда Doc.body.innerHTML := «Hello, Web» заменяет текст расположенный между . . Поэтому, если во всех последующих вставках будите использовать общие скрипты, стили, метатеги и.т.д., рекомендуется предзагрузить их в одном файле. Т.е. не «about:blank», а «шапка.htm».

← →
RainMan ( 2002-02-20 07:27 ) [14]

не «about:blank», а «шапка.htm».
т.е. если испоьзуется style jscript то это нужно загрузить в файл «шапка.htm»? и какой должен быть фоомат в этом файле? Полностью хтмл или только до тегов BODY?

← →
дикое Кенгуру ( 2002-02-22 06:32 ) [15]

Лёша
Спасибо за помощь ! Чего то я тормознул чуток.

Источник

Отображение html-страницы в WebBrowser из текстовой переменной

WebBrowser. Как получить Html код страницы открытой в «webBrowser» в правильной кодировке?
Пробую получить Html код страницы открытой в "webBrowser". public string GetHTMLCodPage() .

Проскакивает отображение страницы в WebBrowser
Добрый день форумчане! Добавлено через 10 минут Блин какой-то глюк текст уже третий раз набираю.

Форматирование html и отображение в WebBrowser
Есть у меня html-ки, лежащие в определенной структуре. Строка для получения выглядит так.

Отображение локальной web страницы в webbrowser
В общем есть готовая простая web страничка содержащая одну таблицу. Первая строка таблицы.

Сообщение было отмечено как решение

Решение

procedure TForm1.Button1Click(Sender: TObject); begin //Создаём документ с пустым содержанием. WebBrowser1.Navigate('about :blank'); //Загружаем в документ нужный HTML код. WebBrowser1.OleObject.Document.Write('
text
'); end;

var s:string; begin s:='text1'; WebBrowser1.Navigate('about :blank'); WebBrowser1.OleObject.Document.Write(s); s:='text1text2';

s:='text1'; WebBrowser1.Navigate('about :blank'); WebBrowser1.OleObject.Document.Write(s); s:='text1text2'; s:='text1'; WebBrowser1.Navigate('about :blank'); WebBrowser1.OleObject.Document.Write(s); s:='text1text2';

Хороший тон предполагает запостить решение после нахождения, вдруг кому понадобится

вспомня что я читал о js понял,что write не переписывает,а вписывает в документ что-то,т.е. добавить это WebBrowser1.OleObject.Document.Write(s); без вызова about :blank

Более универсально — действовать через DOM (объектная модель документа).
Например, у нас есть начальная версия HTML кода:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

//Создание документа и загрузка начальной версии HTML кода. procedure TForm1.Button1Click(Sender: TObject); var Doc : Variant; begin Doc := WebBrowser1.OleObject.document; if TVarData(Doc).VDispatch = nil then begin //Создаём новый документ с пустым содержанием. WebBrowser1.Navigate('about :blank'); Doc := WebBrowser1.OleObject.document; end; //Загружаем в документ нужный HTML код. //Почему-то если вместо 
использовать тег 
, то работает неверно. //Так происходит здесь и в JavaScript при проверке на [url]www.w3schools.com[/url]. Doc.open('text/html', 'replace'); Doc.write( '' + '
+ '
text1
' + '
' + '' ); Doc.close; end;

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

//Добавление элемента НЕ оптимальным способом. procedure TForm1.Button2Click(Sender: TObject); var Doc, Elem : Variant; begin //Ссылка на интерфейс документа. Doc := WebBrowser1.OleObject.document; //Находим элемент с Elem := Unassigned; Elem := Doc.getElementById('div1'); if TVarData(Elem).VDispatch = nil then begin ShowMessage('Не найден элемент с Действие отменено.'); Exit; end; //Добавляем к содержимому элемента дополнительный код. Elem.innerHTML := Elem.innerHTML + 'text2'; end;

//Добавляем к содержимому элемента дополнительный код. Elem.innerHTML := Elem.innerHTML + 'text2';

Здесь, для того, чтобы добавить новую часть к коду элемента, производится чтение всего текста элемента, потом, добавляется новая часть и весь код элемента перезаписывается. Если элемент содержит большой код, то такие действия замедлят работу.
Поэтому, наиболее эффективным будет приём с добавлением дочернего элемента:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

//Добавление элемента оптимальным способом. procedure TForm1.Button3Click(Sender: TObject); var Doc, Elem1, Elem2 : Variant; begin //Ссылка на интерфейс документа. Doc := WebBrowser1.OleObject.document; //Находим элемент с Elem1 := Unassigned; Elem1 := Doc.getElementById('div1'); if TVarData(Elem1).VDispatch = nil then begin ShowMessage('Не найден элемент с Действие отменено.'); Exit; end; //Создаём элемент, представленный тегами: . Elem2 := Doc.createElement('b'); //Задаём код элемента: "text2". Elem2.innerHTML := 'text2'; //Добавляем элемент Elem2 в коллекцию дочерних элементов для Elem1. Elem1.appendChild(Elem2); end;

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

//Добавление текста оптимальным способом. procedure TForm1.Button4Click(Sender: TObject); var Doc, Elem, NodeTxt : Variant; begin //Ссылка на интерфейс документа. Doc := WebBrowser1.OleObject.document; //Находим элемент с Elem := Unassigned; Elem := Doc.getElementById('div1'); if TVarData(Elem).VDispatch = nil then begin ShowMessage('Не найден элемент с Действие отменено.'); Exit; end; //Создаём текстовый узел с текстом: "_Это добавленный текст." NodeTxt := Doc.createTextNode('_Это добавленный текст.'); //Добавляем в элемент текстовый узел в качестве дочернего узла. Elem.appendChild(NodeTxt); end;

Для проверки, можно положить на форму 4 кнопки, оформить их обработчики события OnClick так, как показано выше и пощёлкать их.

Изменение кода страницы и отображение ее в WebBrowser
Имеется сайт нужно изменить одну ссылку изображения и другие теги и получившийся результат.

Отображение в TextBox адреса страницы WebBrowser
Как сделать так, чтобы при открытии любой страницы в webbrouser в textbox показывался вместо текста.

Отображение HTML без компонента webbrowser
собственно сабж это и есть мой вопрос, можно ли отобразить страницу сайта без данного компонента?

Отображение HTML без компонента webbrowser
собственно сабж это и есть мой вопрос, можно ли отобразить страницу сайта без данного компонента?

Источник

Webbrowser1 delphi html код

Пожалуйста, выделяйте текст программы тегом [сode=pas] . [/сode] . Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля. Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как «свернуть» программу в трей.
3. Как «скрыться» от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
. (продолжение следует) .
Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка — 60 дней. Последующие попытки бан.
Мат в разделе — бан на три месяца.

Использую статью DRKB «Как загрузить строковые данные в WebBrowser не прибегая к открытию файла? «

Но у меня вылетает access violation на 8-й строке кода выше

Что я делаю не так и как от этого избавиться?
Прикреплённый файл source.rar (3.01 Кбайт, скачиваний: 126)

Источник