Подскажите, хороший, компонент для просмотра HTML, DHTML

[DelphiLexx]

Сейчас я работаю над приложением, где необходим справочник, в котором будут показываться HTML-документы, подскажите, пожалуйста, хороший, бесплатный компонент для просмотра HTML-документов.

Сообщение отредактировано: DelphiLexx - 12.09.07, 11:35

[Rouse_]

TWebBrowser - бесплатен по самое нехочу

[DelphiLexx]

Цитата Rouse_ @ 12.09.07, 11:50

TWebBrowser - бесплатен по самое нехочу

Не устраивает тем, что не умеет читать данные из потока (Stream). У меня Html-документы будут храниться в базе данных, затем с помощью Sql-запроса помещается в DataSet, после чего мне нужно, чтобы эти данные отобразились в виде Html-документа.

[Rouse_]

Цитата DelphiLexx @ 12.09.07, 12:00

Не устраивает тем, что не умеет читать данные из потока (Stream).

Это ты просто не умеешь в него писать из потока
Ищи примеры в FAQ.

[rapido]

ThtmlLite. У него есть LoadFromStream.

[DelphiLexx]

Цитата Rouse_ @ 12.09.07, 12:16

Это ты просто не умеешь в него писать из потока
Ищи примеры в FAQ.

Нашел

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;

Но есть одна проблема, у меня в ms - будет храниться Html-код, после исполнения кода указанного выше, TWebBrowser - отображает не саму страницу (толькл информационный текст), а Html-код, т.е. тэги, информационный текст и прочую фигню. Как быть?

[Rouse_]

var
  Document: IHtmlDocument2;
  V: Variant;
 
...
 
  WebBrowser2.Navigate('about:blank');
  while WebBrowser2.Document = nil do
    Application.ProcessMessages;
  Document := WebBrowser2.Document as IHtmlDocument2;
  V := VarArrayCreate([0, 0], varVariant);
  V[0] := HTMLCode;
  Document.Writeln(PSafeArray(TVarData(v).VArray));
end;

[Romkin]

Делай тупо

var
  V: OleVariant;
  HtmlDoc: IHTMLDocument2;
begin
  WB.Navigate('about:blank');
  OleCheck(WB.Document.QueryInterface(IHTMLDocument2, HtmlDoc));
  V := VarArrayCreate([0, 0], varVariant);
  V[0] := ppText.Content; //строка
  HtmlDoc.write(PSafeArray(TVarData(V).VArray));
  HtmlDoc.close;

Добавлено 13.09.07, 11:37

Розыч, close в конце не помешает

[Rouse_]

Цитата Romkin @ 13.09.07, 11:35

Розыч, close в конце не помешает

Я когда даю демки, обычно на такое не смотрю - должен же вопрошающий сам над чем нибудь поразмыслить

[DelphiLexx]

Цитата Romkin @ 13.09.07, 11:35

Делай тупо
var
V: OleVariant;
HtmlDoc: IHTMLDocument2;
begin
WB.Navigate('about:blank');
OleCheck(WB.Document.QueryInterface(IHTMLDocument2, HtmlDoc));
V := VarArrayCreate([0, 0], varVariant);
V[0] := ppText.Content; //строка
HtmlDoc.write(PSafeArray(TVarData(V).VArray));
HtmlDoc.close;

Так мне же нужно через поток

[Romkin]

Цитата DelphiLexx @ 12.09.07, 12:00

У меня Html-документы будут храниться в базе данных, затем с помощью Sql-запроса помещается в DataSet, после чего мне нужно, чтобы эти данные отобразились в виде Html-документа.

Вопрос на засыпку: Есть ли у TField метод AsString?!

[Rouse_]

Используй TStringStream - будет тебе поток, легко трансформируемый в строку

[DelphiLexx]

Цитата Romkin @ 13.09.07, 12:10

Вопрос на засыпку: Есть ли у TField метод AsString?!

Есть.

Добавлено 13.09.07, 14:05
А как узнать, пустой ли докумет или нет?

[Romkin]

А если есть, ничего не мешает писать V[0] := MyField.asString;

Цитата DelphiLexx @ 13.09.07, 14:01

А как узнать, пустой ли докумет или нет?

В где?

[DelphiLexx]

Цитата Romkin @ 14.09.07, 04:32

В где?

В TWebBrowser'e.
1. Мне это нужно, для следующих целей, если документ пустой, т.е. если загружен html - который не содержит информационного текста, тогда я блокирую кнопку очистить (она очищает содержимое документа TWebBrowser'a). Кстати, умеет ли TWebBrowser очищать документ, если ли у него такой метод?
2. Как сохранить исходник TWebBrowser.Document'a в TStringStream, я так понимаю вот так:

 ts := TStringStream.Create;
 try
  ((WebBrowser.Document as IHTMLDocument2) as IPersistStreamInit).Save(TStreamAdapter.Create(ts), 'вот здесь что ставить?')
  ...
 finally
  ts.Free;
 end;

Сообщение отредактировано: DelphiLexx - 14.09.07, 06:55