VPF::Как просмотреть HTML - Форум программистов

Ch0bits

Дата 4.11.2005, 03:30 (ссылка)

(нет голосов)

Загрузка ...

Python Dev.

Профиль
Группа: Завсегдатай
Сообщений: 2124
Регистрация: 21.2.2005
Где: Казань

Репутация: нет
Всего: 62

Есть сгенерированный HTML код, хранящийся в TStrings.
Как просмотреть его с помощью TWebBrowser? Или чем его ещё можно просмотреть?

--------------------

Quizful - новый портал с классными IT тестами!

SoWa

Дата 4.11.2005, 04:12 (ссылка)

(нет голосов)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74

Созранить его как HTML файл и загрузить его в WebBrowser.

--------------------

Всем добра smile

F1reF0x

Дата 4.11.2005, 04:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 10.10.2005

Репутация: нет
Всего: нет

Я бы сделал так.

Hfile.SaveToFile('1.html');
WebBrowser1.Navigate('file:///C:/1.html');

Alex

Дата 4.11.2005, 08:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

http://vingrad.ru/DELPHI-DLP-001288

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Ch0bits

Дата 4.11.2005, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Python Dev.

Профиль
Группа: Завсегдатай
Сообщений: 2124
Регистрация: 21.2.2005
Где: Казань

Репутация: нет
Всего: 62

Alex

Код


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;

Не понял, что такое IHTMLDocument2, его даже в справке нет?

Нашёл решение проблемы в DRKB:

Код


uses  
  ActiveX;  

procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);  
var  
  sl: TStringList;  
  ms: TMemoryStream;  
begin  
  WebBrowser.Navigate('about:blank');  
  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do  
   Application.ProcessMessages;  

  if Assigned(WebBrowser.Document) then  
  begin  
    sl := TStringList.Create;  
    try  
      ms := TMemoryStream.Create;  
      try  
        sl.Text := HTMLCode;  
        sl.SaveToStream(ms);  
        ms.Seek(0, 0);  
        (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));  
      finally  
        ms.Free;  
      end;  
    finally  
      sl.Free;  
    end;  
  end;  
end;  

procedure TForm1.Button1Click(Sender: TObject);  
begin  
  WB_LoadHTML(WebBrowser1,'SwissDelphiCenter');  
end;

--------------------

Quizful - новый портал с классными IT тестами!

p0s0l

Дата 4.11.2005, 13:19 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Цитата(Vadim999 @ 4.11.2005, 13:15)

Не понял, что такое IHTMLDocument2, его даже в справке нет?

Надо подключить модуль MSHTML

--------------------

С уважением, г-н Посол.

Демо

Дата 4.11.2005, 17:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Код


var
    s: String;
    v: OleVariant;
begin
    s := '<b><i>sdfsdfsdfsdf</i></b>';
    v := 'about:'+s;

    WebBrowser1.Navigate2(v);
end;

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »