PB中照片的存及读取.docVIP

//读保释存图片 　　string ls_pathname, ls_filename 　　integer li_value,li_FileNum,loops,i 　　long ll_fileLength,bytes_read,new_pos 　　blob b, tot_b 　　Blob gb_photo 　　INSERT INTO PJ_TP(BB) VBLUES (1) USING SQLDB; 　　DOMMIT USING SQLDB; 　　li_value = GetFileOpenName(选择相片, 　　+ ls_pathname, ls_filename, jpg,Jpg Files (*.jpg),*.jpg) 　　IF li_value = 1 THEN 　　// Set a wait cursor 　　SetPointer(HourGlass!) 　　// Get the file length, and open the file 　　ll_fileLength= FileLength(ls_filename) 　　li_FileNum = FileOpen(ls_filename, 　　StreamMode!, Read!, LockRead!) 　　// Determine how ma