LEITURA DE DLL PESO32.DLL DANDO ERRO NO DELPHI XE2 (NO XE FUNCIONA NORMALMENTE)
Colegas,
Uso uma dll para ler o peso de uma balanca digital (balanca acores).
O sistema compilado no xe funciona normalmente a dll. mas no xe2 nem carrega o sistema. dah o seguinte erro: the procedure entry point LEPESO could not be located in the dynamic link library PESO32.DLL.
USO DA SEGUINTE FORMA:
FUNCTION CONFIGURARS (PSTR: PWIDECHAR): INTEGER; STDCALL; EXTERNAL PESO32.DLL;
FUNCTION LEPESO(PSTR: PWIDECHAR): INTEGER; STDCALL; EXTERNAL PESO32.DLL;
implementation
...
FILLCHAR(CPESO,40,#0);
FOR MIND := 1 TO LENGTH(MSTRBAL) DO
CPESO[MIND-1] := COPY(MSTRBAL,MIND,1)[1];
IF CONFIGURARS(@CPESO) = 1 THEN BEGIN
IF LEPESO(@CPESO) = 1 THEN BEGIN
STATUSBAR1.PANELS[0].TEXT := COPY(ANSISTRING(CPESO),0,7);
STATUSBAR1.PANELS[1].TEXT := PESO ESTáVEL;
END
ELSE CASE CPESO[5] OF
1 : STATUSBAR1.PANELS[2].TEXT := IMPOSSíVEL ABRIR A SERIAL;
2 : STATUSBAR1.PANELS[2].TEXT := IMPOSSIVEL MONTAR A CONFIGUR/DUPLICACAO DA PORTA;
3 : STATUSBAR1.PANELS[2].TEXT := NãO FOI POSSIVEL CONFIGURAR A SERIAL.;
4 : STATUSBAR1.PANELS[2].TEXT := NENHUM DADO ENVIADO PELO SP-2400.;
END;
END
ELSE
STATUSBAR1.PANELS[2].TEXT := NãO CONSEGUI CONFIGURAR A PORTA: +CPESO;
Alguem saberia o que posso fazer para fazer isso funcionar?
obs: funciona normalmente em delphi xe pra traz/ soh nao funciona em delphi xe2.
AGRADECIMENTOS ANTECIPADOS
aguardo
Uso uma dll para ler o peso de uma balanca digital (balanca acores).
O sistema compilado no xe funciona normalmente a dll. mas no xe2 nem carrega o sistema. dah o seguinte erro: the procedure entry point LEPESO could not be located in the dynamic link library PESO32.DLL.
USO DA SEGUINTE FORMA:
FUNCTION CONFIGURARS (PSTR: PWIDECHAR): INTEGER; STDCALL; EXTERNAL PESO32.DLL;
FUNCTION LEPESO(PSTR: PWIDECHAR): INTEGER; STDCALL; EXTERNAL PESO32.DLL;
implementation
...
FILLCHAR(CPESO,40,#0);
FOR MIND := 1 TO LENGTH(MSTRBAL) DO
CPESO[MIND-1] := COPY(MSTRBAL,MIND,1)[1];
IF CONFIGURARS(@CPESO) = 1 THEN BEGIN
IF LEPESO(@CPESO) = 1 THEN BEGIN
STATUSBAR1.PANELS[0].TEXT := COPY(ANSISTRING(CPESO),0,7);
STATUSBAR1.PANELS[1].TEXT := PESO ESTáVEL;
END
ELSE CASE CPESO[5] OF
1 : STATUSBAR1.PANELS[2].TEXT := IMPOSSíVEL ABRIR A SERIAL;
2 : STATUSBAR1.PANELS[2].TEXT := IMPOSSIVEL MONTAR A CONFIGUR/DUPLICACAO DA PORTA;
3 : STATUSBAR1.PANELS[2].TEXT := NãO FOI POSSIVEL CONFIGURAR A SERIAL.;
4 : STATUSBAR1.PANELS[2].TEXT := NENHUM DADO ENVIADO PELO SP-2400.;
END;
END
ELSE
STATUSBAR1.PANELS[2].TEXT := NãO CONSEGUI CONFIGURAR A PORTA: +CPESO;
Alguem saberia o que posso fazer para fazer isso funcionar?
obs: funciona normalmente em delphi xe pra traz/ soh nao funciona em delphi xe2.
AGRADECIMENTOS ANTECIPADOS
aguardo
Jose Soares
Curtidas 0