رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.
جستجو در
  • تنظیمات بیشتر ...
نمایش نتایجی که شامل ...
جستجو در ...

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


سوال

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

پست های پیشنهاد شده

  • 0
محمدرضا شاهپیری    3,396

معاون انجمن

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

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

 

  • پسندیدن 2

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
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"))

 

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
محمدرضا شاهپیری    3,396

معاون انجمن

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

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


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

 

 

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
Javad25564    10

کاربر رو به رشد

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

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

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

 

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

 

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
محمدرضا شاهپیری    3,396

معاون انجمن

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

 

  • تشکر 1

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

×