Autor Tema: Ota acción para generar cambios en la programación de los equipos GPS  (Leído 2367 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado saez

  • PIC10
  • *
  • Mensajes: 1
Buenos días,

Soy nueva por aquí, gusto en saludarles. Actualmente estoy trabajando en un proyecto de sistema de seguimiento salelital
el cual esta desarrollado en ASP.net, operativo funciona perfectamente bien. Se quiere migrar este sistema al lenguaje de programación PHP,
de hecho ya esta una parte migrada, mi pregunta es si me pueden ayudar a entender el código que esta en ASP.net para saber como debo programarlo en php ya que no se nada
de asp, y en php tengo poco tiempo programando. Por ejemplo:

Les coloco código de una función en asp que se trata de un formato de envío de comandos y la misma función en código php,
La aplicación tiene tres formatos para envíar los comandos a los equipos, SocketUdp, WS_SMS y Mail. esta lista la parte de SocketUdp, tengo que migrar
los dos formatos que faltan. les coloco el código Asp de dichos formatos. esperando me puedan ayudar.

//ASP
Private Function UDP_Send(ByVal Data As String, ByVal datos As datos_control_distancia) As String
        Try
            Dim UDP_Client As New UdpClient
            Dim Destino As New IPEndPoint(IPAddress.Parse(datos.ip), datos.port)
            Dim sendBytes As [Byte]() = Encoding.Default.GetBytes(Data)
            UDP_Client.Send(sendBytes, sendBytes.Length, Destino)
            Return resp_ok("OK")
        Catch e As Exception
            Return resp_error(e.Message)
        End Try
End Function

//PHP
private function enviar_udp($ip,$port,$buf)
      {
         try
         {
            $socket = socket_create(AF_INET, SOCK_DGRAM, SOL_UDP);
             socket_sendto($socket, $buf, strlen($buf), 0, $ip, $port);
             socket_close($socket);
             usleep($delay*1000);
             return "OK";
         } //try
         catch (Exception $e)
         {
            return $e->getMessage;
         } //catch   
      }
   
//Asp envíar mensaje Sms
Private Function ws_call(ByVal Data As String, ByVal datos As datos_control_distancia) As String
        Try
            Dim sUri As String = ""
            If datos.ws.Trim <> "" Then
                datos.id_equ = datos.arreglo(datos.arreglo.Length - 1)
            End If
            sUri = datos.ws & "?numero=" & datos.id_equ & "&mensaje=" & Data
            If datos.ws_param <> "" Then
                sUri &= "&num_salida=" & ws_param_out(datos)
            End If
            'num_salida
            Dim myUri As System.Uri = New System.Uri(sUri)
            Dim HttpWRequest As HttpWebRequest = WebRequest.Create(myUri)
            Dim myCred As NetworkCredential = New NetworkCredential("Domain\UserName", "Password")
            HttpWRequest.KeepAlive = False
            HttpWRequest.Headers.Set("Pragma", "no-cache")
            HttpWRequest.Timeout = 5000
            Dim HttpWResponse As HttpWebResponse = HttpWRequest.GetResponse()
            ' Get the response stream.
            Dim strm As Stream = HttpWResponse.GetResponseStream()
            ' Read the response stream.
            Dim sr As StreamReader = New StreamReader(strm)
            Dim sText As String = sr.ReadToEnd()
            ' Close the stream.
            strm.Close()
            ' Clean up
            HttpWRequest = Nothing
            HttpWResponse = Nothing
            myCred = Nothing
            strm = Nothing
            sr = Nothing
            'Return resp_ok(sText)
            Return resp_ok("OK")
        Catch e As Exception
            Return resp_error(e.Message)
        End Try
    End Function

Private Function mail_send(ByVal datos As datos_control_distancia) As String
        Try
            Dim client As New SmtpClient(datos.Mail.SMTP_Server)
            Dim theCredential As New Net.NetworkCredential(datos.Mail.SMTP_User, datos.Mail.SMTP_Pass)
            client.Credentials = theCredential
            Dim [from] As New MailAddress(datos.Mail.mail_From)
            Dim [to] As New MailAddress(datos.Mail.mail_To)
            Dim message As New MailMessage([from], [to])
            message.Body = datos.Mail.mail_Body
            message.Subject = datos.Mail.mail_Subject
            message.IsBodyHtml = False
            If Not datos.Mail.mail_Attachment Is Nothing Then
                For Each strfile As String In datos.Mail.mail_Attachment
                    If Not strfile = "" Then
                        Dim MsgAttach As New Attachment(strfile)
                        message.Attachments.Add(MsgAttach)
                    End If
                Next
            End If
            client.Send(message)
            Return resp_ok("OK")
        Catch ex As Exception
            Return resp_error(ex.Message)
        End Try
    End Function   

De antemano muchas gracias,
« Última modificación: 10 de Junio de 2015, 18:01:36 por saez »