TODOPIC
FORO TÉCNICO => Telefonía, GPS y Microcontroladores => Mensaje iniciado por: saez en 10 de Junio de 2015, 13:31:29
-
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,