数据库如何保存和读取图片

布满荆棘的人生 2022-09-28 03:15 237阅读 0赞

字段类型Image（不同数据库不同，如果没有再查找blob等类型），然后使用如下编程套路：  
  
读取：  
  
   这样的字段不能放在数据窗口的Detail节中，通常用户点击某行数据，获取该行的主键信息，以该信息为条件检索图片信息。比如，主键为id，图片保存在zp字段中：  
  
   在dw\_1的Clicked事件中编写如下程序：  
  
String ls\_id      
  
blob lb\_zp  
  
if Row < 1 then return  
  
ls\_id = This.GetItemString(Row,'id')  
  
selectblob zp into :lb\_zp  
  
   from employee where id = :ls\_id;  
  
if sqlca.SQLNRows > 0 then    //判断是否读取成功  
  
   p\_1.SetPicture(lb\_zp)      //显示在picture控件p\_1中  
  
end if  
  
向数据库中保存图片的脚本如下：  
  
  首先需要明确：  
  
  1）事务对象需要设置AutoCommit属性为True  
  
  2)使用UpdateBlob语句修改，一次只能修改一条记录  
  
  3)在使用UpdateBlob之前数据应该已经存在。  
  
  基于上述原因，通常在卡片式的录入界面中（通常使用Freedom类型的数据窗口）让用户输入照片。数据保存后，马上调用以下脚本处理图片：  
  
blob  lb\_zp  
  
integer li\_file  
  
li\_file = FileOpen(p\_1.filename, StreamMode!)  
  
IF li\_file <> -1 THEN  
  
       FileRead(li\_file,lb\_zp)  
  
       FileClose(li\_file)  
  
       UPDATEBLOB Employee SET zp = :lb\_zp  
  
       WHERE id = :ls\_id;  
  
END IF  
  
IF sqlca.SQLNRows > 0 THEN  
  
       COMMIT;  
  
END IF