Текущий архив: 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
