FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Obtener el IP en Windows Server 2016
Hola,
Hay una funcion como esta para obtener el IP: function ObtenerIp :string; //Es el truco 82 de trucomania (editado) var wVersionRequested : WORD; wsaData : TWSAData; p : PHostEnt; s : array[0..128] of char; begin wVersionRequested := MAKEWORD(1, 1); WSAStartup(wVersionRequested, wsaData); GetHostName(@s, 128); p := GetHostByName(@s); Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^); WSACleanUP; end; En todos los Windows funciona bien, pero ya en Windows Server 2016 Ya no funciona se genera un excepcion de error. Alguien ya lo soluciono??? |
#2
|
|||
|
|||
Hola...
¿Podrías especificar cual es el error que te muestra? Por que así como preguntas, pues como que no das mucha información. Saludos... |
#3
|
||||
|
||||
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código | Colabora mediante Paypal |
#4
|
||||
|
||||
Yo utilizo esa funcion en Windows 2016 Server y funciona correctamente.
Deberás decirnos qué excepción genera para tí. (Mensaje completo y sin traducir) |
#5
|
|||
|
|||
Cita:
La version que tengo es: Version 1607 (Compilacion de SO 14393.0) (En español) |
#6
|
||||
|
||||
Eso no tiene nada que ver, contesta la pregunta que te han hecho
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código | Colabora mediante Paypal |
#7
|
|||
|
|||
Cita:
Este es el Error que me marca, usando Delphi 7 / Sobre Windows Server 2016 Version 1607 (Compilacion de SO 14393.0) Access violation at address 004764C1 in module 'Project1.exe'. Read of address 0000000C CODIGO:
|
#8
|
||||
|
||||
Veo que es de aquí.
Yo uso lo mismo con una pequeña variación y funciona perfectamente:
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código | Colabora mediante Paypal |
#9
|
|||
|
|||
Cita:
Por ese motivo, yo creo que debe ser un problema en el Build del Windows Server... ya que cuando lo ejecuto en Windows 7, 10 o 2012 Server funciona muy bien... |
#10
|
||||
|
||||
A ver si alguien lo prueba con la misma versión que tienes tú.
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código | Colabora mediante Paypal |
#11
|
||||
|
||||
Prueba con esta versión:
Notarás que hay una variable mas "P2" de tipo PChar. Quizas la asignación directa del resultado de inet_ntoa que es PChar a String no le gusta.
Estuve leyendo que inet_ntoa devuelve null si ha encontrado un error. Cita:
|
#12
|
|||
|
|||
Cita:
Le agregue a tu funcion el Mensaje de Excepcion para saber si aun continua y desafortunadamente la Excepcion persiste. |
#13
|
|||
|
|||
Confirmado, Instale Windows Server 2016 Version 1607 (Compilacion de SO 14393.0)
Usando el ISO, sin aplicar ninguna actualizacion de Windows y el Error se presenta al obtener el IP, y ademas de eso muchos otros errores con los componentes de Delphi. Procedi a Actualizar Windows (KB4035631) Y con esta actualizacion ya funcionan todas las Funciones anteriores... Como lo habia dicho, la Instalacion por default de Windows tiene errores que han sido corregidos por Micro$oft. Saludos,. |
#14
|
|||
|
|||
Justo lo que necesitaba! Gracias!
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Conexion a servidor dedicado windows server y sql server | ValentinoP | MS SQL Server | 3 | 23-01-2017 19:14:37 |
SQL Server 2000 vs Windows Server 2008 Enterprise | lgarcia | MS SQL Server | 9 | 31-08-2016 20:10:58 |
Conectar a SQL Server y Windows 2003 Server | Punzo | MS SQL Server | 2 | 11-12-2007 21:30:40 |
Windows Media Server e Internet Information Server | Ñuño Martínez | Windows | 0 | 08-09-2006 12:26:53 |
Compartir recursos entre Windows Nt Server y Windows 98 | fer21unmsm | Windows | 1 | 18-07-2006 23:05:44 |
|