Неверов Евгений Викторович
QR-код
Меню сайта
Категории раздела
Программирование на языке Паскаль [27]
В данной категории представлены новые функции, созданные на языке Паскаль, которые могут пригодиться при написании своих программ
Программирование на Delphi [18]
В данной категории представлены полезные подпрограммы, которые могут пригодиться при написании своих программ, а также рассматриваются примеры готовых проектов, создаваемых в среде программирования Delphi
Программирование на HTML [0]
В данной категории рассматриваются примеры готовых проектов, создаваемых на языке HTML
Прочее [40]
Свободная тематика
Мини-чат
200
Наш опрос
Как Вы думаете, сколько времени люди проживут на Земле?
Всего ответов: 57
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Загрузка HTML-текста в браузер компонента TWebBrowser
uses ActiveX;

procedure WebBrowserText(var WebBrowser: TWebBrowser; TextHTML: string);
var sl: TStringList;
    ms: TMemoryStream;
begin
   If Assigned(WebBrowser.Document) then
   begin
      sl:=TStringList.Create;
      ms:=TMemoryStream.Create;
      sl.Text:=TextHTML;
      sl.SaveToStream(ms);
      ms.Seek(0, 0);
      (WebBrowser.Document as IPersistStreamInit).Load(tStreamAdapter.Create(ms));
      FreeAndNil(ms);
      FreeAndNil(sl);
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var OLEHtmlText: OLEVariant;
begin
   OLEHtmlText:='about:';
   WebBrowser1.Navigate2(OLEHtmlText);
end;

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
   s:=FormatDateTime('dd.mm.yyyy hh:nn:ss', Now);
   s:=Format('Date / Time: <b>%s</b>', [s]);
   WebBrowserText(WebBrowser1, s);
end;

Примечание. Компонент TWebBrowser находится на вкладке "Internet".

Категория: Программирование на Delphi | Добавил: newerow1989 (14.08.2016)
Просмотров: 470 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Все смайлы
Код *:
Вход на сайт
Поиск
Друзья сайта
Copyright MyCorp © 2022
Версия для мобильных устройств. Яндекс.Метрика БКНС