wandobh
-
Posts
4 -
Joined
-
Last visited
Content Type
Profiles
Forums
Events
Posts posted by wandobh
-
-
I've done it and yet still the same error
I started CoInitialize both servermodule as the mainmodule and does not work
-
Can you help me?I have the following code in a login screen.procedure TUniLoginForm2.UniButton1Click(Sender: TObject);varadObject: IADs;Container : IADsContainer;User : IADsUser;hr : HREsult;beginCoInitialize(Nil);tryhr := 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)) ThenShowMessage('Login inválido!')ElseModalResult := mrOk;excepton e: EOleException dobeginif Pos('Falha de logon', e.Message) > 0 thenShowMessage('Login inválido!')elseShowMessage(e.Message);end;end;end;But the CoInitialize error was not called
-
How to get the full version?
I need alter application name (Title).
LDAP
in General
Posted
Marlon bom dia.
Poderia me dizer o que estou fazendo de errado?
http://forums.unigui.com/index.php?/topic/5587-error-login-form/