global type f_get_chemin_image from function_object
end type

forward prototypes
global subroutine f_get_chemin_image (string as_cle, ref string as_chemin_image)
end prototypes

global subroutine f_get_chemin_image (string as_cle, ref string as_chemin_image);Blob     lbl_blob, lbl_chunk
Integer   li_filenum
Long    ll_bloblen
Integer   li_loops
Integer   li_counter
Long    ll_bytes_read
Long    ll_chunk = 32000
Integer   li_sqlcode

SELECTBLOB IMAGE 
INTO  :lbl_blob 
FROM  TABLE_IMAGE 
WHERE CLE = :as_cle 
USING sqlca ; 
li_sqlcode = sqlca.sqlcode
If sqlca.sqlcode = 0 Then 
  ll_bloblen = len(lbl_blob)
  as_chemin_image = 'c:\'  + as_cle + ".gif"
  If not fileexists(as_chemin_image) Then

    li_FileNum = FileOpen(as_chemin_image, StreamMode!, Write!, LockWrite!, Append!)
    
    IF ll_bloblen > ll_chunk THEN 
    
      IF Mod(ll_bloblen,ll_chunk) = 0 THEN
        li_loops = ll_bloblen/ll_chunk 
      ELSE
        li_loops = (ll_bloblen/ll_chunk) + 1 
      END IF 
    ELSE 
      li_loops = 1 
    END IF
    
    
    ll_bytes_read = 1
    FOR li_counter = 1 to li_loops 
       If li_counter < li_loops Then
         lbl_chunk = BlobMid(lbl_blob, ll_bytes_read, ll_chunk)
         ll_bytes_read += ll_chunk
       Else
         lbl_chunk = BlobMid(lbl_blob, ll_bytes_read, ll_bloblen - ll_chunk* li_counter)
       End If
       FileWrite(li_filenum, lbl_chunk)
    Next
    
    FileClose(li_filenum)
  End if   
End if

end subroutine