как загрузить свой HTML код в WebBrowser

[AntonGV]

Как загрузить написанный в текстовом поле HTML код в компонент WebBrowser?

[Amed]

В поиск.

[tyomitch]

http://bbs.vbstreets.ru/viewtopic.php?t=14491 : процедура LoadHTML

[AntonGV]

вот процедура LoadHTML

Код: Выделить всё

Private Sub LoadHTML(ByVal oPS As IPersistStreamInit, ByVal Data As String)
Dim oStream As IStream
   ' Create a stream on globlal memory
   Set oStream = CreateStreamOnHGlobal(0, True)
   ' Write the string in the stream
   Data = ChrW(&HFEFF) & Data
   oStream.Write ByVal StrPtr(Data), LenB(Data)
   ' Move the stream pointer to the start of the stream
   oStream.Seek 0, 0
   ' Load the HTML
   oPS.Load oStream
End Sub

теперь бы еще разобраться с параметрами
что такое oPS и что за тип IPersistStreamInit

[tyomitch]

Превосходно. Теперь тебе не составит труда найти, где в проекте она вызывается, и с какими параметрами.

[AntonGV]

При запуске проекта появляется ошибка "Не может найти проект или библиотеку" и выделяется строка

Код: Выделить всё

Private Sub LoadHTML(ByVal oPS As IPersistStreamInit, ByVal Data As String)

это из-за IPersistStreamInit. Какую библиотеку надо подключить?

[tyomitch]

господи, ну прочитай ты тот топик донизу: там же всё расписано.

[AntonGV]

не мог бы ты мне выслать эту библиотеку, а то я по адресу http://www.mvps.org/emorcillo/download/vb6/tl_ole.zip ничего не могу скачать. Заранее благодарю.

[tyomitch]

Попробуй ещё раз, у меня отлично качается. Если не выйдет -- пришлю.

[GSerg]

Как забавно...
Это всё для текста, находящегося в текстбоксе?
Как забавно!..

[ANDLL]

[флуд]

вот процедура LoadHTML

Код: Выделить всё

Private Sub LoadHTML(ByVal oPS As IPersistStreamInit, ByVal Data As String)
Dim oStream As IStream
   ' Create a stream on globlal memory
   Set oStream = CreateStreamOnHGlobal(0, True)
   ' Write the string in the stream
   Data = ChrW(&HFEFF) & Data
   oStream.Write ByVal StrPtr(Data), LenB(Data)
   ' Move the stream pointer to the start of the stream
   oStream.Seek 0, 0
   ' Load the HTML
   oPS.Load oStream
End Sub

теперь бы еще разобраться с параметрами
что такое oPS и что за тип IPersistStreamInit

Это только у меня подсветка синтаксиса не выделела ByVal который keword и выделила ChrW, который просто имя функции?

[GSerg]

А ты только заметил?
Мы пытались. Я вот список кейвордов отредактировал, к примеру. После этого вообще подсветка сдохла. Гайдар всё вернул обратно.

[AntonGV]

Сегодня наконец-то все скачалось и все зарабатало. Спасибо вам всем большое!