LiveCode Forums.

Code: Select all

global gScript, gPath

--  Android debug handlers  --  this part in stack script!
--  The basics are by Jacqueline Landman Gay | jacque at hyperactivesw dot com
--  Source: http://www.hyperactivesw.com/resources_mobiledebugging.html
--  axwald @ forums.livecode.com

--  global gScript must be declared!

on log pText
   answer pText
end log

on errorDialog pErr
   log "   ===   ERROR:   ===   " & CR & pErr
end errorDialog

--  Additions to android debug by axwald:
--  needed: button "do_btn" & its script!

on hCl  --  clears the cmd hist
   put empty into gScript
end hCl

on h  --  a basic command history (h for "h"istory ...)
   if the environment = "mobile" then
      mobilepick gScript,1,"cancel"                   --  show the cmd hist for selection
      if the result is not 0 then
         send "DoIt" && the result to btn "Do_btn"  --  and send the selection to the button
      end if
   else
      answer information "This requires a mobile device ..."  --  too lazy to implent for desktop ...
   end if
end h

on DF what
   --  shows information for 'the specialFolderPath's;
   --  sets the DefaultFolder (hence the name ...) to a certain location,
   --  and displays path, files and folders for this.
   --  Comes handy to find your files ;-)
   --  Using the form 'DF "/path/to/anywahere"' you can explore the whole filesystem
   --  (Be sure to quote your paths then, and to omit the trailing slash!)
   if (what = "?") OR (what = "man") then                           --  Help
      answer "Check those folders contents:" & CR & CR & \
            "C = Cache; D = Documents;" & CR & \
            "E = Engine; ( F = Fonts; S = Sounds; )" & CR & \
            "H = Home; R = Resources; T = Temporary" & CR & \
            quote & "/mnt" & quote & " = /mnt/ => any path (quote path, omit ending slash!)." & CR & CR & \
            "(Type " & quote & "DF " & quote & " & the part before '=' !)" titled " man DF" 
      exit DF
      
   else if what = "C" then                                          --  switch modes
      put "Cache" into myVar
      set the defaultfolder to specialfolderPath("cache") & slash      
   else if what = "D" then
      put "Documents" into myVar
      set the defaultfolder to specialfolderPath("documents") & slash
   else if what = "E" then
      put "Engine" into myVar
      set the defaultfolder to specialfolderPath("engine") & slash
   else if what = "F" then
      put "Fonts" into myVar
      set the defaultfolder to specialfolderPath("engine") & "/fonts/"
   else if what = "S" then
      put "Sounds" into myVar
      set the defaultfolder to specialfolderPath("engine") & "/sounds/"
   else if what = "H" then
      put "Home" into myVar
      set the defaultfolder to specialfolderPath("home") & slash
   else if what = "R" then
      put "Resources" into myVar
      set the defaultfolder to specialfolderPath("resources") & slash
   else if what = "T" then
      put "Temporary" into myVar
      set the defaultfolder to specialfolderPath("temporary") & slash
   else
      put "Custom Path" into myVar
      set the defaultfolder to what & slash
   end if
   
   put the result into myRes
   if myRes is not empty then                                         --  check for errors
      put  "_CAUTION: the Result:" & CR & myRes & CR & CR into myRes
   end if
   
   put myRes & "_Mode: " & what & " | " & myVar & CR & \              --  build result data
   "_Path resulting: " & CR & the defaultfolder & CR & CR & \
         "_Files: ==========" & CR & the files & CR & CR & \
         "_Folders: ==========" & CR & the folders & CR & CR & "_DF is resetted!" into myMsg
   if not the environment = "mobile" then
      set the clipboarddata["text"] to myMsg                          --  choose output mode
   end if
   set the defaultfolder to gPath
   log myMsg                                                          --  and use it
end DF

Code: Select all

global gScript

--  android debugging handlers - this lives in your debugger button!
on mouseUp
  DoIt
end mouseUp

on DoIt what
   if what is not empty then                       --  it's called by "on h"/ stack script
      put line what of gScript into myPrompt
   else                                            --  user found this button
      put "h" into myPrompt
   end if
   ask "What shall I do?" & CR & "- 'log [param]' = 'answer/ put';   Expl: 'log the screenrect';" & CR & \
         "- 'DF ?' = help for the 'specialFolder checker';" & CR & \
         "On mobile only:" & CR & \
         "- 'h' = use a basic command history;" & CR & \
         "- 'hCl' = clears this cmd hist." with myPrompt titled "Debug helper"
   if it is not empty then                         --  we got the new command
      if gScript is empty then
         put it into gScript
      else                                         --  store it
         put CR & it after gScript
         sort lines of gScript
         gSClear
      end if
      try
         do it                                        --  and execute it
      catch theError
         answer "Couldn't execute this command:" & CR & "     do " & it & CR & \
         "Error received:" & CR & theError titled "This didn't work:" 
      end try
   end if
end DoIt

on gSClear                    --  removes duplicate lines in the cmd hist
   put gScript into MyVar
   repeat with i = 1 to the number of lines of myVar
      if line i+1 of myVar = line i of myVar then
         delete line i+1 of myVar
      end if
      if line i of myVar is empty then exit repeat
   end repeat
   put myVar into gScript
end gSClear

Code: Select all

on openCard
   ---------check db existence for order history, password and user details---------
   put specialFolderPath("documents") & "/mobile.app" into tDBexist
   if there is not a file tDBexist then
      dbCreate
      wait 50 milliseconds --give it a bit of time, i noticed when going to fast it doesn't work ok
      -----1e standaard insert------------
      send"insfirstrowdb" to me in 1 tick
      -----------------------
      wait 50 milliseconds
      readDB  
   else
      readDB
   end if

Code: Select all

on dbCreate
   local tSQL, tFields
   put specialFolderPath("documents") & "/mobile.app" into gCustHistDBPath
   put revOpenDatabase("sqlite", gCustHistDBPath, , , , ) into gLocalDbID
   --answer gLocalDbID titled"globaldbid"
   # create table HISTORIE
   put "CREATE TABLE history (id INTEGER PRIMARY KEY AUTOINCREMENT, datumtijd TEXT, shopname TEXT, categorie TEXT, product TEXT, prijs DECIMAL(5,2), ophbez TEXT)" into tSQL 
   revExecuteSQL gLocalDbID, tSQL
   --answer the result titled"setting table"
   ------------------------
   # create password table 
   put "CREATE TABLE pw (id INTEGER PRIMARY KEY, startpass TEXT)" into tSQL
   revExecuteSQL gLocalDbID, tSQL
   ----------------------------
   # create customerdetails table
   put "CREATE TABLE cust (id INTEGER PRIMARY KEY, naam TEXT, telnr TEXT, email TEXT, straat TEXT, huisnr TEXT, toev TEXT, postcode TEXT, plaats TEXT, longtitude DECIMAL(10,7), latitude DECIMAL(10,7))" into tSQL 
   revExecuteSQL gLocalDbID, tSQL
   ----------------------
end dbCreate

Code: Select all

on insfirstrowdb
   --answer "insert first row"
   local tSQL, tFields,tD
   --first row history
   put 1 into tD
   put "id" into tFields
   put "INSERT INTO history (" & tFields & ") VALUES (:1)" into tSQL
   revExecuteSQL gLocalDbID, tSQL, "tD"
   --answer the result titled"insert hist"
   -------------------------
   ---first pw
   put 1 into tD
   put "id" into tFields
   put "INSERT INTO pw (" & tFields & ") VALUES (:1)" into tSQL
   revExecuteSQL gLocalDbID, tSQL, "tD"
   --answer the result titled"insert pw"
   -----------
   -----first cust----
   put 1 into tD
   put "id" into tFields
   put "INSERT INTO cust (" & tFields & ") VALUES (:1)" into tSQL
   revExecuteSQL gLocalDbID, tSQL, "tD"
   --answer the result titled"insert cust"
   --------------------
end insfirstrowdb

Code: Select all

on readDB
   local tSQL,tData
   ----documents is ok for Android and iOs-----------
   put specialFolderPath("documents") & "/mobile.app" into gCustHistDBPath
   put revOpenDatabase("sqlite", gCustHistDBPath, , , , ) into gLocalDbID
   put "SELECT startpass FROM pw WHERE id=1" into tSQL
   put revDataFromQuery(tab,return,gLocalDbID,tSQL) into tData --do something with the data
   ----delete char 1 of tData ---b weghalen die ervoor is gezet bij wegschrijven --this is for data(encrypted)
  -- put base64decode(tData) into gPwRecords
end readDB

Code: Select all

on connectToDB
   local tDatabasePath, tDatabaseID, tSourceFile
   
   -- Check if we are in the IDE:
   if the environment = "development" then
      put specialFolderPath("resources") & "/membershipdatabase.db" into tDatabasePath
      -- Folder where the stack is in, we may write here in the IDE!
   else
      -- Runtime:
      ## put specialFolderPath("documents") & "/membershipdatabase.db" into -> tDatabaseID
      put specialFolderPath("documents") & "/membershipdatabase.db" into tDatabasePath
   end if
   
   -- Now check if the app has started the very first time but only as the final
   -- runtime because of our check above!
   if there is NOT a file tDatabasePath then
      put specialFolderPath("resources") & "/membershipdatabase.db" into tSourceFile
      put URL("binfile:" & tSourceFile) into URL("binfile:" & tDatabasePath)
   end if
   
   -- Green Light, File Present, Ready to Connect
   put revOpenDatabase("sqlite", tDatabasePath,,,,) into tDatabaseID
   if tDatabaseID is "" then
      answer warning "There was a problem accessing the Membership Database!"
   end if
   // put "membershipdatabase.db" into tDatabasePath
   setDatabaseID tDatabaseID
end connectToDB

Code: Select all

global gConnID, gLocalDbID

on openCard
   ---------check db existence for order history, password and user details---------
   put specialFolderPath("documents") & "/membershipdatabase.db" into tDBexist
   if there is not a file tDBexist then
      dbCreate
      wait 50 milliseconds --give it a bit of time, i noticed when going to fast it doesn't work ok
      -----1e standaard insert------------
      send"insfirstrowdb" to me in 1 tick
      -----------------------
      wait 50 milliseconds
      readDB  
   else
      readDB
   end if
end openCard


on dbCreate
   local tSQL, tFields
   put specialFolderPath("documents") & "/membershipdatabase.db" into gCustHistDBPath
   put revOpenDatabase("sqlite", gCustHistDBPath, , , , ) into gLocalDbID
   --answer gLocalDbID titled"globaldbid"
   # create table HISTORIE
   put "CREATE TABLE history (id INTEGER PRIMARY KEY AUTOINCREMENT, membertype TEXT, fee DECIMAL(2))" into tSQL 
   revExecuteSQL gLocalDbID, tSQL
   --answer the result titled"setting table"
   ------------------------
   # create password table 
   put "CREATE TABLE pw (id INTEGER PRIMARY KEY, startpass TEXT)" into tSQL
   revExecuteSQL gLocalDbID, tSQL
   ----------------------------
   # create customerdetails table
   put "CREATE TABLE members (member_id INTEGER PRIMARY KEY, fname TEXT, lname TEXT, addr1 TEXT, addr2 TEXT, addr3 TEXT, addr4 TEXT, postcode TEXT, joindate TEXT, fee DECIMAL(2), paid TEXT, membership TEXT, phone TEXT, mobile TEXT, email TEXT)" into tSQL 
   revExecuteSQL gLocalDbID, tSQL
   ----------------------
   put gLocalDbID into gConnID
end dbCreate

on insfirstrowdb
   --answer "insert first row"
   local tSQL, tFields, tD
   --first row history
   put 1 into tD
   put "id" into tFields
   put "INSERT INTO history (" & tFields & ") VALUES (:1)" into tSQL
   revExecuteSQL gLocalDbID, tSQL, "tD"
   answer the result titled "insert hist"
   
   ---first pw
   put 1 into tD
   put "id" into tFields
   put "INSERT INTO pw (" & tFields & ") VALUES (:1)" into tSQL
   revExecuteSQL gLocalDbID, tSQL, "tD"
   answer the result titled "insert pw"
   
   -----first cust----
   put 1 into tD
   put "member_id" into tFields
   put "INSERT INTO members (" & tFields & ") VALUES (:1)" into tSQL
   revExecuteSQL gLocalDbID, tSQL, "tD"
   answer the result titled "insert cust"
   --------------------
   put gLocalDbID into gConnID
end insfirstrowdb

on readDB
   local tSQL,tData
   ----documents is ok for Android and iOs-----------
   put specialFolderPath("documents") & "/membershipdatabase.db" into gCustHistDBPath
   put revOpenDatabase("sqlite", gCustHistDBPath, , , , ) into gLocalDbID
   put "SELECT startpass FROM pw WHERE id=1" into tSQL
   put revDataFromQuery(tab,return,gLocalDbID,tSQL) into tData --do something with the data
   
   show group "dgMembersList" on card "Members"
   set the dgText of group "dgMembersList" on card "Members" to tData
   put gLocalDbID into gConnID
end readDB

Code: Select all

if the platform is "android" then
      mobileToast the Result, "long" --or short
      end if

Code: Select all

      if not (there is a file (specialFolderPath("documents") & slash & myDBName)) then

Code: Select all

      set the defaultfolder to specialfolderPath("documents") & slash
      if not (myDBName is in the files) then