Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Подскажите, хороший, компонент для просмотра HTML 
:(
    Опции темы
Delphist
Дата 12.9.2007, 14:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


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

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



--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
W4FhLF
Дата 12.9.2007, 15:00 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


found myself
****


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

Репутация: 6
Всего: 121
TWebBrowser


--------------------
"Бог умер" © Ницше
"Ницше умер" © Бог
PM ICQ   Вверх
MetalFan
Дата 12.9.2007, 20:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


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

Репутация: 62
Всего: 128
или более продвинутый собрат - TEmbeddedWB


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Poseidon
Дата 13.9.2007, 13:00 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

Репутация: 53
Всего: 133
Цитата(W4FhLF @  12.9.2007,  15:00 Найти цитируемый пост)
TWebBrowser
Хотелось бы заметить, что TWebBrowser на прямую завязан с Internet Explorer. И если (теоретически возможно) у пользователя IE удален, то TWebBrowser работать откажется. Да и уязвимости, присетствующие в IE, так же перекачуют в программу, пока их не пофиксят.



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Alexeis
Дата 13.9.2007, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
С другой стороны, ведь FF не предоставляет интерфейс своего браузера, для возможности его встраивания в свое ПО, а писать свой браузер дело весьма непростое...

Добавлено через 6 минут и 26 секунд
  Ух ты! Как же я был неправ, таки предоставляет ActiveX! И люди уже юзают мозилу вместо IE!
http://www.paranoia.clara.net/articles/tam...ith_delphi.html


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Delphist
Дата 13.9.2007, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


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

Репутация: 2
Всего: 3
Цитата(W4FhLF @  12.9.2007,  16:00 Найти цитируемый пост)
TWebBrowser 

Нашел
Код

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; 

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

Это сообщение отредактировал(а) Delphist - 13.9.2007, 13:57


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Snowy
Дата 13.9.2007, 14:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Так сформируй нормальный html - с заголовком и т.д.

Добавлено через 43 секунды
Хотя и без заголовка нормально работает:
Код
procedure LoadHtml(wb: TWebBrowser; html: string);
var ms: TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  ms.Write(html[1], Length(html));
  ms.Position:=0;
  try
    while wb.ReadyState < READYSTATE_INTERACTIVE do
      Application.HandleMessage;
    (wb.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
  finally
    ms.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  wb1.Navigate('about:blank');
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  LoadHtml(wb1, '<h1>Hello World!</h1>');
end;
PM MAIL   Вверх
Delphist
Дата 13.9.2007, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


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

Репутация: 2
Всего: 3
Цитата(Snowy @  13.9.2007,  15:09 Найти цитируемый пост)
Хотя и без заголовка нормально работает:

У меня не работает вот мой Html-код, который хранится в ms: TMemoryStream

Код

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!-- saved from url=(0057)http://www.meat-club.ru/forum/printview.php?t=603&start=0 -->
<!-- DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" -->
<HTML 
dir=ltr><HEAD><TITLE>Çàãîëîâîê</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1251">
<META http-equiv=Content-Style-Type content=text/css>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY><SPAN class=Forum>
<BR>мой текст<BR>
<HR>
</BODY></HTML>


Эта же фигня (с тегами) отображает в TWebBrowser. А нужно без тэгов.
Правда, если убать вот это, то все работает нормально
Код

<!-- saved from url=(0057)http://www.meat-club.ru/forum/printview.php?t=603&start=0 -->   <!-- DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" -->



Это сообщение отредактировал(а) Delphist - 13.9.2007, 14:41


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Rrader
  Дата 17.9.2007, 17:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


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

Репутация: 70
Всего: 191
Лучший, нативный, бесплатный VCL браузер можно взять здесь
www.pbear.com
Скачать

Это сообщение отредактировал(а) Rrader - 17.9.2007, 17:57


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0587 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.