Скачать: CL | DM;

Как правильно скопировать массив 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]

ага спасибо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c