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+"'")