Hallo zusammen,
Erel schrieb bei der Veröffentlichung der xCustomListView, dass diese bis zu einer größeren Menge an Datensätzen noch sehr schnell im Aufbau sein sollte.
Ich bin jetzt von einer "normalen" ListView, die ca. 300 Datensätze aus einer SQLite-Datenbank in weniger als 1 Sekunde aufgebaut hat, auf eine xCustomListView umgestiegen.
Diese benötigt jetzt aber für den Aufbau der gleichen Datensätze ca. 34 Sekunden (das ist für die App aber entscheiden zu lange!) !!!
Es geht dabei um die Darstellung folgender Informationen aus der SQLite:
6 Textfelder und 2 Verlinkungen zu Bildern (diese liegen in einem internen Ordner vor).
Hier ist der Code:
Ich habe eine kleine Beispiel-App als zip-Datei zum Testen gepackt, aber leider kann ich diese nicht uploaden, da sie zu groß ist (743 kB). --> The uploaded file is too large. Gerne sende ich die Datei per Mail zu.
Kann mir jemand sagen woran das liegt, das es soooo lange dauert?
Erel schrieb bei der Veröffentlichung der xCustomListView, dass diese bis zu einer größeren Menge an Datensätzen noch sehr schnell im Aufbau sein sollte.
Ich bin jetzt von einer "normalen" ListView, die ca. 300 Datensätze aus einer SQLite-Datenbank in weniger als 1 Sekunde aufgebaut hat, auf eine xCustomListView umgestiegen.
Diese benötigt jetzt aber für den Aufbau der gleichen Datensätze ca. 34 Sekunden (das ist für die App aber entscheiden zu lange!) !!!
Es geht dabei um die Darstellung folgender Informationen aus der SQLite:
6 Textfelder und 2 Verlinkungen zu Bildern (diese liegen in einem internen Ordner vor).
Hier ist der Code:
B4X:
#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
Dim SQL1 As SQL
Dim Cursor As Cursor
End Sub
Sub Globals
Private xCustomListView As CustomListView
Private Panel_003a_Label_Ueberschrift As Label '-- eine Initialisierung ist zwar unnötig, aber bei der Ausführung der App wird ein ERROR generiert --
Private Panel_003a_Label_001 As Label
Private Panel_003a_ImageView_014 As ImageView
Private Panel_003a_Label_002 As Label
Private Panel_003a_ImageView_009 As ImageView
Private Panel_003a_Label_014 As Label
Private Panel_003a_Label_Hinweis As Label
Private Panel_003a_Label_004 As Label
Private Panel_003a_Label_IDNR As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Log("Kopiere die Datenbank in File.DirRootExternal")
File.Copy(File.DirAssets, "SQLite_MUSTER.sl3", _
File.DirRootExternal, "SQLite_MUSTER.sl3")
Log("Datenbank in File.DirRootExternal kopiert!")
If FirstTime Then
SQL1.Initialize(File.DirRootExternal, "SQLite_MUSTER.sl3", True)
End If
If SQL1.IsInitialized = False Then
SQL1.Initialize(File.DirRootExternal, "SQLite_MUSTER.sl3", True)
End If
SQL1.Initialize(File.DirRootExternal, "SQLite_MUSTER.sl3", True)
Activity.LoadLayout("layout_003_datensaetze_zeigen")
xCustomListView.Clear
'-- Überschrift einfügen und View initialisieren --
Panel_003a_Label_Ueberschrift.Initialize("CreateListItem")
Panel_003a_Label_001.Initialize("CreateListItem") '-- eine Initialisierung ist zwar unnötig, aber bei der Ausführung der App wird ein ERROR generiert --
Panel_003a_Label_002.Initialize("CreateListItem")
Panel_003a_Label_014.Initialize("CreateListItem")
Panel_003a_Label_004.Initialize("CreateListItem")
Panel_003a_Label_IDNR.Initialize("CreateListItem")
Panel_003a_Label_Hinweis.Initialize("CreateListItem")
Panel_003a_ImageView_009.Initialize("CreateListItem")
Panel_003a_ImageView_014.Initialize("CreateListItem")
Cursor = SQL1.ExecQuery ("SELECT * FROM MUSTER_Tabelle")
Try
SQL1.BeginTransaction
For i = 0 To Cursor.RowCount - 1
Cursor.Position = i
'-- Zähler für die Auswahlliste generieren --
Dim Counter As String
Counter = i +1
'-- die xCustomListView aufbauen --
xCustomListView.Add(CreateListItem(Panel_003a_Label_Ueberschrift.Text, Activity.Width, 315dip), ""&Cursor.GetString("IDNR")&"")
'-- wenn keine Internet-Adresse vorhanden ist -- Feld007 --
If Cursor.GetString("Feld007") = "- keine Internet-Adresse -" Then
Panel_003a_Label_Ueberschrift.Text = " "&Counter&". Datensatz ist OHNE Internet-Zugang"
Panel_003a_Label_Ueberschrift.Color = Colors.Red
Else If Cursor.GetString("Feld007") = "" Then
Panel_003a_Label_Ueberschrift.Text = " "&Counter&". Datensatz ist OHNE Internet-Zugang"
Panel_003a_Label_Ueberschrift.Color = Colors.Red
Else
Panel_003a_Label_Ueberschrift.Text = " "&Counter&". Datensatz ist MIT Internet-Zugang"
Panel_003a_Label_Ueberschrift.Color = Colors.Blue
End If
'-- Daten_in_die_xCustomListView_einfuegen --
Daten_in_die_xCustomListView_einfuegen
Log("-----------------------------------------------------------------------------")
Log(""&Counter&". Datensatz gelistet")
Next
SQL1.TransactionSuccessful
Catch
Log(""&LastException.Message&"")
End Try
SQL1.EndTransaction
Cursor.Close
End Sub
Sub xCustomListView_ItemClick (Index As Int, Value As Object)
Activity.Title = Value
xCustomListView.AsView.BringToFront
End Sub
Sub Daten_in_die_xCustomListView_einfuegen
'-- Daten in die Textelder zuweisen --
Panel_003a_Label_001.Text = ""&Cursor.GetString("Feld001")&""
Panel_003a_Label_002.Text = "Benutzer:"&CRLF&""&Cursor.GetString("Feld002")&""
Panel_003a_Label_004.Text = "Kategorie:"&CRLF&""&Cursor.GetString("Feld004")&""
Panel_003a_Label_IDNR.Text = "ID: "&Cursor.GetString("IDNR")&""
'-- Eigenes Bild zuweisen -- Feld014 --
Log("Eigenes Bild zuweisen - Feld014: "&Cursor.GetString("Feld014")&"")
If File.Exists(File.DirAssets, ""&Cursor.GetString("Feld014")&"") Then
Panel_003a_Label_014.Text = "Ein Bild ist vorhanden"
Panel_003a_ImageView_014.Bitmap = LoadBitmap(File.DirAssets, ""&Cursor.GetString("Feld014"))
Panel_003a_Label_014.Typeface = Typeface.DEFAULT
Else
Panel_003a_Label_014.Text = "Es ist KEIN Bild vorhanden!"
End If
'-- Kategorie-Icon zuweisen -- Feld009 --
Log("Kategorie-Icon zuweisen - Feld009: "&Cursor.GetString("Feld014")&"")
If File.Exists(File.DirAssets, ""&Cursor.GetString("Feld009")&"") Then
Log("If FILE EXISTST ==> "&File.Exists(File.DirAssets, ""&Cursor.GetString("Feld009")&"")&"")
Panel_003a_Label_014.Text = "Ein Bild ist vorhanden"
Panel_003a_ImageView_009.Bitmap = LoadBitmap(File.DirAssets, ""&Cursor.GetString("Feld009"))
Panel_003a_Label_014.Typeface = Typeface.DEFAULT
Else
Panel_003a_Label_004.Text = "Es ist KEIN Kategorie-Bild vorhanden!"
Log("Inhalt von Feld009: "&Cursor.GetString("Feld009")&"")
Log("Es ist KEIN Kategorie-Bild vorhanden!")
End If
End Sub
Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.SetLayout(0, 0, Width, Height)
p.LoadLayout("layout_003a_inhalt_p3_xclv3")
Panel_003a_Label_001.Text = Text
Return p
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End SubIch habe eine kleine Beispiel-App als zip-Datei zum Testen gepackt, aber leider kann ich diese nicht uploaden, da sie zu groß ist (743 kB). --> The uploaded file is too large. Gerne sende ich die Datei per Mail zu.
Kann mir jemand sagen woran das liegt, das es soooo lange dauert?
).
