VolSerial()

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

MARCELOG
Usuário Nível 4
Usuário Nível 4
Mensagens: 546
Registrado em: 15 Mar 2005 16:54
Localização: Divinópolis/MG

VolSerial()

Mensagem por MARCELOG »

Olá Forum,
o projeto já está quse pronto, falta agora um mecanismo para registro do sistema.
Utilizei a função VolSerial(), mas me deparei com um problema relativo ao retorno da mesma.
O comando/ função VOL do msdos informa o número 1275-1203, mas a VolSerial() retorna 309662211.00 .
Qual é a diferença?

MarceloG
angeiras
Usuário Nível 3
Usuário Nível 3
Mensagens: 134
Registrado em: 21 Nov 2005 20:53
Localização: Olinda/PE

Mensagem por angeiras »

Ola,

A funcao VOL do MS-DOS retorna o valor em hexadecimal, enquanto a VolSerial() retorna como numerico. Pra testar, entra na calculadora do windows pede pra ver como cientifica, digita o valor em HEX e pede pra passar pra DEC.

[]s
Angeiras
MARCELOG
Usuário Nível 4
Usuário Nível 4
Mensagens: 546
Registrado em: 15 Mar 2005 16:54
Localização: Divinópolis/MG

Mensagem por MARCELOG »

Obrigado Angeiras,
dúvida solucionada.
Todavia, me deparei com outro problema.
Na aplicação em rede, como obter o serial no hd onde está instalado o sistema?

Obrigada.

MarceloG
marcos.gurupi
Usuário Nível 4
Usuário Nível 4
Mensagens: 939
Registrado em: 06 Jul 2004 11:53
Localização: Gurupi-TO

Mensagem por marcos.gurupi »

Eu uso um dbf com os seriais criptografados d todos os hd lincenciado, ou seja, c o usuario instalar o sistema em um hd q n tenha na relacao ele n entra no sistema. Espero ter ajudado.

Marcos Roberto
Avatar do usuário
Antonio
Usuário Nível 3
Usuário Nível 3
Mensagens: 347
Registrado em: 14 Ago 2003 17:33
Localização: Sao Paulo - SP
Contato:

Mensagem por Antonio »

O trecho Left( hb_argv(0) , rat( "\" , hb_argv(0)) -1) + '\' retorna o diretorio onde esta sendo executada a aplicação. Passe-o como argumento para a função VolSerial() pode ser que resulte no que voce espera.
Antonio Carlos
Harbour 3.2 (20180213)
Hwgui 2.20 3b | PostGresql 9.5 | ADO/ODBC
MARCELOG
Usuário Nível 4
Usuário Nível 4
Mensagens: 546
Registrado em: 15 Mar 2005 16:54
Localização: Divinópolis/MG

Mensagem por MARCELOG »

Caro Antônio,
mais uma vez, obrigado pela disposição em ajudar.
Todavia, a dica não deu certo, a função volserial() com os argumentos do local da aplicação retorna erro.
Obrigado.

MarceloG
Responder