怎样将TOleStream的值写到TMemoryStream内

Question

ver
os : TOleStream;
ms : TmemoryStream;
begin
  os := TOleStream.Create
  ms := TMemoryStream.Create;
  
  //1.将值写入到os... //2.os将值写到ms内
  OS.(ms.Memory^,OS.Size);   //这句报错,请教怎样写?谢谢
  os.free;
  ms.free;end;

Answer 1

写错了,漏了ReadBuffer
ver
os : TOleStream;
ms : TmemoryStream;
begin
  os := TOleStream.Create
  ms := TMemoryStream.Create;
  
  //1.将值写入到os... //2.os将值写到ms内
  OS.ReadBuffer(ms.Memory^,OS.Size);   //这句报错,请教怎样写?谢谢
  os.free;
  ms.free;end;

Answer 2

ms.LoadFromStream(os); //2.os将值写到ms内

Answer 3

OS.Position := 0;
OS.ReadBuffer...

Answer 4

Stream :=TMemoryStream.Create;    Ole_Share.SaveToStream(Stream);

Answer 5

//2.os将值写到ms内
  OS.ReadBuffer(ms.Memory^,OS.Size); 楼主这句至少应该先分配空间啊。。  ms.SetSize(os.Size);
  os.ReadBuffer(ms.Memory^,os.Size); 

Answer 6

我是用 ms.loadfromstream(os)处理了。
halfdream(哈欠)  说出的原因在哪 给分