code37.txt

来自「一个用数据库编写的学生信息管理系统！做课程设计的同学可以做为参考！」· 文本 代码 · 共 13 行

程序段37
　　这段程序用来打开OLEStorage中的流，并将它赋给OLEStream对象，
然后计算流的长度。

olestorage stg_first
stg_first=create olestorage
long strlen
int i
olestream olestrl
olestrl=CREATE olestream
olestrl.open(stg_first,"strl",stgRead!,stgDenyNone!)
i=olestrl.Lenth(strlen)