کار با scanner

[A_1397]

دوستان کد کار با دستگاه اسکنر میخام که اسکن کنه و فایل رو در مسیری که کاربر میده ذخیره کنه. متاسفانه چون خودم اسکنر ندارم نمیتونم کدهارو اجرا بگیرم . لطفا از صحت و اجرایی بودن کدها مطمین باشین. مرسی مرسی :قلب:

[A_1397]

الوووو کسی چیزی در این رابطه نمیدونمه آیا؟؟!! :متفکر::متفکر:

[پرستو پارسایی]

شاید این پروژه کوچک ضمیمه شده بهتون کمک کنه
یا اینکه این رفرنس Windows Image Acquisition رو به پروژه اضافه کنید

حالا می‌توانید از کد زیر برای اسکن کردن تصویر با استفاده از اسکنر استفاده کنید

Dim wiaDialog As New WIA.CommonDialog()
Dim wiaDevice As WIA.Device = wiaDialog.ShowSelectDevice(WIA.WiaDeviceType.Scann erDeviceType, False, False)


If wiaDevice IsNot Nothing Then
Dim wiaItem = wiaDevice.Items(1)
Dim imageFile = wiaItem.Transfer(WIA.FormatID.wiaFormatJPEG)
Dim imageBytes = DirectCast(imageFile.FileData.BinaryData, Byte())
Dim imageStream = New MemoryStream(imageBytes)
PictureBox1.Image = Image.FromStream(imageStream)

End If