USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Long para String e String para Long
Carlos
não registrado
Postada em 22/07/2006 01:07 hs   
alguem ae sabe como eu faço isso?
exemplo:
eu quero ler um valor do registro, ae uso a API RegQueryValueEx, ela retorna o conteudo do valor, porém retorna em Long, mas se eu abrir o registro e for ver o que está la, é uma string.
alguem sabe como trazer p/ string este long, e fazer o contrario tb?
     
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
Postada em 22/07/2006 07:10 hs            
Acho que assim
 
strVAR = Trim(Str(Trim(longVAR)))   ' LIMPA TODOS OS ESPAÇOS e MUDA P/String
longVAR = CLng(Val(strVAR))          ' MUDA UMS STRING DE NUMEROS PARA Long
 
vlu//
 
     
Carlos
não registrado
Postada em 22/07/2006 13:11 hs   
vlw ae pela atenção... + n funciono, a q transforma LONG para STR eu testei com a função de API q le o registro, mas e n retornou o que eu esperava, mas pode ser q o erro esteje na chamada da API, agora a q transforma STR para LONG eu testei usando um textbox msm p/ pegar a STR, mas sempre retorna 0. vou colocar a minha chamada da função que faz a leitura do registro, se alguem puder ajudar, agradeço.

Const HKEY_LOCAL_MACHINE = &H80000002
Dim Result As Long
Dim strBuf As String
Dim lDataBufSize As Long
RegOpenKeyEx HKEY_LOCAL_MACHINE,
     
Carlos
não registrado
Postada em 22/07/2006 13:12 hs   
cortou... aki vai o code

Const HKEY_LOCAL_MACHINE = &H80000002
Dim Result As Long
Dim strBuf As String
Dim lDataBufSize As Long
RegOpenKeyEx HKEY_LOCAL_MACHINE, "SOFTWARE", 0, 1, Result
strBuf = String(250, Chr(0))
lDataBufSize = Len(strBuf)
Label1.Caption = Trim(Str(Trim(RegQueryValueEx(Result, "(Padrão)", 0, 0, ByVal strBuf, lDataBufSize))))

se alguem puder me ajudar, agradeço mto.
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 22/07/2006 15:27 hs            
acho q ele está voltando o valor em hexadecimal amigo
 
tenta assim:
 
Label1.Caption = Hex(RegQueryValueEx(Result, "(Padrão)", 0, 0, ByVal strBuf, lDataBufSize))
ou assim:
 
Label1.Caption = Hex(clng(RegQueryValueEx(Result, "(Padrão)", 0, 0, ByVal strBuf, lDataBufSize)))
 
veja se dá certo...
 
t+
     
Jose.Niz
CURITIBA
PR - BRASIL
Postada em 22/07/2006 18:18 hs         
Vocês estão usam a API de fora completamente errada! De onde saiu a idéia que o valor lido no registro é retornado pela API RegQueryValueEx???
No seu caso o valor lido pela API RegQueryValueEx é armazenada em strBuf e em lDataBufSize esta tamanho da string lida.

Consulte o uso dessa API no API Guide - www.allapi.net.
     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página