Текущий архив: 2006.04.02;
Скачать: CL | DM;
ВнизMemory, как определить размер и область памяти для нового процеса Найти похожие ветки
← →
polinom (2006-01-17 15:05) [0]Как определить доступную память для нового процесса, размер, область и так чтобы он не смог переопределять собственный размер.
Пример : У моего процесса есть динамический объект Р , требуется при new(p) и остальных обращений к памяти все динамические объекты размещались в строго определённом заранее выделенном месте памяти !
Помогите решить....!
← →
wal © (2006-01-17 15:41) [1]А смысл?
← →
Игорь Шевченко © (2006-01-17 15:42) [2]Для объектов - переопределить метод NewInstance.
Для указателей - написать свой Memory Manager
Первое проще
← →
polinom (2006-01-17 15:43) [3]смысл контроля ресуров памяти
← →
Игорь Шевченко © (2006-01-17 15:43) [4]
> смысл контроля ресуров памяти
MemProof.exe
← →
polinom (2006-01-17 15:46) [5]переопределения это гуд, но если я пользуюсь множеством Классов , то это значительно затруднит написание программы!
← →
Игорь Шевченко © (2006-01-17 15:48) [6]polinom (17.01.06 15:46) [5]
Переопредели у предка, унаследуй нужные классы от этого предка. Или используй MemProof для поиска утечек.
← →
polinom (2006-01-17 16:01) [7]это не решение проблеммы с конролирования памяти это проблема в решение задачи!
напримерvar p:^Tform
........
p:=getmem(p,sizeof(Tform)); //задаём область памяти
Tform.InitInstance(p); // инициализируем
p.Create(self); //без этого не работает хоть имеет адреса всех
методов
но после Create хватает кусок не заданной лишней динам. памяти
как быть?
← →
polinom (2006-01-17 16:05) [8]а нужно так дал 50 кб и пользуйся, так нет кроме этого и ещё хватает!
← →
Игорь Шевченко © (2006-01-17 16:09) [9]см. пост [2]
← →
polinom (2006-01-17 16:12) [10]пост [2] ? я не месный это што?
← →
Игорь Шевченко © (2006-01-17 16:16) [11]
> пост [2] ? я не месный это што?
Сообщения в ветке нумеруются.
Для объектов - переопределить метод NewInstance.
Для указателей - написать свой Memory Manager
← →
polinom (2006-01-17 16:28) [12]слушай если можно покажи пример переопределения метода при выполнении или ты имеешь в виду переписать модуль system ?
я недружил до этого с перенаследованием!
А может изменить ссылку на метод, но как тогда узнать адресс ячеек самого указателя, или заранее переписать SYSTEM так чтобы было видно из следующих TObjekt, TComponent, TForm аддес или сам метод?
Как ты считаешь?...........
← →
Игорь Шевченко © (2006-01-17 16:52) [13]
> покажи пример переопределения методаunit ParentForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TfParent = class(TForm)
public
class function NewInstance: TObject; override;
procedure FreeInstance; override;
end;
var
FormMemory: array[0..2047] of Byte;
implementation
{$R *.DFM}
{ TfParent }
procedure TfParent.FreeInstance;
begin
//Do nothing
end;
class function TfParent.NewInstance: TObject;
begin
Result := Tobject(@FormMemory);
InitInstance (Result);
end;
end.
Главная форма:unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ParentForm, StdCtrls;
type
TfMain = class(TfParent)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
var
fMain: TfMain;
implementation
{$R *.DFM}
procedure TfMain.Button1Click(Sender: TObject);
begin
ShowMessage("Hello, world");
end;
end.
DPR:program CustomMM;
uses
Forms,
ParentForm in "ParentForm.pas" {fParent},
Main in "Main.pas" {fMain};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TfMain, fMain);
Application.Run;
end.
← →
polinom © (2006-01-17 17:01) [14]Спасибо дома попробую.
Как с тобой связаться если можно!?
я sergey.nnby@rambler.ru или ICQ 253539137
← →
polinom © (2006-01-17 17:04) [15]Удалено модератором
Примечание: Offtopic
← →
Игорь Шевченко © (2006-01-17 17:09) [16]
> Как с тобой связаться если можно
Со мной не надо связываться, надо задавать вопросы на форуме, он для этого и предназначен. Индивидуальных консультаций я не даю.
← →
polinom © (2006-01-17 17:10) [17]Удалено модератором
← →
polinom © (2006-01-17 17:15) [18]Удалено модератором
← →
Игорь Шевченко © (2006-01-17 17:23) [19]"Соблюдайте тематику конференции, сообщения "не в тему" будут просто удаляться! Просто потрепаться вы можете в соответствующей конференции"
← →
Leonid Troyanovsky © (2006-01-18 08:29) [20]
> polinom (17.01.06 16:01) [7]
> var p:^Tform
..
> p:=getmem(p,sizeof(Tform)); //задаём область памяти
> Tform.InitInstance(p); // инициализируем
> p.Create(self); //без этого не работает
..
> как быть?
Не надо извращений.
var
p: TFormX;
..
p:= TFormX.Create(nil);
..
--
Regards, LVT.
Страницы: 1 вся ветка
Текущий архив: 2006.04.02;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.037 c