1。selectblob 取出图片文件
2。fileopen 创建并打开临时存放的图片文件
li_FileNo = FileOpen("c:/temp.jpg", StreamMode!, Write!, LockReadWrite!, Replace!)
3。取文件长度。
ll_BlobLen ＝Len(blob_data)
If ll_BlobLen > 32765 Then
If Mod(ll_BlobLen, 32765) = 0 Then
li_Writes = ll_BlobLen / 32765
Else
li_Writes = (ll_BlobLen / 32765) + 1
End if
Else
li_Writes = 1
End if
4.写入
ll_pos = 1
For i= 1 To li_Writes
lblb_Data = BlobMid(blob_data, ll_Pos, 32765)
ll_pos += 32765
If FileWrite(li_FileNo, lblb_Data) = -1 Then
FileClose(li_fileno)
Return false
End if
Next
5.显示
ls_path＝"c:/temp.jpg"
dw_1.modify("p_1.filename ='"+ls_path+"'")