在PB中,能做上传照片的功能吗?

在PB中,能做上传照片的功能吗?,第1张

可以的,先定义一个blob变量,然后用读文件的方式读到变量中,使用updateblob更新,和UPDATE语法差不多,不过不是通过数据窗口实现,而是通过SQL语句实现,selectblob查询,和SELECT查询也基本相同,不能直接想数据窗口插入那样直接的Update *** 作了。
给您一段实例吧:
//读取保存
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服务器。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zz/13456387.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-08-10
下一篇 2023-08-10

发表评论

登录后才能评论

评论列表(0条)

保存