FiveTech Software tech support forums

... 4 ] = 0;    return szHex;}//----------------------------------------------------------------------------//HB_FUNC( I2HEX ) // nValue --> cHexValue{  hb_retc( u2Hex( hb_parni( 1 ) ) );}

Buenas tardes Antonio, FWHX 9.11

I2Hex() es una función de FWH

Que versión de FWH estás usando ?

Buenas noches, tengo un modulo para que utiliza la función I2HEX, pero me manda el siguiente error de ejecución. [img] [IMG]http://img220.imagevenue.com/loc617/th_558997966_ErrorI2HEX_122_617lo.jpg[/img] [/img] Y mi proyecto contiene la FIVEHC.LIB [img] ...

Gracias por todo Anonio, ya quedo solucionado lo de la creacion de la DLL.

Una última pregunta, donde encuentro las funciones: I2HEX() y L2HEX().

Gracias de nuevo.

... GlobalFree() GlobalGetAtom() GlobalLock() GlobalRealloc() GlobalSize() GlobalUnlock() HasResources() HelpSearch() HexToDec() HideCaret() HToNs() I2Hex() InportWord() InsertMenu() InterruptUnRegister() InvalidateRect() InvertRect() IsAnsi() IsAnsiLower() IsAnsiUpper() IsCdRom() IsChild() IsDefButton() ...

... HelpCtrlhWnd() HelpIndex() HelpPopup() HelpSearch() HelpSetPos() HelpSetTopic() HTMLHelp() SetHelpFile() SetHelpPopup() WinHelp() C2Hex() L2Hex() I2Hex() D2Bin() alert() aMidiDevices() aTcBrwPosRect() SET HELPFILE TO SET HELP TOPIC TO

Bueno, o así para que no devuelva ceros delante:

function l2hex(nvar)
local cRet := i2Hex( nhiword(nvar) )+ i2hex(nloword(nvar))
do while substr(cRet,1,1) = '0'
cRet := substr(cRet,2)
enddo
return cRet

Debe ser un error de OR.C, si no lo solucionas de otro modo, prueba a crear tu propia funcion L2hex(), así:

function l2hex(nvar)
return i2Hex( nhiword(nvar) )+ i2hex(nloword(nvar))

Saludos

... := StrToken( cFileSystem, 1, Chr( 0 ) ) ::cDriveType := acDrive[ nDiskType ] ::cNumSerie := Left ( L2Hex( nSerial ), 4) + "-" +; Right( I2Hex( nSerial ), 4 ) ::nBBSector := nBBSector ::nSBCluster := nSBCluster ::nTotalSpace := nTotalClusters * nSBCluster * nBBSector ::nFreeSpace := nSBCluster ...