Jump to content

wandobh

Members
  • Posts

    4
  • Joined

  • Last visited

Everything posted by wandobh

  1. wandobh

    LDAP

    Marlon bom dia. Poderia me dizer o que estou fazendo de errado? http://forums.unigui.com/index.php?/topic/5587-error-login-form/
  2. I've done it and yet still the same error I started CoInitialize both servermodule as the mainmodule and does not work
  3. Can you help me? I have the following code in a login screen. procedure TUniLoginForm2.UniButton1Click(Sender: TObject); var adObject: IADs; Container : IADsContainer; User : IADsUser; hr : HREsult; begin CoInitialize(Nil); try hr := ADsGetObject('LDAP://<Domain>',IADsContainer,Container); if Failed(hr) then exit; adObject := Container.Create(LowerCase(edtUsuario.Text),'ActiveDirectoryUser') as IADs; adObject.QueryInterface(IID_IADsUser, User); CoInitialize(Self); CoUninitialize; if Failed(ADsOpenObject('LDAP://<Domain>', LowerCase(edtUsuario.Text), edtSenha.Text, ADS_SECURITY_INFO_OWNER, IADs, adObject)) Then ShowMessage('Login inválido!') Else ModalResult := mrOk; except on e: EOleException do begin if Pos('Falha de logon', e.Message) > 0 then ShowMessage('Login inválido!') else ShowMessage(e.Message); end; end; end; But the CoInitialize error was not called
  4. How to get the full version? I need alter application name (Title).
×
×
  • Create New...