اشکال در کد

[Javad25564 10]

سلام.بچها تو عکس زیر ببینید اون قسمت که مشخص کردم ایا مشکل داره از نظر کد؟؟؟

[محمدرضا شاهپیری 5,583]

بله عزیز خط 77 و 88 مشکل دارن. اسلش باید تو گیومه باشه نه خارج از گیومه. به صورت زیر. البته لطف کنید و کدها رو به صورت کد وارد کنید نه اسکرین 

"myapp/"&co1.getString.....

 

[Javad25564 10]

در 4 ساعت قبل، محمدرضا شاهپیری گفته است :

بله عزیز خط 77 و 88 مشکل دارن. اسلش باید تو گیومه باشه نه خارج از گیومه. به صورت زیر. البته لطف کنید و کدها رو به صورت کد وارد کنید نه اسکرین 

"myapp/"&co1.getString.....

 

ممنون از راهنماییتون.میشه بگید چرا به این کد هم گیر میده؟

o1 = File.OpenOutput(File.DirRootExternal, "myapp/"& cur2.GetString("esm"),False)

 

	If job.JobName="img" And job.Success Then
		Main.data.ExecNonQuery2("update  asmeaks set  esm=?", Array As String (s))
		Dim cur2 As Cursor
		cur2=Main.data.ExecQuery ("select * from asmeaks")
		cur2.Position =0
		Dim i1 As InputStream
		Dim o1 As OutputStream
		i1 = job.GetInputStream
		o1 = File.OpenOutput(File.DirRootExternal, "myapp/"& cur2.GetString("esm"),False)
'		
		File.Copy2(i1,o1)
		i1.Close
		o1.Close
		t_aks.Enabled=True
		img_tablygh.Bitmap=LoadBitmap(File.DirRootExternal , "myapp/" & cur2.GetString("esm"))

 

[محمدرضا شاهپیری 5,583]

در 58 دقیقه قبل، Javad25564 گفته است :

ممنون از راهنماییتون.میشه بگید چرا به این کد هم گیر میده؟

o1 = File.OpenOutput(File.DirRootExternal, "myapp/"& cur2.GetString("esm"),False)

 

 

مشکلی نداره کدتون. درسته. چه خطایی میگیره؟

[Javad25564 10]

در 1 ساعت قبل، محمدرضا شاهپیری گفته است :

مشکلی نداره کدتون. درسته. چه خطایی میگیره؟

وقتی برنامه را برا اولین بار بازش میکنی میگه فایلی با نام مورد نظر وجود ندارد.

 

در صورتی که من ادرس دادم  لود میکنه عکس را و بعدش با نامی که بهش دادم کپی میکنه تو پوشه.

 

اگه متوجه نشدید میشه یه راهنمایی بکنید .من چطوری عکس را دانلود کنم و ذخیره کنم در پوشه دلخواه.با http

[محمدرضا شاهپیری 5,583]

برای دانلود و دخیره عکس به روش زیر عمل کنید. با استفاده از کتابخانه okhttputils2

Private Sub getImage
	Dim okhttrequest As OkHttpRequest
	okhttrequest.InitializeGet("http://content.sportslogos.net/news/2018/07/LA-Lakers-Logo-200x200.png")
	Dim okhtclient As OkHttpClient
	okhtclient.Initialize("okhtclient")
	okhtclient.Execute(okhttrequest,21)
End Sub



Sub okhtclient_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
	Response.GetAsynchronously("ImageResponse", _
		File.OpenOutput(File.DirInternalCache, "image.jpg", False), True, TaskId)
End Sub

Sub ImageResponse_StreamFinish (Success As Boolean, TaskId As Int)
	If Success = False Then
		Msgbox(LastException.Message, "Error")
		Return
	End If
	ImageView1.Bitmap = LoadBitmap(File.DirInternalCache, "image.jpg")
End Sub