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

[asimoes]

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

[fladimir]

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

Vc conseguiu resolver esta questão?

[fladimir]

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:

Código: Selecionar todos

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

Retorna FALSO mesmo existindo, se faço:

Código: Selecionar todos

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:

Código: Selecionar todos

...
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

[MARCELOG]

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

[MARCELOG]

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

[fladimir]

grato

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

Código: Selecionar todos

REQUEST __HB_EXTERN__