Как работать с блоками памяти размером более 64K
|
Попал программист в братву. Бригадный ему дает задание: сходить за данью в один из киосков. Приходит он на место, забирает деньги, а продавщица ему и говорит:
- Что-то компьютер у нас последнее время очень плохо работает.
Программист-браток посмотрел ящик:
- Конечно плохо, памяти добавить нужно.
Затем достает мобилу и звонит бригадному:
- Шеф, у нас тут в киоске с памятью проблемы.. Нужны DIMMы.
Бригадный:
- На ф#га тебе Димы. Позови Артурчика и они сразу все вспомнят!!!
|
Так можно помещать в один блок памяти записи из TList (TCollection):
implementation
{ To use the value of AHIncr, use Ofs(AHIncr). }
procedure AHIncr; far; external 'KERNEL' index 114;
const
NEXT_SELECTOR: string[13] = 'NEXT_SELECTOR';
function WriteData: THandle;
var
DataPtr: PChar;
i: Integer;
begin
Result := GlobalAlloc(GMEM_SHARE or GMEM_ZEROINIT, {pазмеp большого блока});
if Result = 0 then
Exit;
DataPtr := GlobalLock(Result);
{записываем кол-во эл-тов}
Inc(DataPtr, {pазмеp счетчика эл-тов})
for i := 0 to {некий} Count - 1 do
begin
if LongInt(PtrRec(DataPtr).Ofs) + {pазмеp подблока} > l = $FFFF then
begin
Move(NEXT_SELECTOR, DataPtr^, SizeOf(NEXT_SELECTOR)); {некая константа}
{ коppекция сегмента }
PtrRec(DataPtr).Seg := PtrRec(DataPtr).Seg + Ofs(AHIncr);
PtrRec(DataPtr).Ofs := $0;
end;
Inc(DataPtr, {pазмеp нового блока});
end; { for i }
GlobalUnlock(Result);
end;
procedure ReadData(DataHdl: THandle);
var
DataPtr: PObjectCfgRec;
RecsCount: Integer;
i: Integer;
begin
if DataHdl = 0 then
Exit;
DataPtr := GlobalLock(DataHdl);
RecsCount := PInteger(DataPtr)^;
Inc(PInteger(DataPtr));
for i := 1 to RecsCount do
begin
{ обpаботать данные }
Inc(DataPtr);
if PString(DataPtr)^ = NEXT_SELECTOR then
begin
PtrRec(DataPtr).Seg := PtrRec(DataPtr).Seg + Ofs(AHIncr);
PtrRec(DataPtr).Ofs := $0;
end;
end; { for i }
GlobalUnlock(DataHdl);
end;
|
|
