genexus 存取图片或文件到数据库的操作

 存取图片或文件到数据库的功能在企业信息化应用中现在很广泛了，比如说pdm系统，每个产品编号都对应的产品图片或工艺文件
目前有2种方法：1）直接在数据库表中存储文件路径 2)在数据库表中存储文件内容，即2进制文件。

第1种方法比较好解决，直接在表中写路径的字符串就可以了，但缺点就是文件都是与本机有关，单机版可以用，如果是联机的多用户系统，就不能适用。

我们现在就这个问题，提出了把文件直接存储在数据库，达到图片或文件的共享，以更好的管理。

WorkPanel:WkpPict

Event 'SelPict'
    //选择文件
    &initpath = 'c:/'
    &extens = 'jpg file (*.jpg,*.jpeg)|*.jpg;*.jpeg|bmp file(*.bmp)|*.bmp|gif file(*.gif)|*.gif|tiff file(*.tiff)|*.tiff'// 文件过滤，注意书写法
    &caption = '选择图片文件'
    &buttcap = '确定'
    &ret = GxSelFile(&selected, &initpath, &extens, &caption, &buttcap, &butttype)
    /*根据返回值 
    &ret = 1 ,选择了文件
    &ret = 0 ,取消选择*/
    if &ret = 1
        &picbmp = LoadBitmap(&selected)//在窗体上显示图片
    endif
EndEvent  // 'SelPict'

Event 'SavPict'
    //保存到数据库
    &picblob = &selected
    PPrcSavPict.Call(&picblob)//新增图片到数据库
EndEvent  // 'SavPict'

Event 'ReaPict'
    //从数据库读取图片到blob 
    &picblob = ''
    PPrcGetPict.Call(&picblob,3)//读取编号为3的图片
    &picbmp = LoadBitmap(&picblob)
EndEvent  // 'ReaPict'

Procedure：PrcSavPict

Rules:

parm(&pblob);

Source：

New//新增图片到数据库，编号假设为3
    picid = 3
    picblob = &pblob
EndNew

Procedure：PrcGetPict

Rulses: parm(&pblob,&pid);

Source:

for each   
    where picid = &pid
    &pblob = picblob
endfor

Transation:TrnPict

*picid n(10)//图片编号

picbloc blob//图片2进制文件

 

这样就可以存取图片等2进制文件了，上述说明只是可以实现简单的存取的一个实例，具体涉及到各个相关应用，我想大家也应该知道如何操作，我在这里就抛砖引玉了。

 

以上的操作例子经测试在 gx 9 + java + microsoft sdk + win + Sqlserver 通过;

 在oracle9,10数据库不能存取,原因是微软虚拟机不提供java.sql.Results.getBlob(Int i)方法.

要想在oracle中保存图片,只能选择 sun sdk,Sun Sdk提供Blob的方法当然是no problem了.