[ined]

Есть ли в Delphi функция которая узнаёт была ли распределена память для PByte ?

[Aristarh Dark]

Использовать Assigned (в хелпе довольно подробно расписано), только нужно внимательно относится к переменным и не забывать про Буратину и яблоки

[ined]

Сообщение от Aristarh Dark

Буратину и яблоки

Вот по этому мне нужно знать сколько же всё таки яблок у буратино Спасибо. Я стараюсь не забывать чистить память от не нужного.

[ined]

эх не получилось, что я хотел.

Код:

procedure BoolMem(var p:pointer; NewSize:cardinal);
begin
  if Assigned(p) then FreeMem(p,MSize);
  GetMem(p,NewSize);
  MSize:=NewSize;
end;

MSize - это предыдущая длинна.
Условие таково, что бы при первичном входе в эту процедуру не срабатывал FreeMem.
Что можете предложить по этому вопросу?

[M.A.D.M.A.N.]

а как же VirtualQuery?
Вроде должно помочь в твоей ситуации.
http://www.podgoretsky.com/ftp/Docs/...tualQuery.html

[Aristarh Dark]

Для первого входа:

Код:

p:=nil;
MSize:=15;
BoolMem(p,MSize);

распределит 15 байт памяти и упасть не должен.

[ined]

Сообщение от Aristarh Dark

Для первого входа:

Код:

p:=nil;
MSize:=15;
BoolMem(p,MSize);

распределит 15 байт памяти и упасть не должен.

В том всё и дело, что первичный вход не определён.В этом и есть вся особенность.

Сообщение от M.A.D.M.A.N.

а как же VirtualQuery?

А как его можно сюда прикрутить?

[M.A.D.M.A.N.]

Я ж дал ссылку с описанием как она работает.
Просто поинтер передать, а дальше флаги проверять MEM_COMMIT или че-то в этом роде.

[ined]

Сообщение от M.A.D.M.A.N.

Я ж дал ссылку с описанием как она работает.
Просто поинтер передать, а дальше флаги проверять MEM_COMMIT или че-то в этом роде.

Вот так я написал

Код:

procedure BoolMem(var p:pointer; NewSize:cardinal);
var B:TMemoryBasicInformation;
begin
  if VirtualQuery(p,B,MSize) = S_OK then
  FreeMem(p,MSize);
  GetMem(p,NewSize);
end;

Получается полная ерунда
При первом входе MSize может иметь разные значения.
Пробовал При MSize:= 0 - 20 он пропускает.
Это не есть хорошо!!!

[ined]

Да а ссылку NOD32 не пропустил!!!!!

[ChinYan]

А еслиб авира запищала, вы бы и ей верили?

[M.A.D.M.A.N.]

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

Вот так я написал

Так эта штукень результаты помещает в "B:TMemoryBasicInformation;".

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx


Вот из MSDN

Syntax

Код:

SIZE_T WINAPI VirtualQuery(
  __in_opt  LPCVOID lpAddress,
  __out     PMEMORY_BASIC_INFORMATION lpBuffer,
  __in      SIZE_T dwLength
);

Parameters
lpAddress [in, optional]

A pointer to the base address of the region of pages to be queried. This value is rounded down to the next page boundary. To determine the size of a page on the host computer, use the GetSystemInfo function.

If lpAddress specifies an address above the highest memory address accessible to the process, the function fails with ERROR_INVALID_PARAMETER.
lpBuffer [out]

A pointer to a MEMORY_BASIC_INFORMATION structure in which information about the specified page range is returned.
dwLength [in]

The size of the buffer pointed to by the lpBuffer parameter, in bytes.

Return value

The return value is the actual number of bytes returned in the information buffer.

If the function fails, the return value is zero. To get extended error information, call GetLastError. Possible error values include ERROR_INVALID_PARAMETER.

[NumLock]

1.

Код:

var
  b: PByte;
  mbi: MEMORY_BASIC_INFORMATION;
begin
  New(b);
  VirtualQuery(b, mbi, SizeOf(MEMORY_BASIC_INFORMATION));
...

2. по идее без инициализации указателя в нем может быть все что угодно: пустышка (если повезет очень сильно), указатель на адресное пространство процесса или вообще не пойми что. так что... инициализируйся

[ined]

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

А еслиб авира запищала, вы бы и ей верили?

Просто я стараюсь не отключат NOD32. Да бы, избежать всякого рода выползания на экран фигни которую не как не смыть.
У меня уже такое случалось, когда за спиной стоит тёща, а на экран, вдруг от куда не возьмись, появилась реклама штучек интимного характера.
Вот тогда было на её лице изумительно большие глазки, от увиденного

[ined]

Всё я разобрался. Нашёл интересную для меня цитату -
__________________________________________________ ____________
Во всех известных версиях Delphi действует следующая не совсем документированная фишка (разработчики в документации к одной из версий сказали, что это так, но в будущей версии может и не быть. Но пока есть): Все глобальные переменные автоматически иницилизируются (нулём или пустым значением).
А вот локальные переменные - не иницилизируются.
__________________________________________________ _____________

В этом была вся проблема. Спасибо всем за внимание.