[LDAP]

Marlon bom dia.

Poderia me dizer o que estou fazendo de errado?

http://forums.unigui.com/index.php?/topic/5587-error-login-form/

[Error login form]

I've done it and yet still the same error

I started CoInitialize both servermodule as the mainmodule and does not work

[Error login form]

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

 

[Can't Change Port To 80]

How to get the full version?

 

I need alter application name (Title).