如何将TMemoryStream清空

[gloom]

我想利用一个TMemoryStream不断地从一个文件中获得数据，可是我如何将前一进的数据　啊？我用下面的代码老出错啊

void __fastcall TForm1::FileSocketClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString rev=Socket->ReceiveText();
int pos=rev.Pos("%%");
if (rev.SubString(1,pos-1)=="get")
{
rev.Delete(1,pos+1);
pos=rev.Pos("%%");
int user=rev.SubString(1,pos-1).ToInt();
AnsiString fName=ExtractFilePath(Application->ExeName)+"server"+IntToStr(user)+".huc";
//if (mStream!=NULL) delete mStream; mStream->Clear();
//mStream->Free();

//mStream=new TMemoryStream();
mStream->LoadFromFile(fName);
Socket->SendStream(mStream);
}
}

[Wingsun]

TMemoryStream::Clear

Frees the memory buffer, discarding all data associated with the memory stream.

void __fastcall Clear(void);

Description

Use Clear to empty the memory buffer for the memory stream and free all associated memory. In addition to freeing the memory associated with the memory buffer, Clear

Sets the Memory property to NULL.
Sets the Position property to 0.
Sets the Size property to 0.

[Wingsun]

不需要Free和delete，这样才可以重复使用。

[猛禽]

如春阳兄所言，用Clear即可

[gloom]

不行啊，版主。我一用Clear就出现异常，
Access violation at address 00000001.Read of address 00000001.
第一次正常，第二次便　出现此异常。

[gloom]

因为我是在Socket事件中处理的，而Socket一次只能发送8K字节，而我的流有将近1MB，所以它必须分成多次来发送，这个流是不是被它保护起来了？