DLLINSCE32.dll - ICM... como validar???
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
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
Curtidas 0