View Full Version : کار با scanner
A_1397
پنج شنبه 29 دی 1401, 15:22 عصر
دوستان کد کار با دستگاه اسکنر میخام که اسکن کنه و فایل رو در مسیری که کاربر میده ذخیره کنه. متاسفانه چون خودم اسکنر ندارم نمیتونم کدهارو اجرا بگیرم . لطفا از صحت و اجرایی بودن کدها مطمین باشین. مرسی مرسی :قلب:
A_1397
جمعه 30 دی 1401, 10:35 صبح
الوووو کسی چیزی در این رابطه نمیدونمه آیا؟؟!! :متفکر::متفکر:
پرستو پارسایی
شنبه 01 بهمن 1401, 10:40 صبح
شاید این پروژه کوچک ضمیمه شده بهتون کمک کنه
یا اینکه این رفرنس 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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.