create this funcation with two parameter
pass by argument Type argument name
value string as_filename
reference blob ablb_name
-----------------------
integer li_FileNo, li_Writes, li_Cnt
long ll_BlobLen, ll_CurrentPos
blob lblb_Data
li_FileNo = FileOpen(as_FileName, StreamMode!, Write!, LockReadWrite!, Replace! )
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
-------------------
selectblob image into :lbb_imagedata from your_table
f_filewrite_graphic(ls_fil
dw_report.object.p_approve
or try this
Main Topics
Browse All Topics





by: shru_0409Posted on 2009-09-04 at 05:15:03ID: 25258716
http://www.experts-exchang e.com/Prog ramming/ Pr ogramming_ Languages/ PowerBuild er/Q_20792 141.html
check this link