Сохранение регионов

[trumpl]

Доброго времени суток.
Такая проблемка. Пытаюсь сохранить несколько объектов типа HRGN (регионы) в один файловый поток.
Их размер сохраняю в другом месте.
Однако при считывании считывается нормально только первый регион, остальные возвращает 0. Где я мог ошибится?

Цикл записи ( ну тут пусть будет вайл. просто слишком много кода будет ):

size := GetRegionData (Rgn, SizeOf (RGNDATA), nil); // определяем размер
data := GlobalAllocPtr(GPTR, size); // выделяем память
GetRegionData(Rgn, size, data); // записываем регион в переменную типа pointer
buff.Write(data^,size); // buff - TFileStream
GlobalFreePtr(data);

Цикл считывания:

data := GlobalAllocPtr(GPTR, size);
s.Read(data^, size);
Rgn := ExtCreateRegion(nil, size, data^); // вот здесь получается 0
GlobalFreePtr(data);

С Уважением.

[maxionans]

Тут либо проблема с хранением размера данных региона, либо с позиционированием в потоке во время чтения данных (это если предположить, что данные в потоке вообще имеются и они верны).

Возможно, поможет установка s.Position в 0 перед началом цикла считывания.