• 全部
  • VC综合技术
  • 互联网技术
  • MFC AppLauncher
  • .NET 技术
  • 界面
  • 进程
  • 算法
  • 硬件/系统
  • 数据库
  • VC++技术资源

彩鸟级的问题

debonair_wei 2002-05-06 07:31:57
我在pb6.5数据窗口的picture控件里显示相应的图片,并在数据窗口控件的doubleclicked事件里写入了下述代码:
string docname,named
int fnum,i,loops,value
long flen,sum_read,p_new
blob b,b_photo
p_new=0
value = GetFileOpenName("请选择照片", docname, named, "bmp", &
+ "bmp格式文件 (*.bmp),*.bmp")
IF value = 1 THEN
flen=filelength(docname)
fnum=fileopen(docname,Streammode!,Read!,LockRead!)
if flen > 32765 then
if mod(flen,32765) =0 then
loops=flen/32765
else
loops =(flen/32765)+1
end if
else
loops = 1
end if
for i=1 to loops
sum_read=fileread(fnum,b)
b_photo=b_photo + b
p_new=p_new + sum_read
fileseek(fnum,p_new,frombeginning!)
next
FileClose(fnum)
dw_1.object.p_1.filename = docname
程序出现语法错误,请大哥哥,大姐姐们帮俺看一下到底是什么错误,并给予指正
...全文
7 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
debonair_wei 2002-05-07
我将上面的IF语句改为
if flen > 32765 then
loops=(flen - 1)/32765
else
loops = 1
end if
错误依旧,还请各位不只回答高难度问题的高手能给小弟再指点指点
回复
yu_hl 2002-05-06
这一段:
if mod(flen,32765) =0 then
loops=flen/32765
else
loops =(flen/32765)+1
end if
else
loops = 1

最后一个else没有配对啊。
回复
相关推荐
发帖
VC/MFC
创建于2007-09-28

1.5w+

社区成员

VC/MFC相关问题讨论
申请成为版主
帖子事件
创建了帖子
2002-05-06 07:31
社区公告

        VC/MFC社区版块或许是CSDN最“古老”的版块了,记忆之中,与CSDN的年龄几乎差不多。随着时间的推移,MFC技术渐渐的偏离了开发主流,若干年之后的今天,当我们面对着微软的这个经典之笔,内心充满着敬意,那些曾经的记忆,可以说代表着二十年前曾经的辉煌……
        向经典致敬,或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天,我们期待着MFC技术能够恢复其曾经的辉煌,或许这个期待会永远成为一种“梦想”,或许一切皆有可能……
        我们希望这个版块可以很好的适配Web时代,期待更好的互联网技术能够使得MFC技术框架得以重现活力,……