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

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

From TMemoryStream to PByte [D7, XP]

Fl@sh ©   (2006-03-29 16:38:00) 

var
 ms: TMemoryStream;
 Buffer: PByte;
 MemSize: Integer;
begin

 ms := TMemoryStream.Create;

 try
   ms.LoadFromFile('ms.stream');

   MemSize := ms.Size;
   Inc(MemSize);
   buffer := AllocMem(MemSize);
   ms.Write(Buffer^, MemSize);
   ms.Clear;

   ms.Read(Buffer^, MemSize);

   cds.LoadFromStream(ms);

 finally
   ms.Free;
   FreeMem(Buffer, MemSize);
 end;
Неработает!
Исправте, в чем я неправ.

---

Fl@sh   (2006-03-29 18:55:00) [1]

> Reindeer Moss Eater ©   (29.03.06 17:11) [2]
>
> И это еще зачем?


Сначало это додавало окончание нуля для Pchar
Спасибо, буду пробовать.

---

Reindeer Moss Eater   (2006-03-29 17:11:00) [2]

И это еще зачем?

Inc(MemSize);

---

Reindeer Moss Eater   (2006-03-29 17:06:00) [3]

Перепутал местами Read и Write

---

Наверх