FiveTech Software tech support forums

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 ...

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 ...

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" )

... en mi caso. Debajo dejo un ejemplo de lo que estoy intentando ejecutar. STATIC oWnd // ya esta definida en mi programa FUNCTION TEST() Local cIp,cCadena cIp:='192.168.0.253' // esta dirección la obtengo consultando un impresor fiscal en linea sin problemas // TEST 1 no funciona cCadena:='http://' ...

FUNCTION DPMYSQLBD(cDb,cIp,cLogin,cPass,nPort,lError,lCreate,lAdd) LOCAL oDb,oMySql,nAt DEFAULT cIp :=oDp:cIp ,; cLogin :=oDp:cLogin,; cPass :=oDp:cPass ,; nPort :=oDp:nPort ,; cDb :=oDp:cDsnData,; lError :=.T.,; lCreate :=.F.,; lAdd ...

... se puede utilizar Otro gestor de base de datos u Odbc */ #include "FiveWin.ch" STATIC oServer,oDb,bSqlDate,cTypeBD FUNCTION MAIN() LOCAL cIp :="localhost" LOCAL cLogin:="root" LOCAL cPass :="" LOCAL oTable LOCAL aFiles:=DIRECTORY("*.*"),I SET DATE ...

Buenos dias!

Code: Select all  Expand view

MsgInfo( CALLBACKFUNCTION() ) -> Devuelve el siguiente valor 4200408
 

La llamada a la funcion y sus parametros son estos

Code: Select all  Expand view

DLOpen( 1 , cIp , cPass , nil , nil , CallBackFunction() )
 

Donde las variables cIp y cPass son tipo char

Un saludo

... no lo entiendo local cVar := space(n) o nVar := 0 local oGet1, oGet2 @ x, y GET oGet1 VAR cVar...... usas el mismo objeto como var @ 1.4,0.5 GET cIp VAR cIp SIZE 115,10

... intentar colocar un valor los GET no lo aceptan. No logro entender la razon #include "fivewin.ch" FUNCTION MAIN() LOCAL oDlg,oFont LOCAL cIp :=cIp LOCAL cLogin :=cLogin LOCAL cPass :=cPass DEFINE FONT oFont NAME "Arial" SIZE 0, -11 BOLD DEFINE DIALOG oDlg TITLE "Datos del ...

I wrote a function that access a website to retrieve information about products. STATIC FUNCTION PesquisaProduto( cIP ) LOCAL hCurl curl_global_init() IF !empty( hCurl := curl_easy_init() ) curl_easy_setopt( hCurl, HB_CURLOPT_HTTPHEADER, {"Content-Type:application/json","X-Cosmos-Token:yIgeHB34Qv6RO18QWsftQw"} ...

... connection to server de bell WSA ERROR CODE : 10060 can you held me donne la meme erreur (same error) function SendMail() local oOutMail, cIP, oOutMail1 oDlg:SetMsg( "Sending Internet email..." ) WSAStartup() * oOutMail1 := TSmtp():New( cIP := GetHostByName( "mail.lpsi.qc.ca" ...

... respond 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 ...

... IP ADDRESS : could not establish connection to server1.activedata.ca WSA ERROR CODE : 10060 can you held me function SendMail() local oOutMail, cIP, oOutMail1 oDlg:SetMsg( "Sending Internet email..." ) WSAStartup() * oOutMail1 := TSmtp():New( cIP := GetHostByName( "mail.lpsi.qc.ca" ...

... ( NOT found ) the rest is working fine. Maybe I can detect inside the class where the problem comes from. The connection works ! METHOD New (cIP, cUser, cPW, cFTPFolder, cZIPFile, cLocalDir, nFlags) CLASS TUpdate DEFAULT cIP := "localhost",; cUser := "anonymous",; cPW ...

cmsoft

Con
cIP := GetHostByName(GetHostName())

No funciona.

Saludos,

Adhemar