Модераторы: MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> HTML интерпретатор 
V
    Опции темы
Mephisto
Дата 23.1.2007, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Волкъ
***


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

Репутация: нет
Всего: 34
Луди, есть ли в делфине компонент который может отобразить html страничку?
На входе в него должен быть string с html кодом. smile 
PM   Вверх
December
Дата 23.1.2007, 16:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57
Из стандартных - TWebBrowser
DRKB


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
Romikgy
Дата 23.1.2007, 16:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146
http://www.torry.net/pages.php?id=650
Цитата

HTML Form v.1.0    FWS  261 k  15 Apr 2004
By Zhong Wan. A sample to show how to write a HTML form, while using this way, you can write a beautiful interface for application which will using HTLM pages.
 
Fully functional
Source: Included
Exe-Demo Included
Download: D7

http://www.torry.net/pages.php?id=216
Цитата

ThtmlLite v.7.7    FW  930 k  17 Jun 2006
By Dave Baldwin. ThtmlLite is similar to the Professional ThtmlViewer, TFrameViewer and TFrameBrowser components but has reduced capabilities. It is designed for applications where the full capabilities are not needed. There is no charge for its use and it may be modified if desired.

ThtmlLite does not support Frames or the printing of HTML documents. Imaging capablilities include GIF, animated GIF, JPEG, and bitmap.
 
Fully functional
Source: None
Download: D2005 D2006 D3 D4 D5 D6 D7

http://www.torry.net/pages.php?id=129
Цитата

TMS THTMLStaticText v.1.2.0.0    SW  2603 k  11 Jul 2006
By TMS Software. A label with HTML formatting capabilities. Supports a subset of the HTML formatting tags (see the mini HTML reference). Included support for bevel borders, events for anchor clicks, hovering, keyboard interface for anchors, blinking text, GIF, JPEG, ICO, BMP, WMF, imagelist images, mini scrollbar, various autosizing styles and a HTML property editor ...
 
Fully functional
Source: None
Download: CB2k6 CB5 CB6 D2005 D2006 D5 D6 D7

может чет и подойдет


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Mephisto
Дата 23.1.2007, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Волкъ
***


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

Репутация: нет
Всего: 34
Вот, нашел в DRKB, но не могу понять почему не работает.  smile 

Код
var
  Ahtml : string;
  HTMLDoc : IHtmlDocument2;
  VOle    : OleVariant;
begin
    Ahtml := 'тут HTML код';
    HTMLDoc := WebBrowser1.Document as IHtmlDocument2;

    VOle    := VarArrayCreate([0, 0], varVariant);
    VOle[0] := Ahtml;
    HTMLDoc.write(PSafeArray(TVarData(VOle).VArray));
    HTMLDoc.close;
end;


Это сообщение отредактировал(а) Mephisto - 23.1.2007, 17:19
PM   Вверх
Romikgy
Дата 23.1.2007, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146
а 
Цитата(Mephisto @  23.1.2007,  16:18 Найти цитируемый пост)
WebBrowser1

на форму кинул?


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Mephisto
Дата 23.1.2007, 17:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Волкъ
***


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

Репутация: нет
Всего: 34
Цитата(Romikgy @  23.1.2007,  18:20 Найти цитируемый пост)
на форму кинул? 

Есть такой!  smile 
PM   Вверх
December
Дата 23.1.2007, 17:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57
А теперь тему в ActiveX, пожалуйста smile


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
CatATonik
Дата 23.1.2007, 17:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: 2
Всего: 8
Надо сначала Navigate сделать, куданибудь (about:blank например), тогда Document появится, изначально он nil
PM MAIL   Вверх
Mephisto
Дата 23.1.2007, 17:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Волкъ
***


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

Репутация: нет
Всего: 34
Утечка памяти. smile 
Если ставлю exit перед тем кодом что привел то нет, а если код исполняется, то есть утечка. smile
PM   Вверх
CatATonik
Дата 23.1.2007, 17:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: 2
Всего: 8
HTMLDoc := nil;
PM MAIL   Вверх
aktuba
Дата 23.1.2007, 18:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


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

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

VOle    := VarArrayCreate([0, 0], varVariant);


эта строка создает массив. дальше понятно?


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Mephisto
Дата 23.1.2007, 18:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Волкъ
***


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

Репутация: нет
Всего: 34
Цитата(CatATonik @  23.1.2007,  18:54 Найти цитируемый пост)
HTMLDoc := nil; 

Эт понятно. Не помогло.
Цитата(aktuba @  23.1.2007,  19:02 Найти цитируемый пост)
эта строка создает массив. дальше понятно? 

А как его убить??  smile 
PM   Вверх
aktuba
Дата 23.1.2007, 18:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


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

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

SetLength(VOle, 0);


Должно помочь...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Mephisto
Дата 24.1.2007, 10:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Волкъ
***


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

Репутация: нет
Всего: 34
aktuba, 
Цитата

[Error] Main.pas(101): Constant object cannot be passed as var parameter


Добавлено @ 10:36 
Даже если так написать, то утечка
Код
VarArrayRedim(VOle, 0);
PM   Вверх
Romikgy
Дата 24.1.2007, 11:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146
а мож утечка в другом месте?
Цитата(Mephisto @  23.1.2007,  16:18 Найти цитируемый пост)
var
  Ahtml : string;
  HTMLDoc : IHtmlDocument2;
  VOle    : OleVariant;
begin
    Ahtml := 'тут HTML код';
    HTMLDoc := WebBrowser1.Document as IHtmlDocument2;
    VOle    := VarArrayCreate([0, 0], varVariant);
    VOle[0] := Ahtml;
    HTMLDoc.write(PSafeArray(TVarData(VOle).VArray));
    HTMLDoc.close;
end;

ибо после выхода из процедуры, переменная разрушается, имхо, и массив дестроится (ибо он локален)


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
CatATonik
Дата 24.1.2007, 11:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: 2
Всего: 8
Мне тоже так кажется, а может и нет ее, чем утечки-то смотрим? MemCheck?
PM MAIL   Вверх
Mephisto
Дата 24.1.2007, 11:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Волкъ
***


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

Репутация: нет
Всего: 34
Цитата(Romikgy @  24.1.2007,  12:06 Найти цитируемый пост)
ибо после выхода из процедуры, переменная разрушается, имхо, и массив дестроится (ибо он локален) 

Да я тоже так думал. smile
Если в начале процедуры поставить exit, то никакой утечки нет. Все отлично работает. 
Цитата(CatATonik @  24.1.2007,  12:10 Найти цитируемый пост)
чем утечки-то смотрим

использую корпоративные загогулины... Используются несколько лет, никаких проблем до этого небыло!

После выгрузки сделал небольшую паузу, утечка не обнаружена. Похоже он через некоторое время выгрузилсо... Нифига не могу понять. smile 
Ну и ладно... 
;) Пасип всем... ;)
PM   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

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

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


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

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

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


 




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


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

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