/* html, css и картинки берутся из dll-ресурсов */
/* Открываем страницу в броузере; "14" - вычисляемый параметр */
/* res_tmp - html шаблон загружаемого файла */
ole_wb.object.Navigate( 'res://' + ls_Dir_Current + '\res.dll/html/res_tmp', 14, "", "", "")

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