Текущий архив: 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
