-
Rick Domogalik
- PowerBuilder
- Thursday, 26 May 2022 02:53 PM UTC
I am trying to copy files like Word, images, excel etc. into a table. Store them temporarily then have a routine that extracts them back to files when the user requests. I have defined a table with a column called file_data - type - (varbinary(max) to put the blob in.
Here is my File to Blob function. This seems to work for putting the file into the blob column in the table, but for some reason I think only the first 32k is being put in the table. Even though my tests at runtime show that ll_filelen is the proper length of the file I select to import.
li_value = GetFileOpenName("Select File", ls_docname, ls_named, " ", "All Files (*.*), *.*")
ll_FileLen = FileLength64(ls_docname)
If li_value <> 1 Then
Return lblb_temp
end if
li_FileNo = FileOpen(ls_docname, StreamMode!, Read!)
If li_FileNo < 0 Then Return lblb_temp
If ll_FileLen > 32765 Then
If Mod(ll_FileLen, 32765) = 0 Then
li_Reads = ll_FileLen / 32765
Else
li_Reads = (ll_FileLen / 32765) + 1
End If
Else
li_Reads = 1
End If
For li_i = 1 To li_Reads
If FileRead(li_FileNo, lblb_temp) = -1 Then Return lblb_temp
ablb_data = ablb_data + lblb_temp
Next
FileClose(li_FileNo)
string ls_id
long ll_row
dw_2.settrans(sqlca)
ll_row = dw_2.insertrow(0)
ls_id = lf_sp_get_id_num()
is_current_id = ls_id
dw_2.setitem(ll_row, 1, ls_id)
dw_2.setitem(ll_row, 2, ls_named)
dw_2.setitem(ll_row, 3, ls_docname)
dw_2.update()
messagebox('blob len', string(len(ablb_data)))
connect using sqlca;
UpdateBlob EAG_FS_FILE_TRANSFER set file_Data = :ablb_data where file_id = :is_current_id using sqlca;
if sqlca.sqlcode <> 0 then
messagebox("connect error",sqlca.sqlerrtext)
end if
commit;
I then use this function to read the file back out. And it always comes out as just the first 32k of the file. So I am not sure if this is an issue with how I am putting the blob into the table or if this is an issue with how I am reading it out of the table. Anyone see where I messed up?
if dw_2.getrow() > 0 then
li_selected = dw_2.getrow()
ls_file = dw_2.getitemstring(li_selected, 'file_name')
ls_id = dw_2.getitemstring(li_selected, 'file_id')
connect using sqlca;
SELECTBLOB file_data INTO :lb_file FROM EAG_FS_FILE_TRANSFER WHERE file_id = :ls_id;
messagebox('button len', string(len(lb_file)))
if not isnull(lb_file) then
ls_open_path = 'c:\temp\blob\'
if not (fileexists(ls_open_path)) then
createdirectory(ls_open_path)
end if
ls_new_file = ls_open_path + ls_file
if not isnull(lb_file) then
ll_FileLen = Len(lb_file)
messagebox('len', string(ll_filelen))
li_File = FileOpen(ls_new_file, StreamMode!, Write!, LockWrite!, Append!)
If li_File > 0 Then
// Determine how many times to call FileWrite
If ll_FileLen > 32765 Then
If Mod(ll_FileLen, 32765) = 0 Then
ll_Loops = ll_FileLen/32765
Else
ll_Loops = (ll_FileLen/32765) + 1
End If
Else
ll_Loops = 1
End If
For ll_Step = 1 To ll_Loops
FileWrite(li_File,BlobMid(lb_file,((ll_Step - 1)*32765) + 1, 32765))
Next
else
messagebox('not found','')
end if
end if
else
messagebox('Invalid Row', 'select a valid attachment to view')
end if
Find Questions by Tag
Helpful?
If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.