le ho provate veramente di tutte, o almeno credo ma l'errore e sempre lo stesso.
tramite query prelevo un record dal server, un campo della query contiene i servizi (bar, market, piscina etc) divise da virgole e tramite regex.split mi creo una variabile dimensionale con tutti i contenuti.
fin qui tutto bene e qui iniziano i problemi
creo inizialmente un array di img tramite il lenght della variabile. Queste immagini devono essere inserite in un panel. Il problema viene fuori quando devo caricare l'immagine (bitmap). La prima viene caricata, la seconda mi dice che il file non è trovato. Mi sono scervellato l'errore nel nome del file, ma non vi era errore, quindi per sicurezza ho cambiato il primo nome con il secondo e puntualmente al secondo ciclo mi dice che non trova il file dell'immagine.
A questo punto leggendo un po in giro, ho provato a creare una lista di immagini come da codice postato (II versione) ma l'errore si ripresenta sia quando carico la lista aggiungendo
Img.Bitmap =LoadBitmap(File.DirAssets ,servizi(j) &".png")
sia quando eseguo il ciclo per caricare le immagini che provengono dalla lista nel panel.
Sinceramente non so come fare e non ho piu idee. Qualche conflitto si crea, quello che mi sovviene puo essere solo un conflitto di nomi delle immagini che si chiamano tutte "img", ma mi sembra talmente innaturale dover dichiarare anche 20 img con nomi differenti per poterli utilizzare.
Ditemi che sto sbagliando da qualche parte e che sono talmente stupido da non vederlo nonostante in debug il codice venga eseguito fino a che non cerco di caricare la seconda immagine, ma io mi arrendo
tramite query prelevo un record dal server, un campo della query contiene i servizi (bar, market, piscina etc) divise da virgole e tramite regex.split mi creo una variabile dimensionale con tutti i contenuti.
fin qui tutto bene e qui iniziano i problemi
creo inizialmente un array di img tramite il lenght della variabile. Queste immagini devono essere inserite in un panel. Il problema viene fuori quando devo caricare l'immagine (bitmap). La prima viene caricata, la seconda mi dice che il file non è trovato. Mi sono scervellato l'errore nel nome del file, ma non vi era errore, quindi per sicurezza ho cambiato il primo nome con il secondo e puntualmente al secondo ciclo mi dice che non trova il file dell'immagine.
A questo punto leggendo un po in giro, ho provato a creare una lista di immagini come da codice postato (II versione) ma l'errore si ripresenta sia quando carico la lista aggiungendo
Img.Bitmap =LoadBitmap(File.DirAssets ,servizi(j) &".png")
sia quando eseguo il ciclo per caricare le immagini che provengono dalla lista nel panel.
Sinceramente non so come fare e non ho piu idee. Qualche conflitto si crea, quello che mi sovviene puo essere solo un conflitto di nomi delle immagini che si chiamano tutte "img", ma mi sembra talmente innaturale dover dichiarare anche 20 img con nomi differenti per poterli utilizzare.
Ditemi che sto sbagliando da qualche parte e che sono talmente stupido da non vederlo nonostante in debug il codice venga eseguito fino a che non cerco di caricare la seconda immagine, ma io mi arrendo
B4X:
Sub CreateImage(parser As JSONParser )
Dim COUNTRIES As List
COUNTRIES = parser.NextArray 'returns a list with maps
Dim m As Map
m=COUNTRIES.Get (0)
Dim servizi(), testo As String
Dim testo As String=m.Get("Servizi")
servizi=Regex.Split (",", testo)
Dim valuex, valuey As Int
valuex=7dip: valuey=5dip
ImgList.Initialize
For j=0 To servizi.Length -1
Dim Img As ImageView
Img.Initialize ("img")
Img.Bitmap =LoadBitmap(File.DirAssets ,servizi(j) &".png") VIENE ESEGUITA QUESTA O
ImgList.Add (Img)
Next
LblNome.Text=m.Get ("Nome")
LblIndirizzo.Text =m.Get("Indirizzo")
cd.Initialize(Colors.Black , 5dip)
Pnl.Background =cd
Pnl.Color =Colors.White
For n=0 To servizi.length -1
Dim Img As ImageView
Img=ImgList.get(n)
Img.Gravity =Gravity.FILL
' Img.Bitmap =LoadBitmap(File.DirAssets ,servizi(n) &".png") --------------QUESTA-----------
Pnl.AddView (Img, valuex, valuey, 30dip, 30dip)
Img.Tag =n
If n=9 Then
valuex=7: valuey=40
End If
Next
End Sub
