Web2 := TWebBrowser.Create( fMain );
Web2.OnDocumentComplete := Web2DocumentComplete;
TWinControl( Web2 ).Parent := fMain;
compl := false;
Web2.Navigate( url ); // загружаем URL
while not compl do
Application.ProcessMessages;
s := Web2.OleObject.document.getElementById('page').InnerHTML;
Web2.Free;
TWebBrowser не освобождает память
Доброго времени суток.
в цикле много раз загружаю страницу:
Память утекает мегабайтами за минуту, такое ощущение что память вообще не освобождается, я неправильно уничтожаю компонент? Что можно сделать, чтобы избежать утечки?
в цикле много раз загружаю страницу:
Код:
Память утекает мегабайтами за минуту, такое ощущение что память вообще не освобождается, я неправильно уничтожаю компонент? Что можно сделать, чтобы избежать утечки?
Ну хоть какие то мысли подскажите, очень нужно!!!
Поставил компонент TEmbeddedWB - с ним тоже самое, не знаю что и делать
Поставил компонент TEmbeddedWB - с ним тоже самое, не знаю что и делать
Код:
Web2 := TWebBrowser.Create( fMain );
try
Web2.OnDocumentComplete := Web2DocumentComplete;
TWinControl( Web2 ).Parent := fMain;
compl := false;
Web2.Navigate( url ); // загружаем URL
while not compl do
Application.ProcessMessages;
s := Web2.OleObject.document.getElementById('page').InnerHTML;
finally
FreeAndNil(Web2);
end;
try
Web2.OnDocumentComplete := Web2DocumentComplete;
TWinControl( Web2 ).Parent := fMain;
compl := false;
Web2.Navigate( url ); // загружаем URL
while not compl do
Application.ProcessMessages;
s := Web2.OleObject.document.getElementById('page').InnerHTML;
finally
FreeAndNil(Web2);
end;
Не уверен что решится проблема, возможно утечка не из за этого, но такой код просто правильнее.[/QUOTE]