webbrowser при обновлении страницы занимает больше оперативной памяти

[КатяСаша]

Имеется форма VCL, на ней кнопка и браузер, после каждого просмотра видео память увеличивается на 10-15 мб, у кого какие есть идеи на этот счёт? В гугле это не решенный вопрос.

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Stop;
WebBrowser1.DestroyComponents;
WebBrowser1:=TWebBrowser.Create(Form1);
TWinControl(WebBrowser1).Parent:=Form1;
WebBrowser1.Width:=406;
WebBrowser1.Height:=231;
WebBrowser1.Navigate('https://www.youtube.com/++++++++++');
end;

[Alex11223]

Если повторить 100 раз, то будет 1 ГБ памяти или все-таки останется на например 100-200 МБ?

[evg_m]

WebBrowser1:=TWebBrowser.Create(For m1);

создали новый объект => заняли больше памяти.

WebBrowser1.Free;

уничтожили объект => освободили память.

поскольку он уже есть

WebBrowser1.Stop;
WebBrowser1.DestroyComponents;

то его НЕ НАДО создавать заново.

WebBrowser1:=TWebBrowser.Create(For m1);

и не придется уничтожать

WebBrowser1.Free;

[КатяСаша]

Да, если задать много повторов то память набирается и приложение виснет.

[КатяСаша]

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

Если повторить 100 раз, то будет 1 ГБ памяти или все-таки останется на например 100-200 МБ?

Совершенно верно

[Alex11223]

Что верно? Это был "А или Б?" вопрос.
И зачем повторять 2 раза?

Лучше б прочитали следующее сообщение, где говорится о том, что надо либо не создавать новые экземпляры веббраузера, либо нормально уничтожать старые.

[КатяСаша]

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

Что верно? Это был "А или Б?" вопрос.
И зачем повторять 2 раза?

Лучше б прочитали следующее сообщение, где говорится о том, что надо либо не создавать новые экземпляры веббраузера, либо нормально уничтожать старые.

Это был ответ на ваш вопрос, о том что память растёт.
Мы пробовали не создавать веббраузер при помощи create, а размещали его на форме ( так ведь и проще) Но и в этом случае есть рост памяти(

[Alex11223]

Попробовал, ничего не увеличивается выше 50-100 МБ.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    procedure tmr1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    wb: TWebBrowser;
    timer: TTimer;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  wb := TWebBrowser.Create(Self);
  TWinControl(wb).Parent:=Self;
  wb.Width:=406;
  wb.Height:=231;

  timer := TTimer.Create(Self);
  timer.Interval := 3000;
  timer.OnTimer := tmr1Timer;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  wb.Navigate('https://www.youtube.com/');
end;

end.

[КатяСаша]

я скопировал ваш код , запустил у себя вижу прирост в памяти. Странное дело, я только что запустил у себя IE и попробовал там загрузить видео и заметил что при каждом обновлении страницы память растёт.
у меня IE 11 версии, отключил показ картинок и выбрал " Удалить историю при закрытии"
Теперь я совсем не знаю что делать

[Alex11223]

Сообщение от КатяСаша

у меня IE 11 версии

По умолчанию WebBrowser использует режим 7 версии IE независимо от версии установленной на компе.
Это кроме прочего скорее всего означает, что для видео используется флеш вместо HTML5 <video>. Может из-за него и проблема.

Можно изменить это в реестре http://msdn.microsoft.com/en-us/libr...wser_emulation