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

Рейтинг@Mail.ru
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Программирование на Delphi [ Добавить статью ]

Загрузка 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 13:51 )
Просмотров: 82 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Все смайлы
Код *:
Поиск
Друзья сайта
  • Создать сайт
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Все проекты компании
  • Copyright MyCorp © 2018
    Автор этого сайта: Неверов Евгений Викторович

    Мои координаты
    Бесплатный конструктор сайтов - uCozЯндекс.Метрика