[Resolvido] Validação de IE

A receita federal disponibiliza a DLL DllInscE32 para efetuar a validação da IE, segue código para usar com a DLL:

Declare logo abaixo do type

TValidaIE = function (const IE, UF: String): Integer; stdcall;Segue a função:

function TForm1.ValidarIE(IE, uf: string): boolean;var ret: boolean; Handle: THandle; valida: TValidaIE;begin{ Efetua a validação da IE IE = n° da IE UF = Sigla do Estado}ret:=False;Handle:=LoadLibrary('DllInscE32.Dll');if Handle <> 0 then begin @valida:=GetProcAddress(Handle, 'ConsisteInscricaoEstadual'); if @valida <> nil then begin if valida(IE, uf) = 0 then ret:=True; end else Application.MessageBox('Dll não carregada !','IE',MB_OK or MB_APPLMODAL or MB_ICONWARNING); FreeLibrary(Handle); endelse Application.MessageBox('Não foi encontrada a dll !','IE',MB_OK or MB_APPLMODAL or MB_ICONWARNING);ValidarIE:=ret;end;Basta passar o n° da IE e a sigla do estado, sendo que a IE deve de ser informado somente os números...Para quem precisar da DLL pode-se baixar aqui.

Pequeno exemplo aqui.

A DLL pode ficar na mesma pasta onde estiver o .exe