دوربین

[Mralihjz 0]

سلام من یه اپ دوربین ساختم که بشه باهاش عکس گرفت اما وقتی عکسو میگیرم ذخیره نمیکنه یعنی پیام میده که ذخیره شد اما وقتی به محل ذخیره میرم هیچی اونجا نیست در ضمن دسترسی ها لازم رو به برنامه دادم و از این کد استفاده کردم

 

Sub Camera1_PictureTaken (Data() As Byte)
   camera1.StartPreview
       Dim random As Int
   random= Rnd(0,99999)
   File.MakeDir(File.DirRootExternal,"Ph/pic")
   Dim out As OutputStream
   out = File.OpenOutput(File.DirRootExternal,"Ph/pic" & random & ".jpg", False)
   out.WriteBytes(Data, 0, Data.Length)
   out.Close
   ToastMessageShow("Image saved: " & File.Combine(File.DirRootExternal, ".jpg"), True)
   btnTakePicture.Enabled = True
End Sub

[Salar82 901]

در 2 ساعت قبل، Mralihjz گفته است :

سلام من یه اپ دوربین ساختم که بشه باهاش عکس گرفت اما وقتی عکسو میگیرم ذخیره نمیکنه یعنی پیام میده که ذخیره شد اما وقتی به محل ذخیره میرم هیچی اونجا نیست در ضمن دسترسی ها لازم رو به برنامه دادم و از این کد استفاده کردم

 

Sub Camera1_PictureTaken (Data() As Byte)
   camera1.StartPreview
       Dim random As Int
   random= Rnd(0,99999)
   File.MakeDir(File.DirRootExternal,"Ph/pic")
   Dim out As OutputStream
   out = File.OpenOutput(File.DirRootExternal,"Ph/pic" & random & ".jpg", False)
   out.WriteBytes(Data, 0, Data.Length)
   out.Close
   ToastMessageShow("Image saved: " & File.Combine(File.DirRootExternal, ".jpg"), True)
   btnTakePicture.Enabled = True
End Sub

سلام

تو خط زیر یه / کم گذاشتین.

out = File.OpenOutput(File.DirRootExternal,"Ph/pic/" & random & ".jpg", False)

 

[Mralihjz 0]

در 15 ساعت قبل، Salar82 گفته است :

سلام

تو خط زیر یه / کم گذاشتین.

out = File.OpenOutput(File.DirRootExternal,"Ph/pic/" & random & ".jpg", False)

 

این کارو انجام دادم اما بازم نشد