Página 1 de 1
Como mapear uma unidade de rede de dentro do Clipper
Enviado: 20 Mai 2005 17:30
por helio
Prezados Colegas gostaria de saber se existe possibilidade de Mapear uma unidade de rede por dentro do sistema em Clipper informando o caminho por uma variavel ou um campo de um DBF.
Muito obrigado pela atencao antecipadamente.
Helio Beltrao Jr.
helio@insercom.com.br
Re: Talvez isso resolva!
Enviado: 20 Mai 2005 23:11
por binho_fasa
Hélio, não sei é bem isso o que você quer, mas assim funciona!
Código: Selecionar todos
LOCAL cLetra, cServer, cRecurso, cComando
cLetra := "F:"
cServer := "SERVER"
cRecurso := "D"
cComando := "NET USE " + cLetra + " \\" + cServer + "\" + cRecurso
//Equivalente a NET USE F: \\SERVER\D
!(cComando)
[]´s
Fabio Souza.
Enviado: 21 Mai 2005 09:35
por marcos.gurupi
O problema q nesse caso aparece na tela do programa a resposta do sistema operacional. Como fazer para q n apareca a mensagem do sistema na tela do programa?
Marcos Roberto.
Enviado: 21 Mai 2005 13:24
por kenew
Vc pode usar um recurso do DOS, se vc colocar no final o sinal de maior e o nome NUL ou qualquer nome para criar um arquivo com o resultado.
Exemplo:
cComando := "NET USE " + cLetra + " \\" + cServer + "\" + cRecurso + "> NUL"
//Equivalente a NET USE F: \\SERVER\D >NUL
!(cComando)
Enviado: 22 Mai 2005 18:22
por helio
Muito Obrigado pela dica.
Enviado: 23 Mai 2005 14:13
por software_facil
boa tarde,
para mapear uma unidade de rede, ou uma impressora, ou qualquer outro recurso de uma rede, use estas funções da lib ct.lib :
mapeia uma unidade de rede para dados
NetRedir("R:", "\\servidor_dados\dados$")
set default to r:\sisloja
cancela o mapeamento (ao final da aplicação)
NetCancel("R:")
capturar em lpt2 uma impressora da rede
NetRedir( "LPT2:", "\\Servidor_print\HP4100tn" )
Set Device To Print
Set Printer To LPT2
liberar a impressora
Set Printer To
Set Device To Screen
NetCancel( "LPT2:" )
espero ter ajudado, se tiver alguma dúvida, no meu site vc poderá encontrar o meu e-mail e msn.
abraços
Enviado: 23 Mai 2005 14:34
por Mário Isa
e, no caso do DOS, não se esqueça de incluir a cláusula /YES no final para evitar que ele venha a dizer que já existe a conexão atual e assim jogue para o DOS uma pergunta:
nesse caso faça:
NET USE S: \\COMPUTADOR\ESTACAO /YES > NUL
e para mapear impressoras faça:
NET USE LPTx: \\COMPUTADOR\IMPRESSORA /YES > NUL
onde x significa o num da porta que se quer mapear
no caso de Windows XP, para mapear impressoras faça:
mytelsys := savescreeen(0,0,24,79)
NET USE LPTx: /YES // (para deletar a conexão)
NET USE LPTx: \\COMPUTADOR\IMPRESSORA /YES > NUL
restscreen(0,0,24,79,mytelsys)
Essa salvamento da tela é só para evitar bagunças na tela, provocadas pelas mensagens do XP (Desobediente)
Mário
:xau
Enviado: 23 Mai 2005 14:36
por Mário Isa
e, no caso do DOS, não se esqueça de incluir a cláusula /YES no final para evitar que ele venha a dizer que já existe a conexão atual e assim jogue para o DOS uma pergunta:
nesse caso faça:
NET USE S: \\COMPUTADOR\ESTACAO /YES > NUL
e para mapear impressoras faça:
NET USE LPTx: \\COMPUTADOR\IMPRESSORA /YES > NUL
onde x significa o num da porta que se quer mapear
no caso de Windows XP, para mapear impressoras faça:
mytelsys := savescreeen(0,0,24,79)
NET USE LPTx: /YES // (para deletar a conexão)
NET USE LPTx: \\COMPUTADOR\IMPRESSORA /YES > NUL
restscreen(0,0,24,79,mytelsys)
Essa salvamento da tela é só para evitar bagunças na tela, provocadas pelas mensagens do XP (Desobediente)
Mário
:xau