Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Программа начинает есть память   Найти похожие ветки 

← →
Pcrepair ©   (2012-07-30 15:10) [0]

Добрый день. Есть код:

unit Unit1;
interface
uses
 ShellAPI;

type
 TForm1 = class(TForm)
   Button3: TButton;
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
   function PageAssemble(T:TStringList):string;
   procedure Button3Click(Sender: TObject);

 private
   { Private declarations }
   Buffer:TStringList;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}
(*=============================================*)
(*  30 июля 2012г. Сборка ХТМЛ-страницы запись ссылок в файл.
   запуск файла в браузере*)
procedure TForm1.Button3Click(Sender: TObject);
var T:TstringList;
begin
 T:=TStringList.Create;
 T.Text:=PageAssemble(Buffer); (*ввод ХТМЛ-страницы*)
 T.SaveToFile("RatingPage.html");  (*сохранить в файл*)
   (*=====Если использовать код то расход ОЗУ возрастает с 6 до 12 мб==*)
   ShellExecute(Self.Handle, "open", PChar("RatingPage.html"), nil,
     nil, SW_SHOWNORMAL); (*открыть файл в системном браузере*)
   (*===============================*)
 T.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Buffer:=TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Buffer.Free;
end;

end.

Этот код создает ХТМЛ-страницу, записывает ее на ЖД и открывает в системном браузере
в общем все работает. но при открытии страницы браузером из файла с ЖД потребление памяти увеличивается с 6 до 12 мб.
Вопросы: это нормально при применении ShellExecute? может сделать ДЛЛ из этого кода и после открытия файла браузером отключать ДЛЛ(как это советуется в букварях)? может есть еще способы(кроме тех что из букваря), что то новенькое?

---

← →
QAZ   (2012-07-30 15:17) [1]

> потребление памяти увеличивается с 6 до 12 мб

кем?

---

← →
Ega23 ©   (2012-07-30 15:22) [2]

Удалено модератором

---

← →
Ega23 ©   (2012-07-30 15:44) [3]

Удалено модератором

---

← →
Медвежонок Пятачок ©   (2012-07-30 17:52) [4]

но при открытии страницы браузером из файла с ЖД потребление памяти увеличивается с 6 до 12 мб.
Вопросы: это нормально

не нормально - это когда при запуске чего-либо объем свободной памяти не уменьшается, а увеличивается.

---

← →
Pcrepair ©   (2012-07-30 20:03) [5]

по существу вопроса кто что знает?

---

← →
Dennis I. Komarov ©   (2012-07-30 20:43) [6]

Удалено модератором

---

← →
память   (2012-07-30 20:47) [7]

Удалено модератором

---

Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.052 c