Znalazłem poradnik P. Mirka "WIFI - CLIENT - WWW/PHP" jeszcze nie oglądałem ale po tytule wnioskuje że chyba nie będzie tam wyjaśnień o aplikacji na androida.
Czy jeśli uda mi się przerobić materiał z tego poradnika to będę mógł liczyć na Waszą pomoc z aplikacją B4A?
------------------------ [ Dodano po: wczoraj, o 17:37 ]
Obejrzałem poradnik P. Mirka i poczytałem o skryptach php i wiem już mniej/więcej jak można ustawić jakąś zmienną w skrypcie na serwerze i potem odczytać jej zawartość za pomocą modułu wifi.
Niestety sprawa mocno komplikuje się jeżeli chodzi o aplikację B4A. Do tej pory do połączenia z internetem używałem biblioteki Network i komponentów UDPSocket i UDPPacket, które chyba działają tylko w protokole UDP a teraz będę potrzebował TCP.
Czy w B4A istnieją funkcje/obiekty/komponenty które pozwolą na stworzenie podobnego mechanizmu komunikacyjnego TCP jaki jest przedstawiony w poradniku P Mirka "WIFI - CLIENT - WWW/PHP"?
------------------------ [ Dodano po: wczoraj, o 17:37 ]
Na podstawie tego poradnika https://www.b4x.com/android/forum/threa ... rial.7001/ napisałem taką aplikację:
[syntax=basic4gl]#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: Network
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#End Region
'Activity module
Sub Process_Globals
Dim Socket1 As Socket
End Sub
Sub Globals
Private EditText1 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Socket1.Initialize("Socket1")
Socket1.Connect("aktualnyczas.pl" , 80, 100)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Socket1_Connected (Successful As Boolean)
If Successful = False Then
Msgbox(LastException.Message, "Error connecting")
Return
End If
Dim tr As TextReader
tr.Initialize(Socket1.InputStream)
Dim sb As StringBuilder
sb.Initialize
sb.Append(tr.ReadLine) 'read at least one line
Do While tr.Ready
EditText1.Text= sb.Append(CRLF).Append(tr.ReadLine)
Loop
Socket1.Close
End Sub[/syntax]
W designerze stworzyłem EditText1 na całej powierzchni wyświetlacza. Miały tu trafiać stringi poszczególnych linii odebranych ze strony http://aktualnyczas.pl/. Niestety ten program działa chyba inaczej bo po włączeniu aplikacji czekam chwilkę i pojawia się białe tło i nic poza tym.
Czy na podstawie tego kodu mogę odczytywać zawartość strony internetowej podanej w funkcji "Socket1.Connect("aktualnyczas.pl" , 80, 100)"?
------------------------ [ Dodano po: wczoraj, o 17:37 ]
Zmieniłem nieco event połączenia ze stroną i opisałem po kolei co się w tym evencie dzieje. Proszę aby ktoś sprawdził czy dobrze rozumiem działanie kodu:
[syntax=basic4gl]Sub Socket1_Connected (Successful As Boolean)
If Successful = False Then'jeśli błąd połączenia to:
Msgbox(LastException.Message, "Error connecting") 'wyświetl komunikat
Return'opuść event
Else'jeśli połączono prawidłowo to:
Dim tr As TextReader'tworzymy obiekt TextReader
tr.Initialize(Socket1.InputStream)'inicjalizujemy go strumieniem danych przychodzących
Dim sb As StringBuilder'tworzymy obiekt StringBuilder
sb.Initialize'inicjalizujemy go
sb.Append(tr.ReadLine) 'z bufora tr pobieramy pierwszą linię i dodajemy do obiektu sb
Do While tr.Ready'dopuki w buforze tr jest coś do odebrania
sb.Append(CRLF).Append(tr.ReadLine)'do obiektu sb dodajemy znak końca linii i kolejną linię danych z bufora tr
Loop
EditText1.Text= sb.ToString'w EditText1 wyświetlamy obiekt sb jako string
Socket1.Close'zamykamy strumień danych
End If
End Sub[/syntax]
Teraz aplikacja zwraca mi w EditText1 wartość "null", czyli chyba prawidłowo łączy się z podaną przeze mnie stroną ale chyba w niewłaściwy sposób próbuję się dobrać do strumienia przychodzącego...
------------------------ [ Dodano po: 11 mar 2016, o 17:37 ]
Chyba się udało!
Mam kod który wyświetla mi zawartość przykładowej strony internetowej (http://aktualnyczas.pl/) w oknie EditText1 na telefonie.
Tylko czy na pewno tego chciałem????
Aplikacja ta pozwala mi się dobrać do budowy takiej strony a mi chyba bardziej potrzeba skorzystać z tego co ona wyświetla w przeglądarce, bo np w przeglądarce wyświetla aktualny czas i datę a w aplikacji tylko skrypty i funkcje które pozwalają ten czas obliczyć.
Oto kod:
[syntax=basic4gl]#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
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private EditText1 As EditText
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Dim job2 As HttpJob
'Send a POST request
job2.Initialize("Job2", Me)
job2.Download("http://aktualnyczas.pl/")
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Select Job.JobName
Case "Job2"
'print the result to the logs
EditText1.Text= Job.GetString
End Select
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub[/syntax]
------------------------ [ Dodano po: 11 mar 2016, o 17:37 ]
No więc problem chyba rozwiązany. Założyłem serwer na jednym z darmowych hostingów. Napisałem drobny skrypt w php przetwarzający dane nadesłane w linku url mojej strony. Napisałem też aplikację która wysyłając zapytanie do strony wysyła również dane w postaci zmiennych w linku url. Aplikacja po odebraniu źródła strony wyszukuje w nim konkretne dane rozpoczynające i kończące się zadanymi znacznikami "#". Rezultat wyświetlany w postaci stringów w EditText. Teraz tylko potrenować z bazą danych MSQL i łączność globalna będzie działać na przekór wszelkim trudnościom!!! (ze strony operatorów internetowych, zewnętrznych stałych adresów ip ........ )
Dziękuję wszystkim za pomoc!!!
Statystyki: Napisane przez Sucyn — 11 mar 2016, o 18:37
]]>
