Jump to content

Carlosdev

Members
  • Content count

    1
  • Joined

  • Last visited

Community Reputation

0 Comum

About Carlosdev

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Olá, não sou desenvolvedor Delphi e na empresa que trabalho temos componente em Visual Basic para realizar autenticação do usuário. Temos um sistema em Delphi feito por um cliente que precisa consumir nossa dll e o analista está com dificuldades. Alguém poderia me ajudar a converter esse código para Delphi? Desde já agradeço. Dim obj as Object Dim codigoRetornoLogin As Integer Dim mensagemLogin As String 'Instanciar objeto COM Set obj = CreateObject("DB_Seguranca.GER_SEG") 'Preencher Módulo, login e senha obj.modulo = "CONTRAT" obj.usuario.User_ID = txtLogin.Text obj.usuario.Senha = txtSenha.Text 'Validar login codigoRetornoLogin = obj.Valida_acesso() 'Se retorno for <> 0, significa login é inválido If (codigoRetornoLogin <> 0) Then 'Obtém a mensagem de erro para exibição ao usuário mensagemLogin = obj.ObterMensagemLogin(codigoRetornoLogin) 'Mata objeto COM da memória Set obj = Nothing 'Exibe mensagem de negócio ao usuário MsgBox mensagemLogin Exit Sub End If Set obj = Nothing 'Usuario autenticado com sucesso 'Segue a vida...
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.