Thank you very much. Without your help, I would have struggled for another 30 years and still not finished.
Thank you, "i have a library which should work on b4a". I really need this, if you share with me the Ntrip library that runs in B4A, it would be great.
Thank you very much, great, i have repeared your code:
Sub Button1_Click
' ntriplite.readFromSocket("192.106.234.17", 2101, "HTTP/1.1")
ntriplite.readFromSocket("14.238.1.125", 2101, "HTTP/1.1")
wait for ntlite_sourcetable(data As String)
'Log(data)
Dim Lmpt As List
Lmpt.Initialize
Dim St() As String = Regex.Split(CRLF,data)
Dim i As Int
For i = 0 To St.Length - 1
If St(i).StartsWith("STR") Then
Dim St1() As String = Regex.Split(";",St(i))
'Log(St1(1))
Lmpt.Add(St1(1))
End If
Next
End Subimport java.lang.reflect.Method;
import java.lang.reflect.Constructor;
import java.lang.reflect.Field;
import java.lang.reflect.Member;
import java.util.List;
import java.util.ArrayList;
import java.lang.reflect.Modifier;
import java.util.Map;
import java.util.HashMap;
public static void listEnums( Object o) {
try {
// Obtain the Class object for the enum
Class<?> c = (Class) o; //Class.forName("NavigationSystem");
BA.Log("class: " + c.getCanonicalName());
// Get the enum constants
Object[] constants = c.getEnumConstants();
System.out.println("Enum Constants:");
for (Object constant : constants) {
System.out.println(" - " + constant);
}
Field[] flds = c.getDeclaredFields();
List<Field> cst = new ArrayList<Field>(); // enum constants
List<Field> mbr = new ArrayList<Field>(); // member fields
for (Field f : flds) {
if (f.isEnumConstant()) {
cst.add(f);
}
else {
mbr.add(f);
if (f.toString().contains("KEYWORDS_MAP")) {
BA.Log("found keywords map");
f.setAccessible(true);
BA.Log("setaccessible");
//NOTE: ANDROID DOES NOT HAVE A "MODIFIERS" FIELD
// THIS CODE WORKED IN B4J. APPARENTLY NOT
// NEEDED IN B4A (OR EVEN LEGAL)
/*
Field modifiers = Field.class.getDeclaredField("modifiers");
BA.Log("modifiers");
modifiers.setAccessible(true);
BA.Log("set accessible");
int mods = f.getModifiers();
BA.Log("modifiers: " + mods);
modifiers.setInt(f, f.getModifiers() & ~Modifier.FINAL);
BA.Log("unfinalized");
*/
BA.Log("field name: " + f.getName());
BA.Log("class name: " + c.getCanonicalName());
Map map = (Map) f.get(c);
BA.Log("before reflection:");
BA.Log("values: " + map.values());
BA.Log("keys: " + map.keySet());
map.put( "QZSS", map.get("QZS") );
BA.Log("upon reflection...");
BA.Log("values: " + map.values());
BA.Log("keys: " + map.keySet());
}
}
}
} catch (Exception e) {
e.printStackTrace();
}
}
The attached (B4J) adds to your B4J project. It extracts the data from the returned table (table returned as a JavaObject) using JavaObject.
Sub Button1_Click
Dim port As Int = 2101
Dim host As String = "14.238.1.125"
Dim ore As JavaObject
Dim navigationsystem As JavaObject
navigationsystem.InitializeStatic("org.orekit.gnss.metric.ntrip.NavigationSystem")
Dim jo As JavaObject
jo = Me
Log("enums:")
jo.RunMethod("listEnums",Array(navigationsystem))
Dim table As JavaObject
table.InitializeStatic("org.orekit.gnss.metric.ntrip.SourceTable")
ore.InitializeNewInstance("org.orekit.gnss.metric.ntrip.NtripClient", Array(host, port))
table = ore.RunMethod("getSourceTable", Null)
Dim ll As List
ll.Initialize
ll = table.RunMethod("getDataStreams", Null)
Log(" ")
Dim dataStreamRecord(ll.Size) As JavaObject
For i = 0 To ll.Size - 1
dataStreamRecord(i).InitializeStatic("org.orekit.gnss.metric.ntrip.DataStreamRecord")
dataStreamRecord(i) = ll.Get(i)
Log(dataStreamRecord(i).RunMethod("getRecordType", Null))
Log(dataStreamRecord(i).RunMethod("getMountPoint", Null))
Log(dataStreamRecord(i).RunMethod("getSourceIdentifier", Null))
Log(dataStreamRecord(i).RunMethod("getFormat", Null))
Log(dataStreamRecord(i).RunMethod("getFormatDetails", Null)) 'returns a list od StreamedMessage
Log(dataStreamRecord(i).RunMethod("getCarrierPhase", Null)) '(NO = 0, L1 = 1, L1_L2 = 2)
Log(dataStreamRecord(i).RunMethod("getNavigationSystems", Null)) 'returns a list of NavigationSystems
Log(dataStreamRecord(i).RunMethod("getNetwork", Null))
Log(dataStreamRecord(i).RunMethod("getCountry", Null))
Log(dataStreamRecord(i).RunMethod("getLatitude", Null))
Log(dataStreamRecord(i).RunMethod("getLongitude", Null))
Log(dataStreamRecord(i).RunMethod("isNMEARequired", Null))
Log(dataStreamRecord(i).RunMethod("isNetworked", Null))
Log(dataStreamRecord(i).RunMethod("getGenerator", Null))
Log(dataStreamRecord(i).RunMethod("getCompressionEncryption", Null))
Log(dataStreamRecord(i).RunMethod("getAuthentication", Null)) 'None = N, BASIC = B, DIGEST = D
Log(dataStreamRecord(i).RunMethod("areFeesRequired", Null))
Log(dataStreamRecord(i).RunMethod("getBitRate", Null))
Log(" ")
NextI just added to your B4J project. You cracked the nut. But seems to work with Java 8 and not 11, 14, 19.
