/*uf_create_pic value string as_file_path 文件名 C:/test.txt value blob ablb_data blob return integer*/ integer li_FileNo, li_Writes, li_Cnt long ll_BlobLen, ll_CurrentPos blob lblb_Data li_FileNo = FileOpen(as_file_path, StreamMode!, & Write!, LockReadWrite!, Append!) If li_FileNo < 0 Then Return -1 ll_BlobLen = Len(ablb_Data) // Determine the number of writes required // to write the entire blob 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 ll_CurrentPos = 1 For li_Cnt = 1 To li_Writes lblb_Data = BlobMid(ablb_Data, ll_CurrentPos, 32765) ll_CurrentPos += 32765 If FileWrite(li_FileNo, lblb_Data) = -1 Then Return -1 End if Next FileClose(li_FileNo) Return 1