Sub Activity_Create(FirstTime As Boolean)
Dim server As ServerSocket 'Add a reference to the network library
server.Initialize(0, "")
If server.GetMyIP = "127.0.0.1" Then 'this is the local host address
ToastMessageShow( "This Device is not connected to the internet. Please Connect the Device to the internet before using this app !!!!!",True)
Return
End If
' create directory--------------------------------------------------
If File.ExternalWritable Then
File.MakeDir(File.DirRootExternal, "vidnews")
filedire = File.DirRootExternal & "/vidnews"
Else
File.MakeDir(File.DirInternal, "vidnews")
filedire = File.DirInternal & "/vidnews"
End If
' If File.ExternalWritable Then
' If File.IsDirectory(File.DirRootExternal,"vidnews/") = False Then
' File.MakeDir(File.DirRootExternal,"vidnews/")
' End If
' filedire=File.DirRootExternal & "/vidnews"
'
' Else
' If File.IsDirectory(File.DirInternal,"vidnews/")= False Then
' File.MakeDir(File.DirInternal,"vidnews/")
' End If
' filedire="File.DirInternal"
' End If
'-------------------------------------------------------------------
If FirstTime Then
gps1.Initialize("GPS")
Httpclient1.Initialize("HttpClient1")
Parser.Initialize
hc.Initialize("hc")
mfor.Initialize("mfor")
End If
timer3.Initialize("timer3",900000)
timerad.Initialize("timerad",30000)
timerad.Enabled=True
gps1.Start(50000,0)
Activity.AddMenuItem2("Back", "mnuBack",LoadBitmap(File.DirAssets,"back.png"))
Activity.AddMenuItem2("Forward", "mnuForward",LoadBitmap(File.DirAssets,"forward.png"))
End sub
--------------------------------------------
Sub ButtonTOpage_Click
Dim j As Int
Dim txt1,txt2 As String
masterpanel.Visible=False
childpanel.Visible=True
filelistview.Clear
filelist=File.ListFiles(filedire)
For j= 0 To filelist.Size-1
txt1=filelist.Get(j)
DateTime.DateFormat="dd-MMM-yyyy hh:mm:ss"
txt2="Saved on :" & DateTime.Date(File.LastModified(filedire,filelist.Get(j)))
filelistview.AddTwoLines(txt1,txt2)
Next
adview1.LoadAd
'adLeadbolt.loadLeadboltAds("746835265", adLeadbolt.ADS_APP)
If filelist.Size= 0 Then ToastMessageShow("You have not saved any pages !",True)
End Sub