[vectorj]

Суть, есть отдельная процедура, которая "выцепляет" отдельные элементы HTML страницы, которая сохранена в файл. Но после каждой ее отработки увеличивается количество занимаемой ОЗУ (Хотя по идее после процедуры все переменные удаляются), код ниже:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

var idoc: IHTMLDocument2;     V: OleVariant;     HTML,html_str,str,str2: String;     i,j,k:integer;     Element: mshtml.IHTMLElement; begin   AssignFile(f,FileName);   reset(f);   while not eof(f) do   begin     readLn(f,str);     html:=html+str;   end;   CloseFile(f);     v:=VarArrayCreate([0,0],VarVariant);   v[0]:= HTML;   idoc:=coHTMLDocument.Create as IHTMLDocument2;   idoc.write(PSafeArray(System.TVarData(v).VArray));// Эта строчка и есть утечка памяти end;  idoc.clear

Админ: Пользуемся тегами при оформлении кода!





не помогло, в чем может быть дело?

[lmikle]

Не факт, что утечка есть. Просто память может не освобождаться менеджером памяти, поэтому кажется, что утечка есть.
Для начала, в конце добавь строки:

Код:

1 2 3

idoc := Nil; VarClear(v); v := Nil;

Это принудительно подскажет COM подсистеме освободить соотв интерфейс и уничтожить соотв. класс.
Далее, если Делфи достаточно свежая, то там по умолчанию используется иенеджер FastMM. В нем можно включить отслеживание утечек и, если они есть, при закрытии программы он, менеджер, выведет соотв. сообщение. Для этого в главном модуде добвть секцию инициалищации с установкой соотв. переменной:

Код:

1 2	initialization   ReportMemoryLeaksOnShutdown := True;

Ну а далее надо будет уже смотреть более подробно.

[vectorj]

Код:

1

v := Nil;

Не применим к типу OleVariant...

[lmikle]

Сообщение от vectorj

Код:

Не применим к типу OleVariant...

А-а-а... ну да, там же спец значение, то ли None, то ли VarNone.
В принципе, это уже не обязательно, после VarClear, объект создан на стеке, так что при выходе из процедуры будет уничтожен.

Что там с репортом от менеджера памяти?

[vectorj]

Сообщение от lmikle

А-а-а... ну да, там же спец значение, то ли None, то ли VarNone.
В принципе, это уже не обязательно, после VarClear, объект создан на стеке, так что при выходе из процедуры будет уничтожен.

Что там с репортом от менеджера памяти?

Оказалось глюки WIN7, на WIN10 и WIN11 все работает как надо, и репорт от менеджера памяти не всплывает после закрытия приложения. В общем, проблема решена.

PS пишу парсер Авито с возможностью отправки в телегу. Пока работает.

[lmikle]

Скорее не Win7, а компонента от мелкомягких, может быть достаточно обновить IE или еще какую библиотеку. А что, на Win7 менеджер памяти ругается при закрытии программы, а на Win10 нет?