ТВебБраузер

← →
dimonf (2001-12-15 14:55) [3]

Посмотри может поможет!!!

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

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

--------------------------------------------------------------------------------
Furkan c (26.11.01 17:58)
При создании формы создаешь *.HTML, и загружаешь в TWebBrowser.

--------------------------------------------------------------------------------
Dimonf (26.11.01 18:17)
Где создовать *.HTML, в памяти или на диске? И какой командой идет загрузка в TWebBrowser?

--------------------------------------------------------------------------------
Dimonf (26.11.01 22:33)
Народ, нет никаких мыслей??? :(((

--------------------------------------------------------------------------------
Donal c (27.11.01 10:51)
Html - на диске, а потом
TWebBrowser.Navigate (PathToYourHTML);

--------------------------------------------------------------------------------
Sir Alex c (27.11.01 17:04)
Посмотри на www.euromind.com/iedelphi в разделе APP/namespace - там показан пример загрузки страниц из баз данных, но HTML можно брать откуда угодно.

--------------------------------------------------------------------------------
nikkie c (27.11.01 18:57)
на самом деле вариантов много. можно через namespace, но во многих случаях сгодится вариант через dhtml.

procedure TForm1.Button1Click(Sender: TObject);
var
Doc : Variant;
begin
Doc := WebBrowser1.Document;
Doc.body.innerHTML := "Hello, Web";
// или так
Doc.write("<HTML><BODY>Hello, Web</BODY></HTML>");
end;
---------------------------------------------------------------------
Donal c (07.12.01 12:58)
вот такой метод у меня в Дельфи 5 сработал :
сперва делаешь
WebBrowser1.Navigate ("about:blank");
а после того, как загрузка закончится можешь уже выполнять те функции, что были рекомендованы раньше

--------------------------------------------------------------------------------
nikkie c (07.12.01 13:06)
IHTMLDocument2 объявлен в mshtml.pas
только то, что ты пытаешься сделать можно сделать попроще
var
doc : Variant;
begin
doc := WebBrowser.Document;
doc.write("<HTML><BODY><H1>hello, web</H1></BODY></HTML>");
// или так
doc.body.innerHTML := "hello, web";
end;

--------------------------------------------------------------------------------
Вячеслав c (07.12.01 14:31)
Если еще точнее, то IHTMLDocument2 это интерфейс объекта WebBrowser object
А модуль mshtml.pas получается путем импорта одноименной(mshtml) библиотеки типов.
Про WebBrowser object прочитай в MSDN.

--------------------------------------------------------------
Здравствуйте.
Как в WEBBROWSER""е перезагрузить уже загруженную картинку? Следующий
пример показывает значение свойства SRC у всех загруженных картинок.

var Doc: IHTMLDocument2;
i: Integer;
v: OleVariant;
S: String;
begin
Doc := WEBBROWSER1.Document as IHTMLDocument2;
for i := 0 to Doc.images.length - 1 do
begin
v := Doc.images.item(i, """");
S := v.Src; //
end;
end;

В принципе, решением должно являться следующая конструкция, но я пока не
нашел решения (загрузка должна осуществляться не на прямую с диска, а
например из Stream""а).
for i := 0 to Doc.images.length - 1 do
(Doc.images.item(i, """") as IHTMLImgElement). <-и чего-то еще в этом
месте надо дописать ;-).
Буду благодарен за любую помощь.

ТВебБраузер Найти похожие ветки