Riska ,
как я уже говорил, все загоняется в dll-ресурсов, а потом от туда вытаскиваем.
1.
2.
3.
4.
/* html, css и картинки берутся из dll-ресурсов */
/* Открываем страницу в броузере; "14" - вычисляемый параметр */
/* res_tmp - html шаблон загружаемого файла */
ole_wb.object.Navigate( 'res://' + ls_Dir_Current + '\res.dll/html/res_tmp', 14, "", "", "")
далее в событии "ole_wb.documentcomplete" добавляем то, что нужно для правильного вида нужной страницы
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
ls_url = Lower( string( url))
lt_starttime = Now()
DO
Yield()
if this.object.ReadyState=4 then
idoc = this.object.document
/* задаем базовый путь BASE */
idoc.getElementsByTagName("BASE").Item(0).href = ls_base
/* заполняем массив LINK */
DO WHILE (Not IsNull( idoc.getElementsByTagName("LINK").Item(i)))
idoc.getElementsByTagName("LINK").Item(i).href = ls_base + 'html/res_link' + string(i)
i ++
LOOP
i=0
/* заполняем массив IMG */
DO WHILE (Not IsNull( idoc.getElementsByTagName("IMG").Item(i)))
ls_url = Reverse( idoc.getElementsByTagName("IMG").Item(i).src)
li_pos = Pos( ls_url, "/", Pos( ls_url, "/") + 1)
if li_pos > 0 then
ls_url = Left( ls_url, li_pos - 1)
elseif li_pos = 0 then
/* оставляем без изменений, т.е. ничего не добавилось к исходной ссылке */
else
EXIT
end if
ls_url = ls_base + Reverse( ls_url)
idoc.getElementsByTagName("IMG").Item(i).src = ls_url
i ++
LOOP
EXIT
end if
LOOP Until SecondsAfter( lt_starttime, Now()) > 5
Это как бы в кратце, чтобы был понятен сам смысл подхода.
