还是关于流和指针的使用的问题。(100分)

C

crazycock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #1

下面一段程序。
procedure TForm1.ACMWaveIn1Data(data: Pointer; size: Integer);
var
SendStream:TMemoryStream;
begin
SendStream:=TMemoryStream.Create;
SendStream.Read(data^,size);//这里怎么写？？？？？？？？？？？？？？？
NMStrm1.PostIt(SendStream);
Form1.Caption:='Send Size='+IntToStr(SendStream.Size);
SendStream.Free;
end;
知道一个指针和要处理的数据的长度，想把这些内容转换成流的形式，通过NMStrm发送出去，
然后接收到后，再恢复。
请大家指教。

 

远

远帆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #2

procedure TForm1.ACMWaveIn1Data(data: Pointer; size: Integer);
var
SendStream:TMemoryStream;
begin
SendStream:=TMemoryStream.Create;
SendStream.write(data^,size);//data为一指向一个内存缓冲区的指针
NMStrm1.PostIt(SendStream);
Form1.Caption:='Send Size='+IntToStr(SendStream.Size);
SendStream.Free;
end;

data可以申明如下：
var
data:^byte;

...
data:=allocmem(size);
...
获取数据
...

...
写入sendstream
...
freemem(data);

 

C

crazycock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #3

楼上的，能详细一些吗？我确实比较笨。
写出代码让我参考一下，好吗？分可以再加。

 

C

crazycock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #4

怎么没有人回答？？！！

 

风

风中流云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #5

var
memstream:Tmemorystream;
curname:string;
buffer:array[0..80] of char;
--------------------------------
................................
len:=length(curname);
strlcopy(buffer,pchar(curname),len);
memstream.Write(buffer,len);
......................................

 

C

crazycock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #6

好，我去试试……

 

H

Headchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-02

• #7

同意风中流云。

 

C

crazycock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-05

• #8

非常感谢风中流云，哎，我真笨，快来救救我，怎么把Stream再转换回原来的
String呢？

 

W

wk_knife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #9

TStrings不是有个LoadFromStream

 

C

crazycock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-09

• #10

对不起，我已经回家了，没有办法再去验证大家的答案，这样吧，先发分过年再说，呵呵~