Autor Tópico: "Gravando" Sessão no navegador  (Lida 1923 vezes)

Arlindo Reis

  • Sr. Member
  • ****
  • Mensagens: 291
  • Karma: +0/-0
"Gravando" Sessão no navegador
« Online: 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?
Att,

Arlindo Reis
AR-Sistemas R/S - http://arsistemas.com.br

Arlindo Reis

  • Sr. Member
  • ****
  • Mensagens: 291
  • Karma: +0/-0
Re:"Gravando" Sessão no navegador
« Responder #1 Online: 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
Att,

Arlindo Reis
AR-Sistemas R/S - http://arsistemas.com.br