farhad85
یک شنبه 08 دی 1392, 22:59 عصر
سلام خدمت اساتید زحمتکش ودوستان عزیز
من با کد ربر تصوبرمو ار طریق اسکن وارد پیگچر باکس می کنم ولی همین که به پیکچر باکس ورود میکنه در این مسیرپوشه bin پزوزم ذخیره می شه! خوب آیا ین برناممو سنگین میکنه؟ چطور میشه مسیرو عوش کتم؟
دوم اینکه با چه کدی همین عکسی که از طریق اسکن وارد پیگچر باکسم شده رو تو جدولم (sql2008)ذخیره کتم. ممنون میشم اگه کمکم کنید.
سوم اینکه این کد ها رو برای وین اکس پی چطور باید عوض کرد ممکنه پروژه روی ویندوز اکس پی نصب بشه
Dim d As New CommonDialog
Dim p As New ImageFile
Dim img As String = Application.StartupPath & " temp.jpg"
Try
p = d.ShowAcquireImage(WiaDeviceType.ScannerDeviceType , WiaImageIntent.ColorIntent, WiaImageBias.MaximizeQuality, , False, False, False)
If p IsNot Nothing Then
If IO.File.Exists(img) = True Then
IO.File.Delete(img)
End If
p.SaveFile(img)
PictureBox1.Load(img)
End If
Catch ex As Exception
MsgBox("بروز خطا در اسکن")
End Try
من با کد ربر تصوبرمو ار طریق اسکن وارد پیگچر باکس می کنم ولی همین که به پیکچر باکس ورود میکنه در این مسیرپوشه bin پزوزم ذخیره می شه! خوب آیا ین برناممو سنگین میکنه؟ چطور میشه مسیرو عوش کتم؟
دوم اینکه با چه کدی همین عکسی که از طریق اسکن وارد پیگچر باکسم شده رو تو جدولم (sql2008)ذخیره کتم. ممنون میشم اگه کمکم کنید.
سوم اینکه این کد ها رو برای وین اکس پی چطور باید عوض کرد ممکنه پروژه روی ویندوز اکس پی نصب بشه
Dim d As New CommonDialog
Dim p As New ImageFile
Dim img As String = Application.StartupPath & " temp.jpg"
Try
p = d.ShowAcquireImage(WiaDeviceType.ScannerDeviceType , WiaImageIntent.ColorIntent, WiaImageBias.MaximizeQuality, , False, False, False)
If p IsNot Nothing Then
If IO.File.Exists(img) = True Then
IO.File.Delete(img)
End If
p.SaveFile(img)
PictureBox1.Load(img)
End If
Catch ex As Exception
MsgBox("بروز خطا در اسکن")
End Try