blob saving mystery - Xtreme Visual Basic Talk

06-02-2004, 08:07 AM

f3rDzReYeS f3rDzReYeS is offline

Regular

Join Date: May 2004

Posts: 59

blob saving mystery

How come there are instances wherein the jpg's blob file are saved in the Photo field and there are time's its not?

Code:

Private Sub cmdTWAIN_Click()
    'create a temporary file acquired from a webcam
    frmAcquireImage.Show vbModal, Me
    'load the temporary file n image1
    Image1.Picture = LoadPicture("c:\fjrtemp.jpg")
    'append image file to database
    FileToBlob Adodc1.Recordset.Fields("Photo"), "c:\fjrtemp.jpg"
End Sub

the filetoblob function came from this thread:
http://www.xtremevbtalk.com/showthread.php?t=26291

appreciate any help

ferdz

06-02-2004, 09:05 AM

Dennis DVR

Back in the Game

Forum Leader
* Expert *

Join Date: Nov 2003

Location: Manila Philippines

Posts: 3,555

try this

Code:

Function ProcessImage(strImageName) As Byte()
    Dim IntNum As Integer
    Dim ByteImage() As Byte
    If (strImageName <> "") Then
       IntNum = FreeFile
       Open strImageName For Binary As #IntNum
       ReDim ByteImage(FileLen(strImageName))
       Get #IntNum, , ByteImage
       Close #1
    End If
    ProcessImage = ByteImage
End Function

to save the image to your table

Code:

rs.Fields("myImage").AppendChunk ProcessImage("c:\fjrtemp.jpg")

But saving the image to your table will rapidly increase the size of your Database so i won't recommend using this method save the path and name of the image file as much as you can.

__________________
Avatar by Lebb

[Posting Guidelines] [Standards & Practices Tutorial] [Participate here effectively]
Our knowledge can only be finite, while our ignorance must necessarily be infinite. Karl Popper