Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как правильно скопировать массив Byte в TMemory Stream [D5, D6]


max2057 ©   (2002-10-14 13:39:00) 

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


max2057   (2002-10-15 10:42:00) [1]

ага спасибо


Developer   (2002-10-15 10:13:00) [2]

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


Юрий Зотов   (2002-10-14 23:05:00) [3]

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

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


max2057   (2002-10-14 22:20:00) [4]

packed - это че?


Юрий Зотов   (2002-10-14 17:52:00) [5]

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


Best Before 2024   (2002-10-14 14:18:00) [6]

MemoryStream.Write(Buffer, Count) : integer


max2057   (2002-10-14 14:16:00) [7]

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

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





MBo   (2002-10-14 13:52:00) [8]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо