Image transfer with WIA

[robjones01]

I'm struggling with getting some code to take a picture and transfer the image to the PC and save the file.

It works up to line Set imfile = item.Transfer 'transfers the picture from the camera and then produces an error stating

"Object Variable or With Block variable not set"



I'm completely lost, it's working great and taking the picture but I'm just not able to then transfer the image

Option Compare Database
Dim objDeviceInfo As WIA.DeviceInfo
Dim objDevice As WIA.Device
Dim objDeviceManager As WIA.DeviceManager
Dim objItem As WIA.item
Dim objImage As WIA.ImageFile
Dim intCount, intLoop As Integer
Dim objFSO As Scripting.FileSystemObject
Dim strTempPicture As String

Private Sub cmdTakePicture_Click()
 
    On Error GoTo Err_btnTakePicture_click
 
    Dim tempfile As String
    Dim MyDevice As WIA.Device
    Dim item As WIA.item
    Dim imfile As WIA.ImageFile
    Dim Commondialog1 As WIA.CommonDialog
    Dim MyFilename As String
 
    MyFilename = DLookup("[Pic_Location]", "sysProperties") & Forms![frmMembers_Details]![MemberNumber] & ".jpg"
 
    'put the path and name for the location of your temp file here.
    tempfile = (MyFilename)
 
    'the next 4 lines deletes the old temp file if it exists
    Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
    If FileSystemObject.FileExists(tempfile) Then
        Kill (tempfile)
    End If
 
    'the next two lines set up the configuration
    Set Commondialog1 = New CommonDialog
    Set MyDevice = Commondialog1.ShowSelectDevice
 
    Set item = MyDevice.ExecuteCommand(wiaCommandTakePicture)        'instructs the camera to take the picture
 
    Set imfile = item.Transfer 'transfers the picture from the camera

    'this line saves the picture to a specified file
    imfile.SaveFile (tempfile)
 
    'this sets the picture on the form to show the new picture
    Me.imgPicture.Picture = (tempfile)
 
    'MsgBox "Picture taken"
 
Exit_btnTakePicture_click:
    Set MyDevice = Nothing
    Set item = Nothing
    Exit Sub
 
Err_btnTakePicture_click:
    MsgBox Err.Description, vbOKOnly + vbCritical, "Error Taking Picture"
    Resume Exit_btnTakePicture_click


End Sub

[ranman256]

you defined it 1 way:
Dim Commondialog1 As WIA.CommonDialog

then set it another:
Set Commondialog1 = New CommonDialog

shouldnt it be the same?

[robjones01]

Don't think so, that element works OK. It takes the picture and then files at the Image Transfer

you defined it 1 way:
Dim Commondialog1 As WIA.CommonDialog

then set it another:
Set Commondialog1 = New CommonDialog

shouldnt it be the same?

[orange]

This is not addressed at your specific issue, but you should also have Option Explicit at the top/ of each module.
This will identify any undeclared variables.

What exactly does this mean?

I'm completely lost, it's working great and taking the picture but I'm just not able to then transfer the image

You have been using this successfully?
You have never been able to transfer the image?

I do not use WIA, but have used a routine by Emilio to resize images that may be helpful re syntax etc.

[robjones01]

Apologies, I'd missed the Option Explicit...

The code works to take the picture and stores it on the camera but I can't then get the WIA Transfer to move the image to the PC to save.

This is not addressed at your specific issue, but you should also have Option Explicit at the top/ of each module.
This will identify any undeclared variables.

What exactly does this mean?


You have been using this successfully?
You have never been able to transfer the image?

I do not use WIA, but have used a routine by Emilio to resize images that may be helpful re syntax etc.

[orange]

Is this a separate camera or a camera built in to your laptop etc?

Has the transfer ever worked OR are you trying to use code you found?
If it's code you found, can you show us where you got it --perhaps there's more to the code/article than you are showing.

[robjones01]

It's code I found and its using a seperate camera.

I can't remember where I found the code as I've been trying to do it for weeks, I can only seem to do it if I use the ShowAcquireImage function of WIA to select the picture and then save it.
I think the problem is that it's unable to pull the filename off the camera to save it

Is this a separate camera or a camera built in to your laptop etc?

Has the transfer ever worked OR are you trying to use code you found?
If it's code you found, can you show us where you got it --perhaps there's more to the code/article than you are showing.

[orange]

Is this a separate camera or a camera built in to your laptop etc?

I found the code here
https://bytes.com/topic/access/answe...re-windows-7-a

It also says Works great in Windows XP but fails in W7 with an error stating: "object variable or with block variable not set". The camera does open up and flash so it appears to take the picture but no result in image frame.