есть строка sHTML - содержит внутри себя код НTML
- Код: Выделить всё
<html><body><h1>LOAD HTML!</h1><img src='img/check.gif' alt=''></body></html>
далее строку грузим в WebBrowser (обертка над MSIE ) посредством следующей процедуры
(пишу на память поэтому заранее извиняюсь)
- Код: Выделить всё
Private Sub LoadHTMLToBrowser(ByVal oBS As IPersistStreamInit, ByVal Data As String)
Dim oStream As IStream
Set oStream = CreateStreamOnHGlobal(0, True)
Data = ChrW(&HFEFF) & Data
oStream.Write ByVal StrPtr(Data), LenB(Data)
oStream.Seek 0, 0
oBS.Load oStream
End Sub
LoadHTMLToBrowser WB.Document, sHTML
все как бы здорово и хорошо читаем в WB текст 'LOAD HTML!' Но!
рисунки не отображаются на загруженной странице!
если посмотреть на свойста рисунка то видно что 'img src' меняется на
с 'img/check.gif' на 'about:blankimg/check.gif'
вследствии чего отлуп с отображением.
'
about:blank - default страница в MSIE но сдается дело не в этом.
'
Куда рыть?
Заранее спасибо
'
'
