BeforeOnEvent(const AnsiString MethodName, const TStream *Stream ) ?

kmfangxun 2007-03-29 04:33:20

函数：

BeforeOnEvent(const AnsiString MethodName, const TStream *Stream ) ?

要把 Stream 的内容保存到文件上，应该如何做？

下面的会出错，提示 Stream是const object

TMemoryStream *mstrm=new TMemoryStream;
try{
mstrm->LoadFromStream(Stream);
mstrm->SaveToFile("c:\\tmp.txt");
}
__finally
{
delete mstrm;
}

...全文

179 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

kmfangxun 2007-03-29

打赏
举报

回复

果真如此，多谢了！

我老是去用dynamic_cast，呵呵！

daydayup234 2007-03-29

打赏
举报

回复

Stream咋定义的

试验

const_cast<TStream *>(Stream)
转换

4.2.函数(Functions)4.2.1.ComponentCreateFromXmlFile　unit NativeXmlObjectStorage　function ComponentCreateFromXmlFile(const FileName: string;... const Name: string): TComponent;　从文件名称为F...

* + Format method ex: obj.format('<%name%>%tab[1]%</%name%>') * + ParseFile and ParseStream methods * + Parser now understand hexdecimal c syntax ex: \xFF * + Null Object Design Patern (ex: for ...

ool LoadPhotoFromField(TField *F_Photo,const AnsiString Format,T *Pic) if(!F_Photo->DataSet->Active) return false ; if(F_Photo->IsNull) return false ; else {TStream *TmpStream = F_Photo->...

function cryptstr(const s:string; stype: dword):string; var i: integer; fkey: integer; begin result:=''; case stype of 0: setpass; begin randomize; fkey := random($ff);

if method.Name = 'Test' then begin arg := 'Hello World!'; method.Invoke(Self, [arg]); Exit; end; end; end); Task.Start; end; procedure TForm1.Test(Text: string); begin TThread....

13,825

社区成员

102,679

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章