Как правильно скопировать массив Byte в TMemory Stream

← →
max2057 (2002-10-14 13:39) [0]

Пожалуста см. Сабж

← →
MBo (2002-10-14 13:52) [1]

покажи, как объявлен массив байтов

← →
max2057 (2002-10-14 14:16) [2]

var
p : PByte;
ms : TMemoryStream;
begin
ms := TMemoryStream.Create;
GetMem(p,xxxx);
Как-то его заполняю
......
end;

так вот как p засунуть в ms?

← →
Best Before 2024 (2002-10-14 14:18) [3]

MemoryStream.Write(Buffer, Count) : integer

← →
Юрий Зотов (2002-10-14 17:52) [4]

И не забудьте, что массив должен быть packed.

← →
max2057 (2002-10-14 22:20) [5]

packed - это че?

← →
Юрий Зотов (2002-10-14 23:05) [6]

Набрал, нажал F1, получил. На все ушло 5 секунд.

См. топик "packed (reserved word)".

← →
Developer (2002-10-15 10:13) [7]

Массив байт и так packed, packed тока для рекордов надо писать.
С начала хотел написать так:
procedure MoveToStream(AStream: TMemoryStream; const ABuf; ASize: Integer);
begin
AStream.SetCapacity(AStream.Position + Size);
Move(ABuf, AStream.Memory^, Size);
end;
потом посмотрел в classes там в принципе тоже самое только с обработкой исключений. Так что лучше как Мах2057 говорит.

← →
max2057 (2002-10-15 10:42) [8]

ага спасибо

Как правильно скопировать массив Byte в TMemory Stream Найти похожие ветки