code29.txt

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

程序段29
这段程序用来将pic1复制到blob变量，然后在下一位置复制pic2

blob(1500) pic1,pic2
blob picture
int fp
long n
fp=FileOpen("c:\pb4\f1.bmp",streammode!)
FileRead(fp,pic1)  //将文件f1.bmp中的图象数据读入变量pic1
fp=Fileopen("c:\pb4\f2.bmp",streammode!)
FileRead(fp,pic2)  //将文件f2.bmp中的图象数据读入变量pic2
n=BlobEdit(picture,1,pic1)
BlobEdit(picture,n,pic2)