Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.06 c
8-1131566457
[dvs]digiman
2005-11-09 23:00
2006.04.16
Aero Glass эффект


6-1136260467
ZLOFENIX
2006-01-03 06:54
2006.04.16
Сокеты


4-1138703983
Kolan
2006-01-31 13:39
2006.04.16
Вызов API диалога настройки Com порта.


10-1116735536
SnapIn
2005-05-22 08:18
2006.04.16
Прочитать переданные в TWebBrowser параметры


2-1143818838
gidd
2006-03-31 19:27
2006.04.16
Тема письма