Показать сообщение отдельно
  #1  
Старый 15.11.2022, 09:09
vectorj vectorj вне форума
Прохожий
 
Регистрация: 29.11.2016
Сообщения: 5
Версия Delphi: Rad Studio XE2
Репутация: 10
По умолчанию Помогите с утечкой памяти

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

Код:
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
Админ: Пользуемся тегами при оформлении кода!





не помогло, в чем может быть дело?
Ответить с цитированием