1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Como pegar o Retorno da SAT.dll ( TANCA )

Discussão em 'Progress 4GL' iniciado por geraldo, Novembro 18, 2019.

  1. geraldo

    geraldo Sem Pontuação

    Olá Fórum!

    Estou usando o seguinte programa:

    PROCEDURE ConsultarSAT EXTERNAL "C:\SAT\SAT.dll":

    DEF INPUT PARAM sessao AS LONG.
    DEF RETURN PARAM retorno AS memptr.

    END PROCEDURE.

    def var w-tam-reg as i.
    DEF VAR W_RETORNO AS memptr.
    def var w-sessao as i format "999999".
    w-sessao = time.


    RUN ConsultarSAT (w-sessao, OUTPUT W_RETORNO).
    w-tam-reg = get-size ( w_retorno ). //pegando o tamanho do retorno
    message w-tam-reg view-as alert-box.

    A Alert box com o tamanho do retorno vem zerado, mas se eu extrair o log do aparelho ( pelo programa da tanca ) consta que a operação ( ConsultarSAT ) foi realizada.

    Alguém poderia me ajudar a pegar esse retorno em tempo de execução ?
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    não mexo muito com esse lado de DLL, mas ali nos parametros da procedure, não seria fed output param ao inves de def return ??????????
  3. geraldo

    geraldo Sem Pontuação

    Boa tarde Richard, ao alterar para DEF RETURN e executar volta com o erro: " DLL procedure ConsultarSAT using an uninitialized MEMPTR. (3233) "

Compartilhe esta Página