Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  13:10[Войти] | [Зарегистрироваться]
Ответ на вопрос № 45315

22-09-2006 04:19
мне нужно получить доступ к IHTMLDocument2 при работе в потоке,
пробывал так:


procedure Leak2;
var
IDoc: IHTMLDocument2;
v: Variant;
HTML: String;
begin
try
  HTML:=Form1.IdHttp1.Get('http://localhost/01.html');
  IDoc:=CreateComObject(Class_HTMLDOcument) as IHTMLDocument2;
  v:=VarArrayCreate([0,0],VarVariant);
  v[0]:= HTML;
  IDoc.write(PSafeArray(System.TVarData(v).VArray));
finally
  IDoc:=nil;
end;



и второй(пожарный)вариант (от отчаянья)
в потоке незнаю как заставить работать


procedure leak1;
var
  V: OleVariant;
  HtmlDoc: IHTMLDocument2;
  HTML: String;
begin
  HTML:=Form1.IdHttp1.Get('http://localhost/01.html');
  Form1.WB.Silent:=True;
  Form1.WB.Visible:=False;
  Form1.WB.Navigate('about:blank');
  HtmlDoc := Form1.WB.Document as IHtmlDocument2;
  V := VarArrayCreate([0, 0], varVariant);
  V[0] := HTML;
  HtmlDoc.Write(PSafeArray(TVarData(v).VArray));
  HtmlDoc.Close;
end;



Запустил каждую процедуры в цикле от 0 до 999 по очереди.

в первом варианте (с COM) последний цикл выполнялся 3.9 сек, программа занимала в памяти 44 636 К

во втором варианте последний цикл выполнялся уже 4.8 сек, но программа занимала в памяти 17 636 К (что более близко к начальному кол-ву занимаемой памяти)

Вопрос: почему возникают такие тормоза при выполнении простейших процедур, куда девается память и как ее вернуть?

уже несколько дней вопрос висит на delphimasters, но предложили только вариант с TWebBrowser'ом (процедура leak1)

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

26-11-2006 07:44
Я чего-то не вижу здесь проблемы.
Зачем каждый раз создавать COM интерфейс?
Если вывод осуществляется в сам документ?
Есть глобальная переменная. ihtmldoc...t ... загружаешь приложение с
TWebBrowser инициируешь загрузку 'about:blank' и в ondocload ... берешь указатель на интерфейс в свою переменную. Дальше - делай с ней что хочешь ... хоть отдельную процедур для загрузки содержимого .. хоть еще что ... из любого метста программы.

24-09-2006 10:57 | Сообщение от автора вопроса
Необязательно каждый раз создавать, а потом снова уничтожать HtmlDoc. Достаточно это сделать 1 раз, а в цикле только записывать в него новую строку с html.

Хм, а действительно. Это так логично, что непонятно как я сам недодумался. Но теперь возник след. вопрос:
Если объявить htmlDoc как глобальную переменную, и создать

IDoc:=CreateComObject(Class_HTMLDOcument) as IHTMLDocument2

при создании формы один раз, то как записать данные в HTMLDoc не из основного потока

HtmlDoc.Write(PSafeArray(TVarData(v).VArray));



Потому что цикла то на самом деле нету, есть процедура, которая время от времени запускается в новом потоке. С циклом это я вроде стресс-теста придумал.


22-09-2006 08:07
Необязательно каждый раз создавать, а потом снова уничтожать HtmlDoc. Достаточно это сделать 1 раз, а в цикле только записывать в него новую строку с html.
И вы наверное не написали весь код. Вы ведь что-то похоже делаете с загруженной страницей, а не просто загружаете ее? Или это просто тест.?

А в потоке нужно инициализировать Ole функцией OleInitialize(nil), в конце OleUninitialize;
http://www.delphikingdom.ru/asp/answer.asp?IDAnswer=21621

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
"Мы с тобой одной крови — ты и я!". Чьи это заветные слова?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования