WebBrowser [D7, XP]
LexXL © (2008-04-16 15:18:00)
динамически загружаю html в WebBrowser
uses ActiveX, MSHTML;
procedure TextToWebBrowser(Text: string; var WB:
TWebBrowser);
var
Document: IHTMLDocument2;
V: OleVariant;
begin
// Документ необходимо создать только один раз за
текущую сессию работы
if WB.Document = nil then
WB.Navigate('about:blank');
// Ожидаем создания документа и позволяем обрабатывать
все сообщения
while WB.Document = nil do
Application.ProcessMessages;
Document := WB.Document as IHtmlDocument2;
// Вставляем текст (до 2Гб)
{следующие строчки внесены недавно - старый вариант
функции не работал под XP}
V := VarArrayCreate([0, 0], varVariant);
V[0] := Text;
Document.Write(PSafeArray(TVarData(v).VArray));
Document.Close;
end;
проблема в том что мой HTML состоит из трех частей вторая
часть береться из бызы и думаю неккоректно каждый раз при
редактировании создавать физический файлик, поэтому таким способом
генерю так сказать налету.
Проблема:
html страничка работает с js скриптами, а если загружать ее
таким способом то WebBrowser "не знает" к ним пути, так как это
было бы через метод WebBrowser1.Navigate
может кто поможет справиться с этой задачей?
easy (2008-04-16 16:00:00) [1]
<HEAD>
<BASE HREF="path.to.js/">
</HEAD>
Наверх 
ЧАТ |
Орешник |
|
