MemoryStream

← →
MemoryReader (2005-01-31 16:36) [0]

Есть указать на область памяти, как считать последующие 100 байт? Например в TmemoryStream;
Или?
За ранее спасибо

← →
Digitman © (2005-01-31 16:39) [1]

← →
Александр Иванов © (2005-01-31 16:42) [2]

p- указатель
Pointer(Integer(p)+100);

← →
Skier © (2005-01-31 16:43) [3]

TMemoryStream.WriteBuffer(...) ?

← →
Александр Иванов © (2005-01-31 16:46) [4]

В первый раз н понял до конца.

type Arr:array[1..100] of byte; PArr:^Arr; var Data:PArr; ... Data:=P;

← →
MemoryReader (2005-01-31 16:50) [5]

Может я не правильно выражаюсь :(
seek(f,N);
blockread..из файла

А как из памяти запущенной программы тоже самое сделать?

← →
Jay1982 © (2005-01-31 16:53) [6]

BlockWrite"ом попробуй

← →
default © (2005-01-31 16:59) [7]

Move

← →
MemoryReader (2005-01-31 17:12) [8]

не понял? причем тут move?

← →
default © (2005-01-31 17:15) [9]

задай тогда вопрос понятнее

← →
Александр Иванов © (2005-01-31 17:17) [10]

А [4] попробовал?
type Arr=array[1..100] of byte; PArr=^Arr; var Data:PArr; P:Pointer; i:integer; ... Data:=P; for i:=1 to 100 do ShowMessage(Data^[i]);

← →
Jay1982 © (2005-01-31 17:22) [11]

BlockWrite(fl, p, 100)
fl - file
p - указатель на участок памяти

← →
MemoryReader (2005-01-31 17:29) [12]

Делаю так: "Stream.Readbuffer(data,sizeof(data));" почему так делать нельзя?
var data:Parr;
begin
Stream:=TStream.Create;
Data:=@TTP;
Stream.Readbuffer(data,sizeof(data));
....
stream.free;
end;

← →
Александр Иванов © (2005-01-31 17:31) [13]

Зачем тебе этот Stream? если можно обойтись без таких потерь?

← →
MemoryReader (2005-01-31 17:37) [14]

Без stream в моем случае нельзя :(

Насколько я понял результатом должно быть заполнение переменной data (Stream.Readbuffer(data,sizeof(data));). Смысла нет использовать TStream и его потомков. Если только это не лабораторная работа.

>MemoryReader (31.01.05 17:29) [12]
что есть Parr ?

← →
MemoryReader (2005-01-31 17:49) [17]

>Насколько я понял результатом должно быть заполнение переменной >>data (Stream.Readbuffer(data,sizeof(data));). Смысла нет >использовать TStream и его потомков. Если только это не >лабораторная работа.
Наоборот нужно stream заполнить data"ой (writebuffer?)

>что есть Parr ?

type
Arr=array[1..100] of byte;
PArr=^Arr;

type Arr=array[1..100] of byte; PArr=^Arr; var Data:PArr; P:Pointer; i:integer; ... Data:=P; Stream:=TMemoryStream.Create; Stream.Write(Data^,100); ... Stream.Free;

Stream:=TMemoryStream.Create;
Stream.WriteBuffer(TTP, Sizeof(TTP));

MemoryStream Найти похожие ветки