FiveTech Software tech support forums

I allready Used

Function GetIP()
Local cVar1
WsaStartUp()
cVar1 := GetHostByName( GetHostName() )
WsaCleanUp()
return cVar1

I am using Windows 11 Pro, Version 23H2

I am getting the local IP via GetHostByName( GetHostName() )

Saludos Antonio

Para obtener la direccion IP local utilizo: GetHostByName( GetHostName() ) y en Win10 funcion Ok, el resultado lo comprado con IpConfig y me da lo mismo.
Pero con Win11, me da un valor distinto al que me retorna IpConfig ... creo que algo ahi no esta Ok ...
Gracias

...   // Clean up    free(pAddresses);    WSACleanup();    return 0;}  Google Gemini: The behavior you're experiencing with GetHostByName returning an IP address different from the one on your desired subnet is not necessarily a bad configuration. Here's why: Function Behavior: ...

I use WSAStartup() ; cIp := GetHostByName( GetHostName() ) ; WSACleanup(), to get the local IP address. However my system has an EtherNet, Hamachi, and 2 VMware showing as adapters. The address returned by the function GetHostByName returns ...

Thank you, Karinha, it works! What are the WSAStartup/Wsacleanup functions for in this case? Why prescribe 2 times: cIp := GETHOSTBYNAME( "yoursite.com" ) cIp := GETHOSTBYNAME( "yoursite.com" ) Good Morning. This was a tip on the FiveWin Brasil forum. Just to be ...

Thank you, Karinha, it works!
What are the WSAStartup/Wsacleanup functions for in this case?
Why prescribe 2 times:
cIp := GETHOSTBYNAME( "yoursite.com" )
cIp := GETHOSTBYNAME( "yoursite.com" )

veja se isto resolve?

If GetHostByName( "bazevani.com.br" ) = "0.0.0.0"

... WSADATA wsa_Data; WSAStartup( 0x101, &wsa_Data ); char szHostName[255]; gethostname(szHostName, 255); struct hostent *host_entry; host_entry = gethostbyname(szHostName); char * szLocalIP; szLocalIP = inet_ntoa (*(struct in_addr *)*host_entry->h_addr_list); WSACleanup(); hb_retc( szLocalIP ...

Gracias Karinha por responder, lo voy a probar como me indicas y te comento como me fue, sólo una pregunta, por que haces una doble llamada a la función GetHostByName() ?

Saludos!!

Eduardo Borondón Muñiz

... al ejecutar la función IsInternet() sobre todo cuando el internet se cae, tarda hasta 30 segundos en regresar el control al equipo, ya intente con GetHostByName y me sucede lo mismo en varios equipos. Habrá alguna solución mas rápida para poder detectar si se tiene conexión a internet?? Alguna ...

... (si no equivoco). ********************************* EDITO, amplío información: Resulta que el servidor de mi mail es: smtp.rebuts.cat Si realizo GetHostByName(smtp.rebuts.cat), me devuelve la IP 46.16.61.50 Ahora bien, si realizo GetHostByAddress(46.16.61.50), me devuelve una cadena vacía. Entonces, ...

I changed the IP (default seems to be (Gethostbyname) function Server()   oSocket = TSocket():New( 33334 )   oSocket:cIPAddr  = "192.168.1.101"   oSocket:bAccept = { | oSocket | oClient := TSocket():Accept( ...

... SendMail() local oOutMail, cIP, oOutMail1 oDlg:SetMsg( "Sending Internet email..." ) WSAStartup() * oOutMail1 := TSmtp():New( cIP := GetHostByName( "mail.lpsi.qc.ca" ) ) oOutMail := TSmtp():New( cIP := GetHostByName( "smtphm.sympatico.ca",25,.t.,"wilsonrw@sympatico.ca", ...

... after a period of time, or the established connection failed because the connected host has failed to respond. oOutMail := TSmtp():New( cIP := GetHostByName( "mail.lpsi.qc.ca" ) ) Have you provided the Port number, username password required to connect to your email server For eg ...