none
Instanciar um objeto de uma DLL externa RRS feed

  • Pergunta

  • Eu não sei elaborar bem o título, mas vamos lá.

    Tenho uma DLL que fiz no C#, ela tem um método chamado GetRastreio, eu importei ela no VB6 (já fiz toda configuração de registrar a DLL).

    Agora no VB6 (nem sei programar 1 linha, estou testando para passar para a pessoa que programa em VB6, só preciso chamar e testar mesmo, então eu fiz assim vejam:

    Dim obj As New JADLOG.NotfisBean
    Dim ret As New JADLOG.TrackingConsultaDto
    
    ret.Return = "ret recebe valor!"
    MsgBox ret.Return
    
    ret = obj.GetRastreio("00011145557", "123456", "111111")
    
    MsgBox ret.Return

    O ret tem vários atributos, eu peguei 1 para aparecer no MsgBox só para testar, mas da erro na linha:

    ret = obj.GetRastreio("00011145557", "123456", "111111")

    Alguém pode me ajudar?


    quarta-feira, 16 de maio de 2018 19:41

Respostas

Todas as Respostas

  • Se eu faço assim funciona veja:

    ret.Return = obj.GetRastreio("00011145557", "123456", "111111").Return

    no caso eu tenho 10 atributos, o Return é 1/10 itens que tenho, terei que repetir o comando de busca 10x? Acredito que não, pelo menos no C# não, rs'

    Manjo nada de VB6.


    quarta-feira, 16 de maio de 2018 20:03
  • Desta forma aqui funciona, mas olha que feio fica:

    ret.Numero= obj.GetRastreio("00011145557", "123456", "111111").Numero
    ret.Status= obj.GetRastreio("00011145557", "123456", "111111").Status
    ret.Recebedor= obj.GetRastreio("00011145557", "123456", "111111").Recebedor
    ret.Documento= obj.GetRastreio("00011145557", "123456", "111111").Documento
    ret.ChaveAcesso= obj.GetRastreio("00011145557", "123456", "111111").ChaveAcesso
    ret.Cte= obj.GetRastreio("00011145557", "123456", "111111").Cte
    ret.Serie= obj.GetRastreio("00011145557", "123456", "111111").Serie
    ret.DataEmissao= obj.GetRastreio("00011145557", "123456", "111111").DataEmissao
    ret.Valor= obj.GetRastreio("00011145557", "123456", "111111").Valor

    ele faz várias chamadas, atoa, kkkkkk

    quarta-feira, 16 de maio de 2018 20:37
  • Só coloquei um Set na frente do ret, era simples!

    Não é só por ret = GetRastreio, tem que por Set = GetRastreio.

    quinta-feira, 17 de maio de 2018 13:31