Главная страница
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.044 c
3-1140422891
evgenij_
2006-02-20 11:08
2006.04.16
имя таблицы с которой работал ADOQuery


2-1143922266
He3Hauka
2006-04-02 00:11
2006.04.16
Топологическая сортировка TreeView


15-1143311952
ArtemESC
2006-03-25 21:39
2006.04.16
Найти иголку в стоге сена...


2-1143722229
EXILE
2006-03-30 16:37
2006.04.16
Указатели


4-1138514926
maxim161
2006-01-29 09:08
2006.04.16
ProcessHandle