[delphi-br] DllInscE32(validador Inscr. Est. da Receita) com Delphi 2009

Tue, 22 Sep 2009 15:10:39 -0700 

Pessoal não estou conseguindo validar as inscrições no Delphi 2009 com a DLL
do governo.

Se executo o programa exemplo <http://www.sintegra.gov.br/DLL3.zip> (
http://www.sintegra.gov.br/DLL3.zip) dá tudo certo.
Mas se dou um build no projeto e executo, não passa nenhuma inscrição! Todas
aparecem como inválida.

Alguém já passou por isso?

CODE:
//--------------------------------------------------------------------------------------------------------------------------------
*type*
  TValidaIE  = *function* (*const* Insc, UF: *String*): Integer; *stdcall*;

*function* TfwkDMCustomIB.ValidaInscEst(aInscEst, _UF: *string*;
*out*aMensagem:
*String*): Boolean;
var
  x: *String*;
  Handle: THandle;
  ValidaIE: TValidaIE;
begin
    Handle :=  LoadLibrary('DllInscE32.Dll');
    *if* Handle <> 0 *then*
    begin
      @ValidaIE  :=  GetProcAddress(Handle, 'ConsisteInscricaoEstadual');
      *if* @ValidaIE  <> nil *then*
      begin
        *if* ValidaIE(aInscEst,_UF) <> 0 *then*
          aMensagem := 'Inscrição Estadual inválida!';
      end
      else
        aMensagem := 'Falha ao carregar DllInscE32.dll';
    end
    else
      aMensagem := 'DLL não encontrada: DllInscE32.dll';
  finally
    FreeLibrary (Handle);
  end;
end;
//--------------------------------------------------------------------------------------------------------------------------------

Charlestown


[As partes desta mensagem que não continham texto foram removidas]

Responder a