Clipper On Line • Ver Tópico - Função SERVER DATETIME: netio_funcexec( "HB_DATETIME" )

Função SERVER DATETIME: netio_funcexec( "HB_DATETIME" )

Discussão sobre Banco de Dados e RDDs para Clipper/[x]Harbour.

Moderador: Moderadores

 

Função SERVER DATETIME: netio_funcexec( "HB_DATETIME" )

Mensagempor asimoes » 19 Jul 2010 11:03

Senhores,

Estou começando a testar o netio e já consegui com sucesso estabelecer conexão e abertura de tabelas.
A minha aplicação tem ncessidade de saber a data e hora do servidor netio para controlar algumas operações.
Eu vi que tem este exemplo SERVER DATETIME: netio_funcexec( "HB_DATETIME" ) mas está ocorrendo um erro, que retorna nulo e interrompe a minha aplicação.
O que deve ser feito para funcionar esta funcionalidade?

[]´s
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Função SERVER DATETIME: netio_funcexec( "HB_DATETIME" )

Mensagempor fladimir » 02 Mai 2017 20:59

Olá Alexandre, estou fazendo testes agora com o NETIO, pra decidir se vou de LETODB ou NETIO.

Vc conseguiu resolver esta questão?
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

Função SERVER DATETIME: netio_funcexec( "HB_DATETIME" )

Mensagempor fladimir » 03 Mai 2017 00:04

Acho q entendi um pouco, tipo qdo uso NetIO_FuncExec( "Funcao", "Parametro")

Sendo q o primeiro parametro, pelo q eu entendi seria uma função q tem q existir no fonte do programinha q esta "escutando" como servidor de dados, correto?

Se sim, não ficaria meio complicado pq por exemplo, tentei fazer o seguinte:

NetIO_FuncExec('File', 'NomeArquivo.Extensao') 


Retorna FALSO mesmo existindo, se faço:

NetIO_FuncExec('File', 'net:IPADDRES:PORTA:PASTA\NomeArquivo.Extensao')


Tb retorna Falso.... Não teria q funcionar? Pq se faço conforme teu exemplo da função q vc criou "Existe" abaixo transcrita e executo assim dá certo:

...
cArq := "clientes.dbf"
? "O arquivo " + cArq + if( NeIO_FuncExec('Existe',cArq), '"", " não ") + " existe"
// Resultado:  O arquivo clientes.dbf existe
...

********************************************************************************
FUNCTION EXISTE(cArq) --------------> Esta fução compõe o fonte do Server q esta rodando (fornecendo os arquivos digamos assim)
   LOCAL lExiste
   lExiste:=File("Pasta"+HB_OSPathSeparator()+cArq)
RETURN lExiste
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

Função SERVER DATETIME: netio_funcexec( "HB_DATETIME" )

Mensagempor MARCELOG » 11 Mai 2017 10:31

Olá,
no módulo servidor crie uma função que retorne a data e hora como texto. Algo assim:

function mydatetime()
return hb_ttoc(hb_datetime(),'YYYY-MM-DD','HH:MM’)

No módulo cliente chame a função, e pronto

x:=netio_getconnection(cIp,nPorta,,cSenha)

cMydatetime:=NETIO_FUNCEXEC(x,'mydatetime')

? cMydatetime

Espero ter ajudado.

MarceloG
Água mole em pedra dura tanto bate que até espirra!
Avatar de usuário

MARCELOG
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 546
Data de registro: 15 Mar 2005 16:54
Cidade/Estado: Divinópolis/MG
Curtiu: 0 vez
Mens.Curtidas: 6 vezes

Função SERVER DATETIME: netio_funcexec( "HB_DATETIME" )

Mensagempor MARCELOG » 11 Mai 2017 10:51

Olá,
quanto às dúvidas anteriores, o seguinte:

No módulo servidor, além das funções/ procedures próprias do netio, você pode criar as suas próprias funções e procedures.

no servidor:

function teste(a,b,aArray) // Atenção 3 parâmetros
return hb_ntos(val(a)+val(b)+val(aArray[1])+aArray[2])

no cliente:

n:=val(netio_funcexec('teste','1','2',{'3',2})) // Atenção 3 parâmetros

Após o nome da função/procedure, os demais dados são os parâmetros.

Tenho enviado e recebido do servidor, sem problemas, texto e arrays contendo texto e números.

MarceloG
Água mole em pedra dura tanto bate que até espirra!
Avatar de usuário

MARCELOG
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 546
Data de registro: 15 Mar 2005 16:54
Cidade/Estado: Divinópolis/MG
Curtiu: 0 vez
Mens.Curtidas: 6 vezes

Função SERVER DATETIME: netio_funcexec( "HB_DATETIME" )

Mensagempor fladimir » 12 Mai 2017 15:32

grato

Pra funcionar o File normal do harbour como passei tem q no servidor estar assim:

REQUEST __HB_EXTERN__
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes




Retornar para Banco de Dados

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro