Buongiorno a tutti,
volevo convertire questa funzione vb.net in b4j ,
in sostanza invia dei comandi su socket tcp/ip
qualcuno di buona anima potrebbe aiutarmi,
Grazie
vb.net
volevo convertire questa funzione vb.net in b4j ,
in sostanza invia dei comandi su socket tcp/ip
qualcuno di buona anima potrebbe aiutarmi,
Grazie
vb.net
B4X:
'Public Shared Function Init(ByVal ip As String, ByVal porta As String) As Object
Dim obj As Object
Dim ip As String = "192.168.1.101"
Dim porta as string ="8029"
Try
Dim str As String = "#I#"
Dim str1 As String = Nothing
Dim tcpClient As System.Net.Sockets.TcpClient = New System.Net.Sockets.TcpClient(ip, Conversions.ToInteger(porta))
LogWrite.WriteLogConnector(GlobalApp.PathLog, String.Concat("Inviato Comando: ", str))
Dim bytes As Byte() = Encoding.ASCII.GetBytes(str)
Dim stream As NetworkStream = tcpClient.GetStream()
stream.Write(bytes, 0, CInt(bytes.Length))
LogWrite.WriteLogConnector(GlobalApp.PathLog, String.Concat("Inviato: ", str))
ReDim bytes(1024)
Dim num As Integer = stream.Read(bytes, 0, CInt(bytes.Length))
str1 = Encoding.ASCII.GetString(bytes, 0, num)
LogWrite.WriteLogConnector(GlobalApp.PathLog, String.Concat("Ricevuto: ", str1))
stream.Close()
tcpClient.Close()
obj = 1
Catch exception1 As System.Exception
ProjectData.SetProjectError(exception1)
Dim exception As System.Exception = exception1
LogWrite.WriteLog(GlobalApp.PathLog, exception.Message)
LogWrite.WriteLogConnector(GlobalApp.PathLog, exception.Message)
obj = 0
ProjectData.ClearProjectError()
End Try
Return obj
' End Function