LINK : fatal error LNK1000: Internal error during LIB::SearchSaludos,
Adhemar Cuéllar
Saludos,
Adhemar Cuéllar
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
Fwh 26.03 64 bits + Harbour 64 bits 3.2dev( r2602281433) + MSVC64
Estimado Adhemar,
Vuelve a correr el instalador de VS2019 y selecciona la opción reparar
Saludos,
Adhemar Cuéllar
acuellar wrote:Estimados32 ó 64 Bits?
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
Es 32Bit Estimado Joao
Saludos,
Adhemar Cuéllar
acuellar wrote:Es 32Bit Estimado JoaoEstimado 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.
Gracias Estimado Joao
Estoy buscando la VS2022
Espero alguien la comparta.
Saludos,
Adhemar Cuéllar
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#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 ENDDUMPFunction 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 FtpFecExeNewSaludos,
Adhemar Cuéllar
//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 horaSaludos,
Adhemar Cuéllar