WEB ВНА ФОРМЕ - Общие вопросы Delphi

BanDit · 04.07.2007, 22:55

кАК МОЖНО ПОМЕСТИТЬ HTML ДОКУМЕНТ НА ФОРМУ?

Sergey_nl · 04.07.2007, 23:19

Помещаешь на форму TWebBrowser, затем вызываешь у него метод Navigate, указав в качестве параметра путь к html:

Код:

     WB: TWebBrowser;
...
  WB.Navigate('http://www.ru');

Если надо загрузить с локального диска, пишем в качестве URL
'file:///D:/test.html'

Для динамической подгрузки HTML данных в контрол можно использовать следующий подход:

Код:

uses ...,MSHTML,ActiveX;
...

    WB: TWebBrowser;

...

procedure TForm1.Button2Click(Sender: TObject);
var
  //HTML строка для отображения
  HTMLString:string;
  //Variant для загрузки в web-контрол
  v: Variant;
  HTMLDocument: IHTMLDocument2;
begin
.....

//Формируем HTML для загрузки
    HTMLString:='<html><head><title>Динамический ХТМЛ</title></head><body>Пример загрузки</body></html>';


  //Преобразуем строку в массив Variant
  v := VarArrayCreate([0, 0], varVariant);
  v[0] := HTMLString;

  //Чтобы можно было что-то писать, нужно загрузить пустой документ
  if  WB.Document as IHTMLDocument2=nil then
    WB.Navigate('about:blank');
  //Прописываем HTML в документ (Document)
  HTMLDocument := WB.Document as IHTMLDocument2;
  if HTMLDocument <> nil then
  begin
    HTMLDocument.Close;
    HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
//    HTMLDocument.Close;
  end;
end;

BanDit · 07.07.2007, 21:22

всё получилось, спасибо

04.07.2007, 22:55	#1
BanDit Пользователь Регистрация: 26.05.2007 Сообщений: 58	WEB ВНА ФОРМЕ кАК МОЖНО ПОМЕСТИТЬ HTML ДОКУМЕНТ НА ФОРМУ?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
рисование на форме	Kostua	Помощь студентам	2	26.07.2008 16:24
Gif на форме	SnakeMan	Помощь студентам	3	04.04.2008 15:05
!!! Делфи. Фон в форме!	Abbatik	Помощь студентам	7	03.12.2007 13:00
Gif'ы на форме	GAGARIN-NEW	Общие вопросы Delphi	3	11.11.2007 11:22
Рисование на форме	niva622	Помощь студентам	4	18.01.2007 09:34

07.07.2007, 21:22	#3
BanDit Пользователь Регистрация: 26.05.2007 Сообщений: 58	всё получилось, спасибо