关于STREAM流 (0分)

C

caroline

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-24

• #1

怎么把东西写入 流stream的形式，再把流存成PCHAR，有程序小例子给我看马？
不胜感激

 

G

grays

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-24

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
mm:Tmemorystream;
aachar;
begin
mm:=Tmemorystream.Create;
mm.LoadFromFile('c:/Netlog.txt');
aa:=mm.Memory;
showmessage(aa);
mm.Free;
end;
end.
不知道这可不可以

 

C

caroline

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-24

• #3

不关可以不可以，都要谢谢你第一个回答我的问题，
是这样的，我要把 WORD型，STRING型写到STRAME里，并把STREAM 再赋给PCHAR

 

X

xiaoywh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-24

• #4

var TempStream : TStream;
iBuffbyte;
cbuff1,cbuff2char;
beign
TempStream : TStream.create;
TempStream.read(ibuff,len) //写入WORD,INTEGER,BYTE
TempStream.read(cbuff2,len) //写入string;
TempStream.write(cbuff,len); //导入pchar;
end;
方法大致如上，只是对ibuff,cbuff2,cbuff1都要创建和初始

 

C

caroline

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #5

var TempStream : TStream;
iBuffbyte;
cbuff1,cbuff2char;
a:word;
s:string;
beign
TempStream : TStream.create;
TempStream.read(a,2) //？？？？写入WORD,怎么做可以吗？
TempStream.read(s,len(s)) //写入string;//这样可以？
TempStream.write(cbuff,len); //导入pchar;
end;

 

G

grays

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #6

楼上的各位写的很清楚了，可以解决你的问题了把

 

C

caroline

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-26

• #7

？？？？？是 我的问题

var TempStream : TStream;
iBuffbyte;
cbuff1,cbuff2char;
a:word;
s:string;
beign
TempStream : TStream.create;
TempStream.read(a,2) //？？？？写入WORD,怎么做可以吗？
TempStream.read(s,len(s)) //写入string;//这样可以？
TempStream.write(cbuff,len); //导入pchar;
end;

 

C

caroline

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-26

• #8

stream := Tstream.Create ;
sign:='SP';
stream.Read (sign,2);
单步运行到这里 系统报错：abstract erro

 

C

caroline

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-26

• #9

var
stream:Tmemorystream;
sign:string;
otrchar;
begin
stream := Tmemorystream.Create ;
sign:='SP';
stream.Read (sign,2);
stream.write(ptr,strleng(pchar));
什么都写不进去，otr里什么都没有啊

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-06

• #10

stream.Read (sign,2*sizeof(sign));
stream.write(otr,stream.size);

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #11

接受答案了.