Hice con todos los parámetros, igual sale ese warning
Code: Select all | Expand
warning C4996: 'inet_addr': Use inet_pton() or InetPton() instead or define _WINSOCK_DEPRECATED_NO_WARNINGS to disable deprecated API warnings
Gracias por la ayuda
Code: Select all | Expand
warning C4996: 'inet_addr': Use inet_pton() or InetPton() instead or define _WINSOCK_DEPRECATED_NO_WARNINGS to disable deprecated API warnings
Code: Select all | Expand
Function FtpFecha(cFile,cFtpSite,cUsuario,cPass)
oInt:=tInternet():New()
oFtp:=tFtp():New(cFtpSite,oInt,cUsuario,cPass)
IF !Empty(oFtp:hFtp)
aFiles:=oFtp:Directory(cFile)
IF Len(aFiles)>0
HoraNew:= aFiles[1,4]
FtpFecExeNew:=dToS(aFiles[1,3])+Left(HoraNew,2)+Subs(HoraNew,4,2)+Right(HoraNew,2)
Endif
Else
FtpFecExeNew:=""
EndIf
Return FtpFecExeNew
acuellar wrote:Muchas gracias estimado Joao
con #define _WINSOCK_DEPRECATED_NO_WARNINGS
Desapareció el error.
FrpFecha en una función que utilizo para verificar la fecha del .EXE alojado en un FTP
Si es diferente al que está en ejecución la descarga y lo reemplaza
Atrás especifique _Code: Select all | Expand
Function FtpFecha(cFile,cFtpSite,cUsuario,cPass) oInt:=tInternet():New() oFtp:=tFtp():New(cFtpSite,oInt,cUsuario,cPass) IF !Empty(oFtp:hFtp) aFiles:=oFtp:Directory(cFile) IF Len(aFiles)>0 HoraNew:= aFiles[1,4] FtpFecExeNew:=dToS(aFiles[1,3])+Left(HoraNew,2)+Subs(HoraNew,4,2)+Right(HoraNew,2) Endif Else FtpFecExeNew:="" EndIf Return FtpFecExeNew
Gracias por la ayuda
Jose, he publicado una nueva versión del Editorjvtecheto wrote:Hola amigo.
Que versión de FWH 32 o 64 bits?
Te refieres a los ejemplos de FWH ?
Si es un proyecto, compilas con Fivedit o hbmk2?
Mi experiencia con 32 bits FWH:
Los ejemplos de FWH . Ok
Hbmk2 . Ok.
Fivedit . Error (podría ser que yo tengo versión Enterprise). Si alguien pudiera postear que le funciona bien , que no sea Cristóbal que a él siempre le va bien [emoji38][emoji1787] )
Saludos
Jose
Enviado desde mi Lenovo TB-J606F mediante Tapatalk
Como puedes ver no encuentra el fichero stdarg.h que supongo sera un fichero de cabecera del compilador MSVC de Microsotf. Se que debe ser por mi version Enterprise pero he repasado mi configuracion muchas veces y creo que esta bien. Y ojo me construye los ejemplos de la carpeta samples desde el IDE, o sea que sera una tonteria, pero...C:\harbour\include\hbdefs.h(50): fatal error C1083: No se puede abrir el archivo incluir: 'stdarg.h': No such file or directory
En el mismo que tienes tu, cambiando Community por Enterprise. [emoji106]cnavarro wrote:Jose Vicente, en tu versión de VS, en qué carpeta está el fichero vcvarsall.bat ?