Boa tarde, Rubem
Achei essa função LogonUserSSPI pesquisando no google.
http://www.delphichm.com/html/Api/20070703/273.html
Não entendi direito seu funcionamento, mas sei que está utilizando funções
da DLL SECUR32.DLL.
Chamei ela apenas para testar, afinal, no despero, vai que dá certo...hehehe
Abraços
André
2008/6/18 Rubem Nascimento da Rocha <[EMAIL PROTECTED]>:
>
> Que função LogonUserSSPI() é essa? Nem na documentação da API do Windows
> faz-se menção a ela!
> Sds.
>
> ________________________________
> > To: delphi-br@yahoogrupos.com.br
> > From: [EMAIL PROTECTED]
> > Date: Wed, 18 Jun 2008 13:18:24 -0300
> > Subject: Re: [delphi-br] Autenticação do Usuário no Delphi
> >
> >
> > Davi,
> >
> > Para efeitos de testes fiz uma aplicação contendo 2 componentes TEdits,
> uma
> > para o usuário e outro para senha e 3 botões de autenticação.
> >
> > No Botão 1 coloquei o seguinte código:
> >
> > StringToWideChar(Self.edUserID.Text,NomUsu,Length(Self.edUserID.Text));
> >
> StringToWideChar(Self.edPassword.Text,SenUsu,Length(Self.edPassword.Text));
> > hr:=ADsOpenObject('LDAP:///CN=' + 'Users' +
> > ',DC= DOMINIO>',NomUsu,SenUsu,ADS_PROMPT_CREDENTIALS,IADs,obj);
> >
> > if Succeeded(hr) then
> > ShowMessage(obj.Name+','+obj.ADsPath)
> > else
> > Showmessage(inttostr(hr));
> >
> > O retorno para usuário e senha válidos é sempre um valor negativo
> > (-2147016672)
> >
> > No evento OnClick do Botão 2:
> >
> > if
> > LogonUserSSPI(edUserID.Text,,edPassword.Text)=True
> > then
> > showmessage('Conectou')
> > else
> > ShowMessage('Não conectou');
> >
> > Retorna 'Não Conectou' para usuário e senha válidos .
> >
> > No evento OnClick do Botão 3:
> >
> > if LogonUser(Pchar(edUserID.Text),
> > Pchar('10.10.20.230'),
> > Pchar(edPassword.Text),
> > LOGON32_LOGON_NETWORK,
> > LOGON32_PROVIDER_DEFAULT,
> > handle)=TRue then
> > showmessage('Conectou')
> > else
> > ShowMessage('Não conectou');
> >
> > Retorna 'Não Conectou' para usuário e senha válidos .
> >
> > Ainda estou na luta pra resolver esse problema.
> > Tem alguma coisa errada na configuração das funções de autenticação?
> > Qualquer ajuda é bem vinda.
> >
> > Grato
> >
> > André
> >
> > 2008/6/11 Davi Eduardo Borges Wall <[EMAIL PROTECTED]>:
> >
> >> Defina "NADA FUNCIONA", qual erro?
> >>
> >>
> >>
> >> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> Em
> >> nome de Andre Farias
> >> Enviada em: quarta-feira, 11 de junho de 2008 13:51
> >> Para: delphi-br@yahoogrupos.com.br
> >> Assunto: Re: [delphi-br] Autenticação do Usuário no Delphi
> >>
> >>
> >>
> >> ninguém sabe?
> >>
> >> 2008/6/11 algf103 <[EMAIL PROTECTED]
> >> <mailto:agfarias%40gmail.com<agfarias%2540gmail.com>
> >
> >>>:
> >>
> >>>
> >>> E ai Pessoal,
> >>>
> >>> Estou desenvolvendo uma aplicação Delphi que precisa autenticar o
> >>> usuário cada vez que roda o programa, mas não estou conseguindo.
> >>>
> >>> Já chamei a função LogonUser, ADsOpenObject e LogonUserSSPI e nada
> >>> funciona.
> >>>
> >>> LogonUser(Pchar(edUserID.Text),Pchar(edEnderIP.Text),
> >>> Pchar(edPassword.Text),
> >>> LOGON32_LOGON_INTERACTIVE,
> >>> LOGON32_PROVIDER_DEFAULT,
> >>> handle);
> >>>
> >>> hr:=ADsOpenObject('LDAP:///CN=' + 'Users'
> >>> + ',DC=', NomUsu, SenUsu,
> >>> ADS_PROMPT_CREDENTIALS, IADs, obj);
> >>>
> >>> O sistema operacional do servidor é windows 2003 server e a
> >>> aplicação cliente roda no windows xp professional.
> >>>
> >>> Que pode estar acontecendo? Teria alguma maneira de chamar o prompt
> >>> do Windows Authentication para fazer essa autenticação?
> >>>
> >>> Qualquer ajuda é bem-vinda.
> >>>
> >>> Obrigado
> >>>
> >>> André
> >>>
> >>>
> >>>
> >>
> >> [As partes desta mensagem que não continham texto foram removidas]
> >>
> >>
> >>
> >>
> >>
> >> [As partes desta mensagem que não continham texto foram removidas]
> >>
> >>
> >> ------------------------------------
> >>
> >> --
> >> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM>>>>>
> >>
> >>
> >>
> >>
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> _________________________________________________________________
> Confira vídeos com notícias do NY Times, gols direto do Lance,
> videocassetadas e muito mais no MSN Video!
> http://video.msn.com/?mkt=pt-br
> ------------------------------------
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
