Архив форумов ЦИТФорума

[RAPTORGrrr]

Здравствуйте!
Есть такая проблема:
По com-порту получаю пакет данных, и определяю его тип по заголовку.
Всего есть пять различных пакетов, и все они могут содержатся в одной посылке данных.
Подумал что быстрее будет, если использую указатели, т.е. найду в памяти нужный кусок данных
и типизую его к своему типу TTargetPackage.
Сделал так:

var PtrData : pointer;

GetMem(PtrData, 75 );
PtrData := @Answer[0]; // здесь Answer динамический массив, который содержит нужный кусок данных
Target := TTargetPackage(PtrData^); // это вроде как типизация
FreeMem(PtrData); // ВОТ ТУТ ругается Invalid pointer operatoin
PtrData:=nil;

// TTargetPackage - это запись;
// Target - принадлежит типу TTargetPackage

Почему?
Где что не так?

[igor406]

to RAPTORGrrr

[RAPTORGrrr]

Спасибо за внимание, igor406!
По поводу типов
Answer определен как TPack = packed array of byte.
TTargetData - это запись.
TTargetData = packed record
Breadth : single;
Longitude : single;
RAW : array [1..8] of single;
end;
Не хотел нагружать подробностями кода, но если без этого никак...
Вот что в исходнике.

function TfrmMain.AnalysePackage ( Answer : TPack): word;
var
PtrData : Pointer;
Position : word;
EndPackage : word;
begin
Position:=0; // текущая позиция в пакете

while Position <= High(Answer) do // проходим по всему пакету
begin
case Answer[Position] of // Проверяем заголови
TargetID : // пакет целевых данных
begin
EndPackage:= Position+SizeTarget-1; // Определяем конечную позицию
GetMem(PtrData,SizeTarget); // SizeTarget - 75 байт
PtrData := @Answer[Position];
Target:= TTargetPackage(PtrData^);
Freemem(PtrData);
PtrData:=nil;
Position:=Position+SizeTarget+1; // Установка позиции на след. байт
TargetUpdate:= true; // признак обновления данных
Result:=1;
end;

AirborneSystemStatusID: // пакет статуса системы
begin
// Аналогично
end;
MatterID : // пакет веществ
begin
// Аналогично
end;
TimeDateID : // пакет времени
begin
// Аналогично
end;
EvolutionID : // пакет крен/тангаж
begin
// Аналогично
end;
MotionID : // пакет курс/высота
begin
// Аналогично
end;
else exit;
end; // case
end; // while новый проход по пакету
end;

Пример:
Answer содержит 55 5D 42 25 06 2D 41 D5 78 C9 ... BF CF
Начиная с адреса @Answer[0] (значение 55) память содержит нужные мне 75 байт.
Я в PtrData копирую этот адресс, и выделяю память Getmem'ом под них. Затем типизую.
До этого все идет хорошо и в Target содержатся верные данные. Но когда освобождаю память, то вылетает ошибка - Invalid pointer operation.
Вроде бы простая операция: занял память Getmem, освободил FreeMem, но вот затыка - именно на FreeMem прога валится с ошибкой Invalid pointer operation.
А если сделать так:
PtrData:=nil;
Freemem(PtrData);
то все нормально, кроме того что потерял кусок памяти.
Что делать?

[igor406]

to RAPTORGrrr

GetMem и FreeMem работают с линейными непрерывными кусками памяти.
Потому использовать их надо при работе с простыми типами.
И зачем так заморачиваться, если при выходе из процедуры память автоматически отводимая под простые локальные переменные при их объявлении возвращается в кучу (освобождается).
Единственно, когда её нужно освобождать самостоятельно - это при работе с объектами.

Ну, а если всёже необходимо выделять и освобождать память под объекты типа рекордов (но отнюдь не для классов), то необходимо использовать процедуры New и Dispose, хотя на самом деле всё это пережитки прошлого, и при нормальной организации структуры программы на современном этапе необходимости в этом практически нет.

[критикан]