给您一段实例吧:
//读取保存
string ls_pathname, ls_filename
integer li_value,li_FileNum,loops,i
long ll_fileLength,bytes_read,new_pos
blob b, tot_b
li_value = GetFileOpenName("选择照片", &
+ ls_pathname, ls_filename, "Graphic","Graphic Files (bmp;gif;jpg;jpeg),bmp;gif;jpg;jpeg")
IF li_value = 1 THEN
// 设置鼠标样式为等待
SetPointer(HourGlass!)
// 获取文件长度,每次最大能读取的长度是32765
ll_fileLength= FileLength(ls_filename)
li_FileNum = FileOpen(ls_filename, StreamMode!, Read!, LockRead!)
// 通过长度得到要循环读取多少次
IF ll_filelength > 32765 THEN
IF Mod(ll_filelength, 32765) = 0 THEN
loops =ll_filelength/32765
ELSE
loops = (ll_filelength/32765) + 1
END IF
ELSE
loops = 1
END IF
// 读取文件
new_pos = 1
FOR i = 1 to loops
bytes_read = FileRead(li_FileNum, b)
tot_b = tot_b + b
NEXT
FileClose(li_FileNum)
//更新表
//UPDATEBLOB 表名 SET 字段=:tot_b WHERE 条件 USing sqlca;
//IF SqlcaSQLNRows > 0 THEN
//COMMIT USING SQLCA;
P_1setpicture(tot_b) //设置界面显示
Elseif li_value=-1 then
MessageBox("选择照片","打开文件错误!")
End If
//从表里读取
//Blob lb_photo
//SELECTBLOB photo INTO :lb_photo FROM 表 where 条件 Using SQLCA;
//P_1setpicture(lb_photo)
1、通过电脑直接找到ftpserverexe并双击运行。
2、新建一个可以登录FTP服务器的帐户。
3、需要为刚才建立的帐户添加一个密码。
4、如果没问题就设置共享的目录在哪里。
5、根据自己的实际情况来继续设置权限。
6、在成功创建一个新帐户以后选择完成。
7、等d出图示页面即可在内网建立FTP服务器。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)