img
00:00
imgDRKB online - Функции для выделения, перераспределения и освобождения памяти
imgimgimg
  Общие вопросы
  Delphi IDE, компиллятор, отладчик, редактор
  Язык программирования Дельфи
  Общие вопросы
  Объектное ориентирование
  Работа со строками
  Работа с датами и временем
  Работа с числами
  Работа с битами
  Работа с массивами
  Работа с указателями, память
  Арифметика указателей
  Использование указателей на целое
  Как избежать использования неактуальных указателей
  Пример работы с указателями
  Получение ссылки на экземпляр класса
  Method pointers --> function pointers
  Быстрое сравнение памяти
  Динамическое распределение памяти
  StrAlloc и GetMem
  Освобождение памяти
  Очистить переменную в оперативной памяти
  Получение размера памяти выделенный под Pointer
  Потеря памяти
  Принципы работы с памятью в системе Windows32
  Linked List Memory Table
  Увеличение значения указателя
  Указатель на вариантный тип
  Указатель на функцию
  Функции для выделения, перераспределения и освобождения памяти
  Множества, записи и перечисляемые типы
  RTTI и другие трюки с информацией о классах, модулях и т.п.
  Взаимодействие с другими языками
  Threads
  Работа с коллекциями
  RTL Delphi (краткий справочник)
  Базовые классы
  Скрипты, компилляторы и связанные с ними вопросы
  Вокруг и около Паскаля или другие компилляторы Дельфи/Паскаль
  VCL
  Системные функции и WinAPI
  Базы данных
  Работа с файловой системой
  Репортинг, работа с принтером
  Работа с сетью, интернетом, протоколами
  Работа с графикой и мультимедиа
  Математика, алгоритмы
  Форматы файлов, данных. Конвертация форматов
  ActiveX, COM, DCOM, MIDAS, CORBA, интерфейсы, OLE, DDE
  Разработка приложений
  Kylix
  Delphi.Net
  Развлечения
  
  [drkb=338] Комментариев: 0 
Функции для выделения, перераспределения и освобождения памяти

delphi
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Функции для выделения/перераспределения/освобождения памяти

Модуль содержит функции для работы с блоками памяти.

AllocateMem - выделяет блок памяти из Count записей по RecSize байт, возвращает
адрес выделенного блока памяти в случае успеха или nil в случае ошибки.

ReallocateMem - устанавливает новый размер блока памяти, выделенного функцией
AllocateMem. В качестве параметра Pointer можт быть использован как
типизированный так и нетипизированный указатель.

DeallocateMem - освобождает память, выделенную функциями AllocateMem или
ReallocateMem. В качестве параметра Pointer можт быть использован как
типизированный так и нетипизированный указатель.

MemSize - возвращает размер блока памяти, выделенного функциями AllocateMem или
ReallocateMem.

Зависимости: Windows
Автор:       Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright:   Dimka Maslov
Дата:        21 мая 2002 г.
***************************************************** }


unit MemFuncs;

uses Windows;

interface

function AllocateMem(Count: Integer; RecSize: Integer): Pointer;
procedure ReallocateMem(var Pointer; Count: Integer; RecSize: Integer = 1);
procedure DeallocateMem(var Pointer);
function MemSize(P: Pointer): Integer;

implementation

function LocalHandle; external kernel32 name 'LocalHandle';

function AllocateMem(Count: Integer; RecSize: Integer = 1): Pointer;
asm
   test eax, eax
   jle @@10
   test edx, edx
   jle @@10
   imul edx
   push eax
   push LHND
   call LocalAlloc
   push eax
   call LocalLock
   ret
@@10:
   xor eax, eax
end;

procedure ReallocateMem(var Pointer; Count: Integer; RecSize: Integer = 1);
asm
   push ebx
   mov ebx, eax
   mov eax, [ebx]
   test eax, eax
   jnz @@10
   mov eax, edx
   mov edx, ecx
   call AllocateMem
   mov [ebx], eax
   pop ebx
   ret
@@10:
   push ecx
   push edx
   push eax
   call LocalHandle
   pop edx
   pop ecx
   test eax, eax
   jnz @@20
   pop ebx
   ret
@@20:
   push eax
   mov eax, edx
   imul ecx
   mov edx, eax
   pop eax
   push LHND
   push edx
   push eax
   call LocalRealloc
   push eax
   call LocalLock
   mov [ebx], eax
   pop ebx
end;

procedure DeallocateMem(var Pointer);
asm
   push ebx
   mov ebx, eax
   mov eax, [ebx]
   test eax, eax
   jz @@10
   push eax
   call LocalHandle
   test eax, eax
   jz @@10
   push eax
   push eax
   call LocalUnlock
   call LocalFree
@@10:
   xor eax, eax
   mov [ebx], eax
   pop ebx
end;

function MemSize(P: Pointer): Integer;
asm
   test eax, eax
   jnz @@10
   ret
@@10:
   push eax
   call LocalHandle
   test eax, eax
   jnz @@20
   ret
@@20:
   push eax
   call LocalSize
end;

end.



@Drkb::00836
Количество статей: 4366
 
Вход
Имя:
Пароль:
Запомнить
Регистрация Забыли пароль?
Мини-чат :)
Необходима регистрация
Архив мини-чата
14-11-2019 19:44
Programmer
скучно.. А давайте создадим беседу в ВК по десксофту?
11-10-2019 10:05
Programmer
А может быть он просто тоже сидит в десксофте
10-10-2019 10:44
antonn
Есть французская певица "Kareen Antonn", может ее трек скачал smiley
09-10-2019 03:46
Bact
У моего брата в загрузках есть файл с именем antonn, может ли быть это совпадением?
09-10-2019 03:37
Bact
есть кто? :0
03-10-2019 14:20
antonn
Примерно как гостевую книгу, только рисуется на всех страницах.
02-10-2019 19:09
Programmer
антонн, как ты сделал чат?
02-10-2019 19:09
Programmer
есть
15-09-2019 18:55
Expendobrooo
Есть кто живой?
15-09-2019 17:36
Programmer
сайт сдох smiley
Статистика
 СегодняВсего
Посетителей2882116456
Запросов4732324701732
Online
Пользователей0
Гостей23
imgimgimgimg
 
img
     00:00