WindevBrasil - Fórum Windev, Webdev e WindevMobile

Dúvidas e soluções => Windev, WebDev e WindevMobile => Tópico iniciado por: Arlindo Reis em Outubro 14, 2013, 06:06:35 pm

Título: "Gravando" Sessão no navegador
Enviado por: Arlindo Reis em Outubro 14, 2013, 06:06:35 pm

Olá pessoal,

neste link (http://www.windevbrasil.com.br/index.php/topic,1397.msg3469.html#msg3469) fiz uma rotina simples de login, funcionou perfeito no modo PHP e no AWP, entretanto, quando vou ler a variavel que possui uma determinada informação ela simplesmente vem nula...

Atualmente estou usando dessa forma

Ação do Btn de Entrar  :)

Código: [Selecionar]

Sessaoid = Null //declarei logo no começo do projeto
cTipLogin is string
cTipLogin = Login(cA1,cA2)
IF cTipLogin = "OK" THEN
    Sessaoid = cA1
Info(Sessaoid)
PageToFile()
PageDisplay(MeuPerfil)
END

Procedure de Login  :) :

Código: [Selecionar]

PROCEDURE Login(cX1,cX2)
HReadSeek(minhatabela,meuItem,cX1,hIdentical)
IF HFound(minhatabela) THEN
IF minhatabela.meuitem2 = cX2 THEN
RESULT "OK"
ELSE
Info("Dados de login incorreto")
END
ELSE
Info("Dados de login incorreto ou não foi encontrado no Banco de Dados.")
END

No PHP é mesma coisa e Funciona! Como diz o caboco aqui no meu estado: Que "lombra" é essa?

Título: Re:"Gravando" Sessão no navegador
Enviado por: Arlindo Reis em Outubro 15, 2013, 10:01:06 am

Olá pessoal,

achei uma solução bacana!

coloquei a Função CookieWrite na ação do Btn de Entrar:

Código: [Selecionar]

Sessaoid = Null //declarei logo no começo do projeto
cTipLogin is string
cTipLogin = Login(cA1,cA2)
IF cTipLogin = "OK" THEN
    Sessaoid = cA1
                CookieWrite("Cookie1",cA1,1)
PageDisplay(MeuPerfil)

E na página que carrego apenas verifico o "Cookie1" com CookieRead e passo a informação pra um Select ou faço a busca direta pelo HReadSeek

Fica então registrado, a quem possa interessar :D