FiveTech Software tech support forums

Code: Select all  Expand view

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

acuellar wrote:Estimados

Muchas gracias por responder

Tengo la versión portable de VS2019

Descargar de aquí
https://drive.google.com/file/d/1EmHXCJUlpuLISg9M1KRLWTAg2lkWPkye/view?usp=share_link

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

Gracias por la ayuda

acuellar wrote:Es 32Bit Estimado Joao

Code: Select all  Expand view

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
 

Code: Select all  Expand view

#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

 

Code: Select all  Expand view

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
 

Code: Select all  Expand view

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