DLLINSCE32.dll - ICM... como validar???

21/02/2003

0

Oi galera!!!
Peguei o arquivo DLLINSCE32.ZIP do site http://www.sef.rj.gov.br/servicos/sintegra/page5.shtml#Aplicativo
onde tem um arquivo DLLINSCE32.dll que serve para fazer as consistêcias daqueles numeros do ICM para cada estado... tipo: 999/9999-99 (ou coisa parecida para o RS...), só que não consegui implementá-lo...

o help do arquivo diz o seguinte:
-----------inicio--------
Ao implementar a função, declará-la da seguinte forma :


type
TConsisteInscricaoEstadual = function (const Insc, UF: String): Integer;
stdcall;

.....

procedure TfrmInscDv.btnCalculaClick(Sender: TObject);
var
IRet, IOk, IErro, IPar : Integer;

LibHandle : THandle;
ConsisteInscricaoEstadual : TConsisteInscricaoEstadual;
begin

try
LibHandle := LoadLibrary (PChar (Trim (´DllInscE32.Dll´)));
if LibHandle <= HINSTANCE_ERROR then
raise Exception.Create (´Dll não carregada´);

@ConsisteInscricaoEstadual := GetProcAddress (LibHandle,

´ConsisteInscricaoEstadual´);
if @ConsisteInscricaoEstadual = nil then
raise Exception.Create(´Entrypoint Download não encontrado na Dll´);



IRet := ConsisteInscricaoEstadual (edtInscricao.Text,edtUF.Text);
if Iret = 0 then
MessageDlg (´Inscrição válida para
´+edtUf.Text,mtInformation,[mbOk],0)
else if Iret = 1 then
MessageDlg (´Inscrição inválida para ´+edtUf.Text,mtError,[mbOk],0)
else
MessageDlg (´Parâmetros inválidos´,mtError,[mbOk],0);
edtInscricao.SetFocus;


finally
FreeLibrary (LibHandle);
end;

end;
------------fim--------

ok... simplemente colei este código no meu programa...
a parte
type
TConsisteInscricaoEstadual = function (const Insc, UF: String): Integer;
stdcall;
colei logo após o INTERFACE

e o resto colei na IMPLEMENTATION...
só que ao tentar compilar aparece o seguinte erro
´;´ expected but ´.´ found
na linha:
procedure TfrmInscDv.btnCalculaClick(Sender: TObject);

e mais outros incontaveis erros...
o que pode estar acontecendo??? estou fazendo algo errado???

Aquele Abraço!!!
Tiago


Anonymous

Anonymous

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar