WebView File Picker

[مصطفی حقیقی 176]

سلام

فک کنم از اسمش مشخصه دیگه

خیلی جاها به کارتون میاد

میدونین که وقت امتحاناست

پس به خاطر اینکه وقت درسم رو گذاشتم واسه نوشتن این واسم دعا کنید که قبول شم *ناز2*

Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
End Sub

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.

   Private WebView1 As WebView
   Dim s As WebViewSettings
   Dim fp As filepicker

End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("ehem")
   s.setAllowFileAccess(WebView1,True)
   s.setJavaScriptCanOpenWindowsAutomatically(WebView1,True)
   s.setLoadWithOverviewMode(WebView1,True)
   s.setPluginState(WebView1,"ON")

   WebView1.LoadUrl("http://www.androidexample.com/media/webview/details.html")
   fp.startWebView(WebView1)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

download listener هم بهش اضافه کردم

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

Dim s As DownLoadListener
s.setOnDownlaodListener(WebView1,"web1")
Sub web1_onDownloadStart (Url As String, userAgent As String, contentDisposition As String, mimetype As String, contentLength As Long)
   Log(Url)
End Sub

می تونین از تو sub ببرین تو یه activity دیگه برای دانلود

WebViewFilePicker v.1.1.zip

[milad19 113]

داداش ان شاءالله در تمام زندگیت موفق باشی*قلب*

فقط نمیدنم چرا این کد ارور میده (ارور مال کتابخانه)

Dim fp As filepicker

[مصطفی حقیقی 176]

اون فایل زیپ رو دانلود کن بریز تو پوشه کتابخونه های b4a درست میشه داداش

[milad19 113]

ممنون داداش اما این کار رو کرده بودم و نمیشه

یه مشکل دیگه با این وب ویو دارم ممنون میشم راهنمایی کنید اجازی ی دانلود نمیده یعنی مثلا یه لینک هست که وقتی روش کلیک میشه در حالت عادی باید شروع به دانلود کنه اما در وب ویو این کار انجام نمیشه.

[milad19 113]

داداش کد اینطور نیست؟

Dim fp As WebViewfilepicker  

البته اینم امتحان کردم ولی جواب مورد نظر به دست نیومد

[مصطفی حقیقی 176]

حواسم نبود shortname رو عوض کرده بودم *خنده*

dim s WebViewFilePicker

complete action using استفاده کن داداش

فک کنم حل بشه

http://answercenter.ir/thread781.html

اگه نشد بگو راه دیگه ای پیدا کنم

[milad19 113]

نشد متاسفانه داداش

هیچ کدوم نشد نه لینک نه <code><code>filepicker</code></code>

[jeqele 563]

داداش خودت این کد رو امتحان کن واسه من که مکل داشت امتحان کردم.

[مصطفی حقیقی 176]

این نمونه همین کتابخونه

گشتم واسه دانلود لینک از webView باید یه کتابخونه دیگه بنویسم

فعلا وقت ندارم داداش

وقت کردم اینم می نویسم

ttt.zip

[milad19 113]

بازم یه دنیا ممنون از اینکه وقت گذاشتی داداش

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

[مصطفی حقیقی 176]

مشکلت حل نشد داداش؟؟

رو emulator تست می کنی؟

رو گوشی تست کن

رو emulator چون شما هیچ کدوم از file manager ها رو نداری هیچ دیالوگی بهت نشون داده نمیشه

رو گوشی تست کن داداش

[مصطفی حقیقی 176]

downloadlistener هم اضافه شد

[milad19 113]

نه داداش با تلفن امتحان میکنم

[مصطفی حقیقی 176]

چه اتفاقی میوفته؟

ارور میده؟

هیچ اتفاقی نمی افته؟

چون من خیلی خوب جواب می گیرم

[milad19 113]

هیچ اتفاقی نمی افته

[مصطفی حقیقی 176]

مگه میشه چنین چیزی؟ *لال*

واسه من جواب بده اما واسه شما نه؟*لال*

از سورس کدی هم که گذاشتم استفاده کردی داداش؟*لال*

خیلی واسم عجیبه

اگه skype داری بیا صحبت کنیم

[milad19 113]

بله دقیقا همین کدهایی که دادید استفاده کردم

نمونه برنامه رو هم براتون ارسال کردم

شرمنده اسکایپ ندارم

[Mask 14]

سلام.

اول تشکر کنم بابت زحمتی که کشیدید.

میشه راهنمایی کنید از این لایبرری چطور باید استفاده کرد؟

با اینکه لایبرری رو در پوشه مربوطه ریختم و در برنامه هم تیک زدم، اما به Dim s As WebViewSettings و خیلی چیزهای دیگه گیر کرده.

باید چیکار کرد؟

[مصطفی حقیقی 176]

اینم کتبخونه تست شده

 

حتما تو گوشی تست کنید

یا اگه رو Emulator میخواین تست کنید روش یکی از فایل manger ها رو نصب کنید

 

کد

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
Dim ss As WebViewFilePicker
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	
	Private WebView1 As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("ss")
	
	WebView1.LoadUrl("http://qfs.mobi")
	ss.startWebView(WebView1)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

lib.zip

[Mask 14]

ممنون مهندس. اما بازم رو دکمه Choose File که کلیک میکنم هیچ اتفاقی نمیوفته.

اگه ممکنه فایل APK که تولید کردید رو برام بفرستید تا رو گوشیم تست کنم.