Como invocar DLL COM feita em VB no Delphi?

16/03/2017

0

VB

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...
Carlos Araujo

Carlos Araujo

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar