German ContentChooser-Pfad- und Dateiname

CC.Show("image/*", "Choose image")

Sub CC_Result(Success As Boolean, Dir As String, FileName As String)
  If Success Then
    picBild.Bitmap = LoadBitmap(Dir, Filename)
    [...]

'Activity module
Sub Process_Globals

   Dim SQL1 As SQL

End Sub

Sub Globals

   Dim CC As ContentChooser

   Dim Button1 As Button
   Dim Button2 As Button
   Dim ImageView1 As ImageView

End Sub

Sub Activity_Create(FirstTime As Boolean)

   If FirstTime Then

      SQL1.Initialize(File.DirInternal, "test.db", True)
      SQL1.ExecNonQuery("DROP TABLE IF EXISTS TestTable")
      SQL1.ExecNonQuery("Create Table TestTable (ID INTEGER, Dir TEXT, FileName TEXT)")
      SQL1.ExecNonQuery("Insert Into  TestTable (ID) Values (1)")

   End If

   CC.Initialize("CC") ' ContentChooser

   Button1.Initialize("Button1")
   Button1.Text = "Button1"
   Activity.AddView(Button1, 0dip, 0dip, 100%x, 60dip)

   Button2.Initialize("Button2")
   Button2.Text = "Button2"
   Activity.AddView(Button2, 0dip, 70dip, 100%x, 60dip)

   ImageView1.Initialize("ImageView1")
   Activity.AddView(ImageView1, 0dip, 150dip, 100%x, 200dip)

End Sub

Sub Button1_Click
   
   CC.Show("image/*", "Choose image")
   
End Sub

Sub CC_Result(Success As Boolean, Dir As String, FileName As String)

   If Success Then
      
      ImageView1.Bitmap = LoadBitmap(Dir, Filename)
      
      Log("CC_Result Dir: '" & Dir & "'")
      Log("CC_Result Filename: '" & Filename & "'")
      
      SQL1.ExecNonQuery("Update TestTable Set Dir = '" & Dir & "', FileName = '" & FileName & "' Where ID = 1")

   End If
   
End Sub

Sub Button2_Click

   Dim Cursor1 As Cursor
   
   Cursor1 = SQL1.ExecQuery("Select Dir, FileName From TestTable Where ID = 1")
   
   Cursor1.Position = 0
   
   Dim Dir As String
   Dim FileName As String
   
   Dir = Cursor1.GetString("Dir")
   FileName = Cursor1.GetString("FileName")
   
   Cursor1.Close
   
   Log("Button2_Click Dir: '" & Dir & "'")
   Log("Button2_Click Filename: '" & Filename & "'")

   ImageView1.Bitmap = LoadBitmap(Dir, FileName)
   
End Sub