Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 781

•  TDictionary Custom Sort  5 895

•  Fast Watermark Sources  5 690

•  3D Designer  8 463

•  Sik Screen Capture  6 028

•  Patch Maker  6 471

•  Айболит (remote control)  6 465

•  ListBox Drag & Drop  5 327

•  Доска для игры Реверси  94 898

•  Графические эффекты  6 673

•  Рисование по маске  5 780

•  Перетаскивание изображений  4 850

•  Canvas Drawing  5 227

•  Рисование Луны  4 947

•  Поворот изображения  4 490

•  Рисование стержней  3 183

•  Paint on Shape  2 426

•  Генератор кроссвордов  3 304

•  Головоломка Paletto  2 613

•  Теорема Монжа об окружностях  3 397

•  Пазл Numbrix  2 246

•  Заборы и коммивояжеры  2 904

•  Игра HIP  1 874

•  Игра Go (Го)  1 786

•  Симулятор лифта  2 122

•  Программа укладки плитки  1 854

•  Генератор лабиринта  2 292

•  Проверка числового ввода  1 980

•  HEX View  2 289

•  Физический маятник  1 954

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как работать с блоками памяти размером более 64K



Автор: Nomadic

Попал программист в братву. Бригадный ему дает задание: сходить за данью в один из киосков. Приходит он на место, забирает деньги, а продавщица ему и говорит:
- Что-то компьютер у нас последнее время очень плохо работает.
Программист-браток посмотрел ящик:
- Конечно плохо, памяти добавить нужно.
Затем достает мобилу и звонит бригадному:
- Шеф, у нас тут в киоске с памятью проблемы.. Нужны 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;








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте