Загрузить страницу в TWebBrowser из строки

@__bool · Регистрация: 13.06.2010

Студворк — интернет-сервис помощи студентам

Всем привет. Возможно ли такое? без разницы TWebBrowser/TCppWebBrowser (сам не помню в чем отличие)

Понимаю что есть такой выход:
1) Сохранять строку в файл
2) Грузить файл в TWebBrowser

Но логика подсказывает что должна быть возможность загрузки напрямую.

Буду очень признательным за любые дельные советы.

@kzru_hunter · 23.08.2012, 21:29

т.е. отобразить какой-нибудь текст в WebBrowser'e, не прибегая к файлам?

@__bool · 23.08.2012, 22:04 **[ТС]**

А как иначе? Строку в WebBrowser, т.е. Есть строка, Есть веббраузер, нужно чтоб строка отобразилась в ВебБраузере!

А точнее, строка представляет собой html-страницу.

Приведу пример строки:

C++
1
String page="<html><body><h2>Заголовок</h2><div>Содержимое</div></body></html>";

Очень надеюсь что задумка реализуема.

Добавлено через 3 минуты
На delphi разумеется кучу примеров нашел.
Но помню как еще с LK больше года назад мы пытались получить исходный код страницы из TWebBrowser - это оказалось мега-сложным делом.

@QVO · 23.08.2012, 23:34

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
var
  v: Variant;
  HTMLDocument: IHTMLDocument2;  
begin
  HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
  v := VarArrayCreate([0, 0], varVariant);
  v[0] := HTMLString; // Это Ваша HTML строка
  HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
  HTMLDocument.Close;
 
  ...
end;

C++
1
2
3
4
5
6
7
8
9
10
11
#include <mshtml.h>
//...
String HTMLString="<html><body><h2>Заголовок</h2><div>Содержимое</div></body></html>";
Variant v;
IHTMLDocument2 *HTMLDoc = NULL;
 
  HTMLDoc = (IHTMLDocument2*)WebBrowser1->Document ; // я хз что он хочет
  v = VarArrayCreate( OPENARRAY( int, ( 0, 0 ) ), varVariant );
  v.PutElement( HTMLString, 0 );
  HTMLDoc->write( PSafeArray( TVarData(v).VArray ) );
  HTMLDoc->close();

Добавлено через 11 минут

C++
1
2
3
4
5
6
7
8
9
String HTMLString="<html><body><h2>Заголовок</h2><div>Содержимое</div></body></html>";
Variant v;
IHTMLDocument2 *HTMLDoc = NULL;
 
  WebBrowser1->Document->QueryInterface<IHTMLDocument2>(&HTMLDoc);
  v = VarArrayCreate( OPENARRAY( int, ( 0, 0 ) ), varVariant );
  v.PutElement(HTMLString, 0);
  HTMLDoc->write(PSafeArray(TVarData(v).VArray));
  HTMLDoc->close();

Добавлено через 2 минуты
В общем, кто ищет тот найдет!

