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