WIA.ImageFile to System.Drawing. Image

[Jeremy]

I am creating an imaging service using WIA (Windows Imaging
Acquisition).

The problem is that I cannot convert a WIA.ImageFile to a
System.Drawing. Image to put a timestamp on the image without first
saving the file using the wia.imagefile.s avefile then loading it again
using System.Drawing. Image.FromFile. This seems pretty ineffecient. I
have tried coverting it using ctype, but I get an invalid cast
exception. Is anyone aware of how to accomplish this without saving and
reloading the file? I appreciate your time...

Thanks,
Jeremy

Dim mydevice As WIA.Device
Dim manager As New WIA.DeviceManag erClass
Dim mydialog As New WIA.CommonDialo gClass
Dim strcmdTakePictu re As String =
WIA.CommandID.w iaCommandTakePi cture
Dim strImageformat As String = WIA.FormatID.wi aFormatJPEG
Dim myItem As WIA.Item
Dim myImage As WIA.ImageFile
Dim strFilePath As String = Application.Sta rtupPath &
"\Images\Dummy. jpg"

For Each info As WIA.DeviceInfo In manager.DeviceI nfos
'Connect w/o dialog
If info.DeviceID =
"{6BDD1FC6-810F-11D0-BEC7-08002BE2092F}\0 000" Then
mydevice = info.Connect
End If
Next

If IsNothing(mydev ice) Then
mydevice =
mydialog.ShowSe lectDevice(WIA. WiaDeviceType.V ideoDeviceType, False,
True)
End If

myItem = mydevice.Execut eCommand(strcmd TakePicture)

myImage = CType(myItem.Tr ansfer(strImage format), WIA.ImageFile)

'Need to covert to image here instead of SaveFile
myImage.SaveFil e(strFilePath)

[Ken Tucker [MVP]]

Hi,

Maybe this will help

http://msdn.microsoft.com/coding4fun...e/default.aspx

Ken
--------------
"Jeremy" <sl********@hot mail.com> wrote in message
news:11******** *************@g 44g2000cwa.goog legroups.com...

I am creating an imaging service using WIA (Windows Imaging
Acquisition).

The problem is that I cannot convert a WIA.ImageFile to a
System.Drawing. Image to put a timestamp on the image without first
saving the file using the wia.imagefile.s avefile then loading it again
using System.Drawing. Image.FromFile. This seems pretty ineffecient. I
have tried coverting it using ctype, but I get an invalid cast
exception. Is anyone aware of how to accomplish this without saving and
reloading the file? I appreciate your time...

Thanks,
Jeremy

Dim mydevice As WIA.Device
Dim manager As New WIA.DeviceManag erClass
Dim mydialog As New WIA.CommonDialo gClass
Dim strcmdTakePictu re As String =
WIA.CommandID.w iaCommandTakePi cture
Dim strImageformat As String = WIA.FormatID.wi aFormatJPEG
Dim myItem As WIA.Item
Dim myImage As WIA.ImageFile
Dim strFilePath As String = Application.Sta rtupPath &
"\Images\Dummy. jpg"

For Each info As WIA.DeviceInfo In manager.DeviceI nfos
'Connect w/o dialog
If info.DeviceID =
"{6BDD1FC6-810F-11D0-BEC7-08002BE2092F}\0 000" Then
mydevice = info.Connect
End If
Next

If IsNothing(mydev ice) Then
mydevice =
mydialog.ShowSe lectDevice(WIA. WiaDeviceType.V ideoDeviceType, False,
True)
End If

myItem = mydevice.Execut eCommand(strcmd TakePicture)

myImage = CType(myItem.Tr ansfer(strImage format), WIA.ImageFile)

'Need to covert to image here instead of SaveFile
myImage.SaveFil e(strFilePath)

[Jeremy]

Thanks for your reply Ken. Actually this is one resource I used to
learn WIA. In the example however, he simply saves the file. I want to
convert it to a System.Drawing. Image first so I can alter the image
(add a time stamp). You can not programatically alter a wia.imagefile.
I was hoping someone could assist me in coverting a wia.imagefile to a
drawing.image without saving and reloading the file. Dim bmap as Image
= ctype(MyWiaImag e,Image) causes an invalid cast exception.