[Fabio Matte]

Estou com o mesmo problema REQUIRE com dois R (RREQUIRES) estou instalando manual e consegui organizar o primeiro pacote base codigo na mão mas o segundo pckUserControl_RT nao abre nem projeto ja da erro direto e trava.

E quando é pelo instalador já da erro no primeiro pacote.

[Fabio Matte]

Giovani, olhei o meu projeto todo.
Dei um *.dcu, e não há nada do usercontrol dentro da pasta fontes do projeto.
Eliminei a Pasta DCU com as DCUs do projeto, removi completamente o UserControl e instalei novamente (Antes disso, removi tudo do usercontrol da pasta BPL de User\PUblic\Documents\RadStudio\17.0\BPL.)

Mas não sei o que aconteceu.
Fiz até uma nova maquina virtual e instalei do zero, e da do mesmo jeito, a anos que uso o usercontrol e nunca tinha me acontecido isso.

Minhas compilações são em 32, nem tenho nada de 64 bits no projeto (nunca compilei para 64)

[Fabio Matte]

Então Giovani, eu até instalei uma maquina virtual, com o Delphi Seattle, instalei o UserControl de boa, alguns projetos compilam 100%.

Porém, um está dando o erro apresentado acima.
E estranho que antes não dava, e do nada aconteceu.

Eu ja tinha feito tudo o que você me passou, mesmo assim, nada.
Já to queimando a cabeça aqui porque é um ERP e preciso atualizar ele.

[Fabio Matte]

Bom Dia Meu amigo, é seguinte, já passei por esse mesmo problema que você.
A solução encontrada foi colocar o componente de conexão com o Banco de Dados e os componentes do User Control no formulário principal do projeto (Form com os Menus de acesso), essa até agora foi a unica forma que eu encontrei de fazer funcionar corretamente e sem dar os erros.

[Fabio Matte]

Já consegui galera.

Como fiz:

1 – Copiei o Arquivo UCmd5.pas da pasta source do UserControl, para a pasta do meu Projeto.

2 – Adicionei o UCmd5.pas a biblioteca do meu projeto;
3 – Criei a seguinte função:

function MD5Sum(strValor: String): String;
begin
  Result := UCmd5.MD5Print(UCmd5.MD5String(strValor));
end;

4 – Usei o Codigo para poder pegar a senha q informei no meu edtSenha.text:

Resultado := MD5Sum(edtSenha.Text); 
// Criptgrafa a senha para comparar com a do banco (campo ucpassword da tabela uctabusers)

Resultado2 := MD5Sum(IntToStr(IUsuario)+edtUsuario.Text+MD5Sum(edtSenha.Text));
// Essa gera a key salvo no campo uckey da tabela uctabuser)

Após isso só tratar o que vc precisa, que no meu caso, foi comparar a senha do banco com a qual eu informei via sistema.

• Esta resposta foi modificada 7 anos, 11 meses atrás por Fabio Matte.

[Fabio Matte]

Esse é o testando e funcionando em Delphi Seattle 10
Unidac_XE10

[Fabio Matte]

Obrigado, estou acessando agora e começar os testes.

[Fabio Matte]

Funcionou perfeitamente obrigado.

[Fabio Matte]

Como completo meu código aqui

 private
    { Private declarations }

  property UserControl: TUserControl;

  public
    { Public declarations }

  end;

ele diz que está faltando alguma coisa nessa property e eu nao estou conseguindo fazer, vc tem um exemplo ou pode completar pra mim ter uma ideai.

[Autor]

Posts