Текущий архив: 2006.04.16;
Скачать: CL | DM;

Вниз

From TMemoryStream to PByte   Найти похожие ветки 

← →
Fl@sh ©   (2006-03-29 16:38) [0]

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;
Неработает!
Исправте, в чем я неправ.

---

← →
Reindeer Moss Eater ©   (2006-03-29 17:06) [1]

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

---

← →
Reindeer Moss Eater ©   (2006-03-29 17:11) [2]

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

Inc(MemSize);

---

← →
Fl@sh ©   (2006-03-29 18:55) [3]

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


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

---

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

Текущий архив: 2006.04.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.05 c