Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Advanced
Nov 17, 2003

BlobToFile - Saving a BLOB field to a file

' Reusable routine that save a BLOB field to a file
' Requires Imports for System.Data and System.Data.Common
' Example: BlobToFile(dr, 2, "c:\xxxx.bmp")

Sub BlobToFile(ByVal dr As IDataReader, ByVal fieldIndex As Integer, _
    ByVal filename As String)
    Const CHUNK_SIZE As Integer = 200
    Dim buffer(CHUNK_SIZE - 1) As Byte

    Dim stream As New System.IO.FileStream(filename, IO.FileMode.Create)
    Dim index As Long = 0
    Try
        Do
            ' Get the next chunk, exit if no more bytes.
            Dim length As Integer = CInt(dr.GetBytes(fieldIndex, index, buffer, _
                0, CHUNK_SIZE))
            If length = 0 Then Exit Do
            ' Write to file and increment index in field data.
            stream.Write(buffer, 0, length)
            index += length
        Loop
    Finally
        stream.Close()
    End Try
End Sub
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap