FoxPro/Visual FoxPro - ayuda

   
Vista:

ayuda

Publicado por Francisco Vega (11 intervenciones) el 09/06/2010 15:10:21
hola con todos y muchas gracias de antemano

miren mi pregunta es la siguiente, estoy trabajando con System.Net.Sockets.TcpClient de visual basic .net, y tomo la hora de un servidor ntp para poder tener la hora en mi aplicacion y no depender de la hora del sistema, pero la cuestion es que si existe lo mismo para foxpro por favor ayudenme este es el codigo de visual quisiera que sea el mismo para foxpro como lo puedo hacer la verdad no se nada de foxpro pero el jefe de mi empresa quiere para foxpro como lo hago

Private Sub mnuSincronizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSincronizar.Click
Dim tcp As New System.Net.Sockets.TcpClient
Dim tmp As Date
Try
With tcp
.Connect("time.nist.gov", Val("13"))
Dim data As [Byte]()
Dim stream As System.Net.Sockets.NetworkStream = tcp.GetStream()
data = New [Byte](256) {}
Dim responseData As [String] = [String].Empty
Dim bytes As Int32 = stream.Read(data, 0, data.Length)
responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes).Trim(Chr(10)).Substring(6, 17)
responseData = responseData.Substring(6, 2) & "/" & responseData.Substring(3, 2) & "/" & responseData.Substring(0, 2) & " " & responseData.Substring(9)
tcp.Close()
tmp = Now
TimeOfDay = DateTime.Parse(responseData).AddHours(0)
Today = DateTime.Parse(responseData).AddHours(0)
End With
Catch c As System.Net.Sockets.SocketException
MsgBox("No se puede conectar con el servidor", MsgBoxStyle.Critical, "DJP Sincro Tray")
End Try
End Sub

espero una respuesta por favor ayudenme
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda

Publicado por Juan286 (179 intervenciones) el 09/06/2010 16:52:31
lo unico que se necesita es tener derechos de escritura en la carpeta, folder o recurso compartido del servidor.

ltFecha = ServerTime("F:/")

Pasandole de Parametro un recurso compartido:

ltFecha = ServerTime("//SERVIDOR/VALUACION")

Si no se pasan parametros, tomara por default la fecha del equipo donde se ejecute el programa:

ltFecha = ServerTime()

Espero que les sea de utilidad. ---- Apoya a Visual FoxPro usándolo legalmente ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º Espartaco Palma Martínez Coordinador Nacional PortalFox - Mexico http://mexico.portalfox.com email: mexico@portalfox.com

******************************************************************
* ---- Server DateTime ----- Fecha y Hora del Servidor
* ---- Espartaco Palma Martinez esparta@NO_SPAMsofthome.net
* ---- FUNCTION: ServerTime
* ---- RETURNS: Server DateTime, NULL if cannot get DateTime
* ---- RETORNA: Fecha y Hora Server, NULL si no puede obtenerlo
* ---- PARAMETERS: tcPath - TYPE: Character
* ---- Basandose en las recomendaciones de Alex Feldstein (MS MVP)
* ---- sobre como obtener la fecha y hora del servidor.
* ---- DATE: 03/DIC/2002 For Use in Visual FoxPro.
* ---- Sample:
* ---- ltFecha = FechaHora("F:/")
* ---- ltFecha = FechaHora("//SERVER/VALUACION/")
* ---- NOTE: If you are using minor versions of VFP7, use FoxTools
* ---- NOTA: Si esta usando versiones menores a VFP7, use FoxTools
******************************************************************
FUNCTION ServerTime (tcPath)
LOCAL ltFileTime
tcPath = IIF(TYPE('tcPath') # 'C', SPACE(0),ADDBS(tcPath))
lcFile = tcPath+SUBSTR(SYS(2015), 4) +".tmp"
IF STRTOFILE("Getting Hour/Obteniendo la Hora",lcFile) > 0
ltFileTime = FDATE(lcFile,1)
ERASE (lcFile)
RETURN ltFileTime
ENDIF
RETURN NULL
******************************************************************
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda

Publicado por Francisco Vega (11 intervenciones) el 09/06/2010 17:04:43
gracias por eso, ese codigo del final hace exactamente lo que hace el visual basic???

como dije no tengo idea de nada de foxpro puedes explicarmelo un poco mas detallado por favor gracias por tu respuesta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda

Publicado por Juanma Cruz (508 intervenciones) el 09/06/2010 19:23:19
Hay un artículo muy interesante al respecto en el siguiente link:

http://fox.desdeguate.com/2007/07/29/itime_servidores_hora_vfp/

Que haya suerte. :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda

Publicado por Francisco Vega (11 intervenciones) el 14/06/2010 16:34:29
Muchas gracias por su ayuda ya lo voy a leer cualquier iquietud ya se las hago llegar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar