Bom dia, pessoal Será que ninguém tem um dica?
Valeu André 2008/6/18 Andre Farias <[EMAIL PROTECTED]>: > 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]
