رفتن به مطلب
  • 0

اشکال در کد


Javad25564

سوال

5 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

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

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 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"))

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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


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

 

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

 

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

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

برای دانلود و دخیره عکس به روش زیر عمل کنید. با استفاده از کتابخانه 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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...