FiveTech Software tech support forums

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.

... IsZoomed()
JoyGetDevCaps()
JoyGetNumDevs()
JoyGetPos()
JoyGetThreshold()
JoyReleaseCapture()
JoySetCapture()
KeyFast()
KeyToggle()
KillTimer()
L2Hex()
lAnd()
LargeFonts()
LastMenu()
LbxDrawItem()
LbxGetItem()
LbxGetSelItems()
LbxMeasure()
lChDir()
lClose()
lCreat()
Lfn2sfn()
lGetTextLine ...

... and commands:

GetHelpFile()
GetHelpPopup()
GetHelpTopic()
HelpCtrlhWnd()
HelpIndex()
HelpPopup()
HelpSearch()
HelpSetPos()
HelpSetTopic()
HTMLHelp()
SetHelpFile()
SetHelpPopup()
WinHelp()
C2Hex()
L2Hex()
I2Hex()
D2Bin()
alert()
aMidiDevices()
aTcBrwPosRect()

SET HELPFILE TO
SET HELP TOPIC TO

softruz wrote:Muy buenas foro, ¿alguien me podria decir como puedo sumar muchos numero en hexadecimal ?

Una forma:

nTotal := 0
AEval( aHex, {|h| nTotal += HexToDec( h ) } )
?L2Hex( nTotal )

Saludos.

Manuel Mercado

c_se:=l2hex(nSerialHD("C:\"))

Esto funciona bien incluso en W98, mi recomendación es que además generes un PIN de activación y encryptes todo..

saludos,

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

Antonio,

Testando L2Hex() contida em ..\source\function\or.c, utilizando o exemplo abaixo estou obtendo um valor diferente.


#include "fivewin.ch"

function Main()

local nHd:=359532552, xHd:=''

//nHd:=nSerialHD()
xHd:=L2Hex( nHd )

msginfo( xHd ...

... cLabel , 1, Chr( 0 ) )
::cFileSystem := StrToken( cFileSystem, 1, Chr( 0 ) )
::cDriveType := acDrive[ nDiskType ]
::cNumSerie := Left ( L2Hex( nSerial ), 4) + "-" +;
Right( I2Hex( nSerial ), 4 )

::nBBSector := nBBSector
::nSBCluster := nSBCluster
::nTotalSpace := nTotalClusters ...

... ch"

////////////////////////
FUNCTION Main( cDrive )

LOCAL nSerial
local cHex

DEFAULT cDrive := "C:"

nSerial := nSerialHD(cDrive)

cHex := L2HEX(nSerial)
cHex := LEFT(cHex,4) + "-" +RIGHT(cHex,4)

MSGINFO(cHex)

RETURN (0)
/////////////////////////
STATIC FUNCTION L2HEX(nDeciNum)

LOCAL cHex ...