Como invocar DLL COM feita em VB no Delphi?
16/03/2017
0
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 e não consegue invocar nossa dll.
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...
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 e não consegue invocar nossa dll.
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...
Carlos Araujo
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)