PB中如何将数据库内的Image类型的数据保存成文件

PB中怎么将数据库内的Image类型的数据保存成文件
PB中怎么将数据库内的Image类型的数据保存成文件，就是将数据库内的图片保存到某个文件夹内

------解决方案--------------------

string as_filename //图像文件名
blob ablb_bitmap //图像
Integer li_fnum
ULong lul_total, lul_bytes, lul_length

li_fnum = FileOpen(as_filename, StreamMode!, Write!, LockWrite!, Replace!)
If li_fnum > 0 Then
lul_length = Len(ablb_bitmap)
DO WHILE lul_total < lul_length
lul_bytes = FileWrite(li_fnum, &
BlobMid(ablb_bitmap, lul_total + 1))
lul_total += lul_bytes
LOOP
FileClose(li_fnum)
Else
Return -1
End If