Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.18 c
15-1341788808
RGV
2012-07-09 03:06
2013.03.22
Драйвер.


2-1340359780
простофан
2012-06-22 14:09
2013.03.22
передача данных из дельфи в др. программы


2-1338103675
Pcrepair
2012-05-27 11:27
2013.03.22
Application.ProcessMessages и загрузка процессора


2-1329850454
Аццкий
2012-02-21 22:54
2013.03.22
вопрос про чар


2-1328888801
Каныбек
2012-02-10 19:46
2013.03.22
Ссылка на web страницу