C++
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "mshtml.h"
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnNavigateAndEditClick(TObject *Sender)
{
        wb->Navigate((WideString)"www.google.com");
        while (wb->Busy)
                Application->ProcessMessages();
 
        if (wb->Document)
        {
                IHTMLDocument2 *html;
                wb->Document->QueryInterface<IHTMLDocument2>(&html);
                html->put_designMode(L"On");
                html->Release();
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnInsertImageClick(TObject *Sender)
{
    if (wb->Document)
    {
          IHTMLDocument2 *html;
          wb->Document->QueryInterface<IHTMLDocument2>(&html);
          VARIANT var;
          VARIANT_BOOL receive;
          html->execCommand(L"InsertImage",true,var, &receive);
          html->Release();
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnGetHtmlClick(TObject *Sender)
{
        if (wb->Document)
        {
                IHTMLDocument2 *html;
                wb->Document->QueryInterface<IHTMLDocument2>(&html);
                IHTMLElement *pElement;
                html->get_body(&pElement);
                pElement->get_parentElement(&pElement);
                wchar_t *tmp;
                pElement->get_outerHTML(&tmp);
                Memo1->Lines->Text = tmp;
                pElement->Release();
                html->Release();
        }
}
//---------------------------------------------------------------------------

источник

@__bool · 02.09.2012, 18:22 **[ТС]**

Так и не получилось вывести в браузер страницу из строки.
Вот тут ошибка, не представляю как фиксить даже этот готовый код.

C++
1
wb->Document->QueryInterface<IHTMLDocument2>(&HTMLDoc);

@volvo · 02.09.2012, 18:25

Сообщение от __bool

Вот тут ошибка

1) какая ошибка?
2) версия Builder-а?

@__bool · 02.09.2012, 18:54 **[ТС]**

XE

---------------------------
Debugger Exception Notification
---------------------------
Project TWebBrowser.exe raised exception class EAccessViolation with message 'Access violation at address 00401C37 in module 'TWebBrowser.exe'. Read of address 00000000'.
---------------------------
Break Continue Help
---------------------------

Добавлено через 1 минуту
Я понимаю, что ошибка не информативна.
Но почему Access violation не пойму.

@Avazart · 02.09.2012, 18:56

Чет не пойму а что таи должно быть "без создания объектов" ?

@volvo · 02.09.2012, 18:57

А в WebBrowser что-то уже было загружено (хотя бы about:blank), или он совсем пустой на момент этого AV? Если пустой - то Navigate("about:blank") добавь где-нибудь пораньше.

@__bool · 02.09.2012, 19:16 **[ТС]**

Отлично! Все заработало, логику понял!))))) спасибо!

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@__bool 288 / 229 / 27 Регистрация: 13.06.2010 Сообщений: 744

	Загрузить страницу в TWebBrowser из строки 23.08.2012, 19:46. Показов 5622. Ответов 9 Метки нет (Все метки) Всем привет. Возможно ли такое? без разницы TWebBrowser/TCppWebBrowser (сам не помню в чем отличие) Понимаю что есть такой выход: 1) Сохранять строку в файл 2) Грузить файл в TWebBrowser Но логика подсказывает что должна быть возможность загрузки напрямую. Буду очень признательным за любые дельные советы. 0

@kzru_hunter 1124 / 795 / 101 Регистрация: 01.02.2011 Сообщений: 1,887 Записей в блоге: 1
	23.08.2012, 21:29
	т.е. отобразить какой-нибудь текст в WebBrowser'e, не прибегая к файлам? 1

@__bool 288 / 229 / 27 Регистрация: 13.06.2010 Сообщений: 744
	02.09.2012, 18:54 [ТС]
	XE --------------------------- Debugger Exception Notification --------------------------- Project TWebBrowser.exe raised exception class EAccessViolation with message 'Access violation at address 00401C37 in module 'TWebBrowser.exe'. Read of address 00000000'. --------------------------- Break Continue Help --------------------------- Добавлено через 1 минуту Я понимаю, что ошибка не информативна. Но почему Access violation не пойму. 0

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	02.09.2012, 18:56
	Чет не пойму а что таи должно быть "без создания объектов" ? 1

@volvo Супер-модератор 33192 / 21488 / 8233 Регистрация: 22.10.2011 Сообщений: 36,870 Записей в блоге: 12
	02.09.2012, 18:57
	А в WebBrowser что-то уже было загружено (хотя бы about:blank), или он совсем пустой на момент этого AV? Если пустой - то Navigate("about:blank") добавь где-нибудь пораньше. 2

@__bool 288 / 229 / 27 Регистрация: 13.06.2010 Сообщений: 744
	02.09.2012, 19:16 [ТС]
	Отлично! Все заработало, логику понял!))))) спасибо! 0