Программа создает веб браузер и заходит им на яху, при этом Только на Яху получается утечка памяти. Размер сначала 100 потом 200 потом 300мб итд.
За час примерно 400 становится.
Нужно пофиксить
Вот программа (немного урезана, полный код в конце)
//Создаем веб браузер
WebBrowser1:=TWebBrowser.Create(FOrm1);
while(True)
do begin
WebBrowser1.Navigate('
');
syncbrowser(WebBrowser1);
//Логинимся в яху
RunJS(WebBrowser1,'document.forms.login_form.username.value= "dcseed1";document.forms.login_form.passwd.value=" aaaaaa";document.forms.login_form.submit();');
syncbrowser(WebBrowser1);
//Логаутимся
WebBrowser1.Navigate('
syncbrowser(WebBrowser1);
end;
procedure TForm1.RunJS(WebBrowser1: TWebBrowser;js: string);
var
HTMLWindow: OleVariant;
Doc: IHtmlDocument2;
begin
WebBrowser1.Document.QueryInterface(IHtmlDocument2Disp,doc);
if not assigned(doc) then Exit;
HTMLWindow :=doc.ParentWindow;
HTMLWindow.execScript(js,'JavaScript');
end;