infussolucoes / usercontrol-sd Goto Github PK

Boa tarde, como faço pra recuperar os dados da imagem do usuário que é salvo na tabela do banco de dados?

Já fiz vários tipos de consulta do tipo blob e em todas não consigo retornar a imagem salva no bd.

Gostaria de ajuda para conseguir retornar com a mesma.

Penso ser importante a adição de dois botões nesta tela.

Um é o Excluir e outro é o Excluir Todos.

Ambos têm a função de ajudar na manutenção para os casos
em que não foi possível que o UserControl removesse o usuário logado.

Olá!

O erro acontece por conta da coluna: UCImage.

Estou usando SQLServer 2008 R2 e para esse tipo de finalidade, o recomendado é utilizar o tipo: VARBINARY(MAX).

Olá bom dia.

Não estou conseguindo enviar e-email através de uma conta do Gmail

estou configurando da seguinte forma

smtp: smtp.gmail.com
porta: 465/587
AuthType: alsmtpClientAuthPlain
usuario : [email protected]

att

situação ao usar o instalador
desde já agradeço qualquer ajuda

segue log e ini do instalar
log_Delphi_XE3.txt
UCSWInstall.ini.txt

Outra boa ideia é disponibilizar um campo para cadastrar uma foto ou imagem do usuário.

Semelhante ao login do Windows.

Este campo poderá auxiliar em vários logais, e melhorar a experiência do usuário com o sistema.

Obs: Possíveis labels adicionados precisam respeitar as regras da linguagem (Português, Inglês e etc).

Ao usar o DBXConn com DB Firebird, utilizando dos nomes de tabelas e campos padrões, ocorre uma falha devido ao nome das tabelas não estarem em maiúsculo.

CheckDB está tentando adicionar os campos já existentes porque a rotina de busca a lista de campos esta com a lista vazia.
UCFindFieldTable -> FConnection.GetFieldNames(Tablename, TempList);

• Opção1: Desenvolvedor deve sobrescrever os nomes para maiúsculo direto no projeto.

UserControl1.TableUsers.TableName  := UpperCase(UserControl1.TableUsers.TableName);
UserControl1.TableRights.TableName := UpperCase(UserControl1.TableRights.TableName);

• Opção2: Ajustar fontes do componente para fazer esse ajuste se o banco for firebird.

procedure TUserControl.CheckBD;
begin
  if Assigned(UserSettings) then
  begin
    case UserSettings.BancoDados of
      Firebird: begin
                  FTableUsers.TableName := UpperCase(FTableUsers.TableName);
                  FTableRights.TableName := UpperCase(FTableRights.TableName);
                  FTableUsersLogged.TableName := UpperCase(FTableUsersLogged.TableName);
                end;
    end;
  end;

...

Olá Amigos,

Verifica a possibilidade de compatibilizar o UC com Lazarus. Séria muito interessante.

Obrigado,

Edson

Existe alguma correção para funcionar o instalador no delphi 12.0 e 12.1 Athens?

Boa tarde, a todos,
Ao adicionar Imagem no Login não salva, fica em branco

Boa tarde pessoal, estava passando por um problema e consegui identificar a causa, estou reportando caso alguém passe pelo mesmo problema e para que os colaboradores possam corrigir o problema.

Ao tentar instalar o componente com o instalador (atualizado) obtive o erro mencionado no título, tal problema é ocasionado pelo numero alto de caminhos no Library Path do Delphi.

O instalador do ACBR passava pelo mesmo problema e eles adicionaram uma propriedade “Utilizar arquivo de configuração” que corrigiu o problema…

Hoje o UserControl SW está com a versão: Versao 2.31 RC4.

Uma sugestão é modifica-lá para: Versao 2.4

A fim de diferenciar de outras versões espelhadas pela web.

Uma boa é ajustar o código para remover os alertas que dá ao compilar.

Assim ficará mais limpo, quando algum programador utilizar o UserControl em seus projetos.

creo que no es compatible con esta version de lazarus el proyecto usercontrol. Gracias!

Sugiro criar dois botões nas telas onde é possível conceder ou remover acessos.

Um botão será para abrir todos os itens da árvore.

Outro para contrair-los.

Acredito que isto facilitará a manipulação dos acessos.

Foi constatado que o UserControl está permitindo
excluir próprio usuário que está logado, sendo necessário
proibir a execução.

Não deixar excluir usuários que estão cadastrados na tabelas de usuários logados do UserControl

Ao executar o instalador, ele para no erro:

Embarcadero Delphi for Win32 compiler version 28.0 Copyright (c) 1983,2014 Embarcadero Technologies, Inc. C:\usercontrol-sd-master\source\Base\MsgsForm_U.pas(96) Fatal: F1026 File not found: 'C:\usercontrol-sd-master\Packages\Base\System.ImageList.dcu' Compilation failure Erro ao compilar o pacote "pckUserControl_RT.dpk".
log_Delphi_XE7.txt

E ao tentar compilar os pacotes manualmente os packages aparecem com:
rrequires ocontais e no final 'd.'

