i read this thread https://www.b4x.com/android/forum/threads/b4x-custom-view-google-place-autocomplete-view.81976/
and works but not as I expected i want a search like a postman this the request i send.
		
		
	
	
		 
	
in the app i dont get results.
		 
	
this is the code i sue for the edittext change event:
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
i really dont know what is the problem.
thanking you in advance for all the support that this great community has given me.
			
			and works but not as I expected i want a search like a postman this the request i send.
and i get this result:https://maps.googleapis.com/maps/api/place/autocomplete/json?input=cae Tegucigalpa&types=establishment&key=MyAPiKey
in the app i dont get results.
this is the code i sue for the edittext change event:
			
				et_TextChanged:
			
		
		
		Private Sub et_TextChanged (Old As String, New As String)
    If New.Length = 0 Then
        lv.Clear
        lv.Visible = False
    Else
        If lv.Visible = False Then lv.Visible = True
        Dim j As HttpJob
        j.Initialize("", Me)
        j.Download2("https://maps.googleapis.com/maps/api/place/autocomplete/json", _
            Array As String("input", New & " Tegucigalpa&types=establishment", "key", GlobalParameters.GoogleApiKey))
        QueryIndexSent = QueryIndexSent + 1
        Dim index As Int = QueryIndexSent
        Wait For (j) JobDone (j As HttpJob)
      
        If j.Success Then
            If QueryIndexReceived > index Then
                Return
            Else
                Dim pds As List
                pds.Initialize
                lv.Clear
                QueryIndexReceived = index
                Dim jp As JSONParser
                jp.Initialize(j.GetString)
                Dim m As Map = jp.NextObject
                Dim predictions As List = m.Get("predictions")
                For Each pred As Map In predictions
                    Dim pd As PlaceData
                    pd.Initialize
                    pd.Id = pred.Get("place_id")
                    pd.Description = pred.Get("description")
                    pds.Add(pd)
                Next
                AddItemsToList(pds, New.ToLowerCase)
            End If
        End If
        j.Release
    End If
End Subi really dont know what is the problem.
thanking you in advance for all the support that this great community has given me.
Attachments
			
				Last edited: 
			
		
	
								
								
									
	
								
							
							 
				 
 
		 
 
		 
 
		 
 
		