Uso da dll DllInscE32

[TerraSoftware]

Caros colegas, alguem tem algum exemplo do uso da DllInscE32.dll em xharbour?

Esta dll é distribuida no site sintegra.gov.br para validacao de inscricoes estaduais.

Se alguem puder me ajudar, fico agradecido.

[sygecom]

Exemplo abaixo:
Autor do Codigo: Reinaldo Henrique

Código: Selecionar todos

Function Valida_IE
local nRet  // se 0, valido, se diferente de 0, invalido

      nRet := VALIDA_INSCRICAOESTADUAL("623003679119","SP")
      ? "Resposta da DLL: ",iif(nRet==0,"Inscricao valida para SP","Inscricao invalida para SP")

      nRet := VALIDA_INSCRICAOESTADUAL("1018146530","PR")
      ? "Resposta da DLL: ",iif(nRet==0,"Inscricao valida para PR","Inscricao invalida para PR")
return

#pragma BEGINDUMP
#include "windows.h"
#include "hbapi.h"

typedef INT (WINAPI * _CONSISTEINSCRICAOESTADUAL)(
    const char *szInscr_Est,const char *szEstado);

HB_FUNC( VALIDA_INSCRICAOESTADUAL )
{
   HINSTANCE handle = LoadLibrary( "DllIns~1.Dll" );
   if ( handle )
   {
      const char *szInscr_Est = hb_parcx(1);
      const char *szEstado = hb_parcx(2);
      _CONSISTEINSCRICAOESTADUAL pFunc;

      pFunc = ( _CONSISTEINSCRICAOESTADUAL ) GetProcAddress( handle,"ConsisteInscricaoEstadual");
      hb_retni( pFunc( szInscr_Est,szEstado ));
      FreeLibrary( handle );
   }
}
#pragma ENDDUMP

[TerraSoftware]

Show de bola! )
Ficou muito bom.

Agora gostaria de saber onde posso encontrar literatura para compreender melhor como chamar dll's atraves de codigo em C. Já observei que várias rotinas são facilmente implementadas através de algoritimos em C. Gostaria de aprender mais sobre isso. Onde posso encontrar ajuda?

[sygecom]

Vai ter que estudar as API do xHarbour, na pasta \XHARBOUR\DOC tem algumas documentações a respeito, no mais pode usar os proprios codigo fonte da CVS do xharbour para estudar.