As units com os uses:
Buttons, Controls, Dialogs, ExtCtrls, Forms, Graphics, StdCtrls, ComCtrls,
reclamam a falta de um namespace (eu tive que colocar "Vcl." na frente para compilar, mas não sei se é o correto a se fazer)

O botão Filtrar a meu ver deverá ficar sempre habilitado.

Outra questão que ajudará bastante é poder ordenar os logs
pelas colunas do Grid, tanto em forma crescente quanto decrescente.

When I edit user (Change User - Alter) there is an error message "[FireDAC][Phys][FB]conversion error from string ''".
There is no chance to change any parameter on the Change User page.

Acesso(Permissões de usuário)

Ao clicar para expandir a raiz esta marcando/desmarcando o acesso que esta selecionado.

Quando esta selecionado um acesso e clica em qualquer parte da janela (Dentro do TreeView) o sistema esta marcando/desmarcado o acesso selecionado.

Será necessário realizar algum tratamento para evitar que isso ocorra.
Assim será minimizado problemas de revogar com conceder acessos por engano.

Uma opção que pode ajudar é poder filtrar por Nome, login ou e-mail.

Também poder ordenar clicando na grade vai ajudar muito para os casos em que há
muitos usuários.

Hoje não há opção para fazer uma busca por texto nos logs gerados,
o que torna complicada a analise quando há muitos registros para analisar.

Penso ser interessante um mecanismo que possibilite este tipo de filtragem.

Ola!
Fiz algumas tentativas para instalar o usercontrol no delphi 11 mas encontrei alguns problemas. Há alguma atualização prevista?

How do I use the InitialRights method?
UserContro1.Login.InitialLogin.InitialRights := ???

Não consigo instalar o controle de usuário de um PC com 64-bit delphi 10,2 .... eu apreciaria me ajudar a realizar nesta ... como Delphi e o sistema é 64its o que eu faço é compilar e, em seguida, instalar, mas não Eu aparecer em qualquer paleta de componentes e da instalação me diz Erro ao compilar ou Pacote "pckUCDataConnector.dpk". Aguardo a sua resposta ... obrigado

I corrected the MyDAC connector, How can I push the code to the repository (conectors para testar\UCMyDACConn) ? The MyDAC connector was not working with the last version of UserControl.
Thanks.
-marc-

Na grade que listas os eventos salvos no log, a célula onde a imagem aparece fixa com um fundo preto,
o correto deve ser exibir normalmente.

Boa tarde pessoal, estou tendo um problema com os hash gerados nas condições abaixo:

vKey1 := UCmd5.MD5Print(UCmd5.MD5String('actRelMovA1'));
vKey2 := UCmd5.MD5Print(UCmd5.MD5String('actRelMovA2'));
vKey3 := UCmd5.MD5Print(UCmd5.MD5String('actRelMovA3'));

mesmo sendo informações distintas, todas retorna o
hash := '9f5644dd13cbf7532c1a64f041d86476'.

Alguém já passou por isso?

estou usando a versao Rio 3.3.1

Function TMailUserControl.EnviaEmailTp(Nome, Login, USenha, Email,
Perfil: String; UCMSG: TUCMailMessage): Boolean;
var
MailMsg: TAlSmtpClient;

{$IF CompilerVersion >= 23}
MailRecipients: TALStringList;
MailHeader: TALEmailHeader;
{$ELSE}
MailRecipients : TStringlist;
MailHeader : TALSMTPClientHeader;
{$IFEND}
begin
Result := False;
if Trim(Email) = '' then
Exit;
MailMsg := TAlSmtpClient.Create;

{$IF CompilerVersion >= 23}
// MailMsg.OnStatus := OnStatus;
MailRecipients := TALStringList.Create;
MailHeader := TALEmailHeader.Create;
{$ELSE}
MailMsg := TAlSmtpClient.Create;
MailMsg.OnStatus := OnStatus;
MailRecipients := TStringlist.Create;
{$IFEND}

MailHeader.From := EmailRemetente;
MailHeader.SendTo := Email;
MailHeader.ContentType := 'text/html';
MailRecipients.Append(Email);
MailHeader.Subject := UCMSG.Titulo;

try
try
UCEMailForm := TUCEMailForm.Create(Self);
UCEMailForm.lbStatus.Caption := '';
UCEMailForm.Show;
UCEMailForm.Update;

  MailMsg.SendMail(ServidorSMTP, FPorta, EmailRemetente, MailRecipients,
    Usuario, Senha, fAuthType, MailHeader.RawHeaderText,
    ParseMailMSG(Nome, Login, USenha, Email, Perfil, UCMSG.Mensagem.Text));

  UCEMailForm.Update;
  Result := True;
except
  on e: Exception do
  begin
    UCEMailForm.Close;
    MessageDlg(e.Message, mtWarning, [mbok], 0);
    raise;
  end;
end;

finally
FreeAndNil(MailMsg);
FreeAndNil(MailHeader);
FreeAndNil(MailRecipients);
FreeAndNil(UCEMailForm);
end;
end;

Ao ir na tela de usuários logados e clicar em fechar e logo após tentar executar o
comando CheckMessages, irá ocorrer access violation.

Seria bom um componente de conexão com o MongoDB.....