Error al compilar con VS2019

[acuellar]

Buenas Estimados

Me sale éste error al compilar con VS2019

Code: Select all | Expand

LINK : fatal error LNK1000: Internal error during LIB::Search
 

Que puede ser?

Gracias por la ayuda

[karinha]

Mira se ayuda:

https://developercommunity.visualstudio ... lib/346556

https://developercommunity.visualstudio ... rc/1202972

https://developercommunity.visualstudio ... ima/166253

https://developercommunity.visualstudio ... s-1/785034

https://stackoverflow.com/questions/727 ... -libsearch

https://support.microsoft.com/en-us/top ... 64a94bb321

Regards, saludos

[acuellar]

Gracias Estimado Joao

Nada

[jvtecheto]

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

[Antonio Linares]

Estimado Adhemar,

Vuelve a correr el instalador de VS2019 y selecciona la opción reparar

[acuellar]

Estimados

Muchas gracias por responder

Tengo la versión portable de VS2019

Descargar de aquí
https://drive.google.com/file/d/1EmHXCJ ... share_link

Si alguien tiene la VS2022 portable si puede, que la comparta porfa.

Gracias por la ayuda

[karinha]

Estimados

Muchas gracias por responder

Tengo la versión portable de VS2019

Descargar de aquí
https://drive.google.com/file/d/1EmHXCJ ... share_link

Si alguien tiene la VS2022 portable si puede, que la comparta porfa.

Gracias por la ayuda

32 ó 64 Bits?

Regards, saludos.

[acuellar]

Es 32Bit Estimado Joao

[karinha]

Es 32Bit Estimado Joao

Estimado Adhemar esta Descarga, mi Antivirus o Windows bloqueó la descarga, algo anda mal con esta versión 2019, mejor descargue otra y vuelva a instalar. Por seguridad.

Regards, saludos.

[acuellar]

Gracias Estimado Joao

Estoy buscando la VS2022

Espero alguien la comparta.

[karinha]

Estimados, a ver si uno de estos dos archivos funciona.

https://mega.nz/file/BQF1hTTa#aB2M8rakt ... NgLlLH3sN0

Regards, saludos.

[acuellar]

Lo logré

Instalando el VS Community 2022

Con el .bat

Code: Select all | Expand

call "%ProgramFiles%\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" x86
D:\Sistemas\Compiler\HarbourVS\bin\hbmk2 data\prg\proyectoVS.hbp -comp=msvc -run
 

Intentaré hacerlo portable para no tenerlo instalado

Me salió éste error: warning C4996: 'inet_addr': Use inet_pton() or InetPton() instead or defin
En ésta función

Code: Select all | Expand

#pragma BEGINDUMP
#include <hbapi.h> 
#include <winsock2.h>
#include <iphlpapi.h>
#include <icmpapi.h>

int hb_Ping( const char * cp )
{
    HANDLE hIcmpFile;
    unsigned long ipaddr;
    DWORD dwRetVal;
    char SendData[32] = "Data Buffer";
    LPVOID ReplyBuffer;
    DWORD ReplySize;

    ipaddr = inet_addr( cp );  //El error lo da en ésta línea
    if (ipaddr == INADDR_NONE)
        return 1;
    
    hIcmpFile = IcmpCreateFile();
    if (hIcmpFile == INVALID_HANDLE_VALUE)
        return 2;

    ReplySize = sizeof(ICMP_ECHO_REPLY) + sizeof(SendData);
    ReplyBuffer = (VOID*) malloc(ReplySize);
    if (ReplyBuffer == NULL)
        return 3;
        dwRetVal = IcmpSendEcho(hIcmpFile, ipaddr, SendData, sizeof(SendData), 
        NULL, ReplyBuffer, ReplySize, 1000);

    if (dwRetVal == 0)
        return 4;
    return 0;
}

HB_FUNC( HB_PING )
{
   hb_retni( hb_Ping( hb_parc( 1 ) ) );
}
#pragma ENDDUMP

 

Y éstos otros:
hbct.lib(dattime3.obj) : error LNK2005: ya se definió _HB_FUN_SETTIME en fivehc32.lib(DATETIME.obj)
hbct.lib(dattime3.obj) : error LNK2005: ya se definió _HB_FUN_SETDATE en fivehc32.lib(DATETIME.obj)
En ésta función:

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
 

Por ahora las he puesto en comentario

Gracias por la ayuda

[karinha]

Mira estimado:

https://stackoverflow.com/questions/366 ... deprecated

Regards, saludos.

[acuellar]

Muchas gracias Estimado Joao

Hice _ que indican pero no funcionan
Como es un warning no hay problema

Que parámetro o flag se pone en el .HBP para que no muestre los warning?

En la otra función, lo que hace es verificar la fecha y hora del SISTEMA.EXE que coloco en el FTP si es diferente al en ejecución lo actualiza.

He realizado _, sin obtener buen resultado.

Code: Select all | Expand

//He cambiado
   oInt:=tInternet():New()
  oFtp:=tFtp():New(cFtpSite,oInt,cUsuario,cPass)
 //Por éstas que no dan error
   oCon:=Turl():New("ftp://"+cusuario+":"+cpass+"@"+cftpsite)
   oFTP:=TIpClientFtp():New(oCon, .T.)
//En ésta me da error
    aFiles:=oFtp:Directory(cFile)  //cFile es SISTEMA.EXE
//Como se carga la tabla con el archivo? para obtener su fecha y hora
 

Gracias por la ayuda

[karinha]

Estimado Adhemar, como en el CLIPPER:

-m
-n
-w0 ou -w1 ó -w2 ó -w3
-es0 ó -es3
-compress
-oNomeDoExe
-strip

https://github.com/harbour/core/blob/ma ... bmk2.es.md

https://fivetechsupport.com/forums/view ... =6&t=41115

http://67.222.39.232/forums/viewtopic.php?t=39627

https://ebooksysoftware.com/clipper-en- ... n-harbour/

Manual en Português:

https://sagierp.com.br/devel/aulas/Harbour2ed.pdf

Regards, saludos.