Como Usar Peso32.dll
Preciso de ajuda para fazer a integração do meu programa em delphi com a balança da EPM SP4000 usando a dll Peso32.dll
Achei um exemplo na NET para usar a função: function ConfiguraRs(buffer:LPSTR): integer; stdcall; external ''''''''''''''''C:\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\Progs\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\SGeraldo\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\peso32.dll'''''''''''''''';
Coloquei no meu programas assim:
....
procedure BitBtn1Click(Sender: TObject);
procedure Vendedor1Click(Sender: TObject);
procedure Motorista1Click(Sender: TObject);
function ConfiguraRs(buffer:LPSTR): integer; stdcall; external ''''''''''''''''C:\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\Progs\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\SGeraldo\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\peso32.dll'''''''''''''''';
private
{ Private declarations }
public
.....
Porém dá o seguinte erro:
[DCC Error] UMenu.pas(84): E2169 Field definition not allowed after methods or properties
[DCC Error] UMenu.pas(89): E2029 '''''''''''''''','''''''''''''''' or '''''''''''''''':'''''''''''''''' expected but identifier ''''''''''''''''public'''''''''''''''' found
[DCC Error] UMenu.pas(92): E2029 '''''''''''''''','''''''''''''''' or '''''''''''''''':'''''''''''''''' expected but ''''''''''''''''END'''''''''''''''' found
Uso Delphi XE2 e não sei como fazer a função funcionar corretamente, alguém pode me ajuda?
Achei um exemplo na NET para usar a função: function ConfiguraRs(buffer:LPSTR): integer; stdcall; external ''''''''''''''''C:\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\Progs\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\SGeraldo\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\peso32.dll'''''''''''''''';
Coloquei no meu programas assim:
....
procedure BitBtn1Click(Sender: TObject);
procedure Vendedor1Click(Sender: TObject);
procedure Motorista1Click(Sender: TObject);
function ConfiguraRs(buffer:LPSTR): integer; stdcall; external ''''''''''''''''C:\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\Progs\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\SGeraldo\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\peso32.dll'''''''''''''''';
private
{ Private declarations }
public
.....
Porém dá o seguinte erro:
[DCC Error] UMenu.pas(84): E2169 Field definition not allowed after methods or properties
[DCC Error] UMenu.pas(89): E2029 '''''''''''''''','''''''''''''''' or '''''''''''''''':'''''''''''''''' expected but identifier ''''''''''''''''public'''''''''''''''' found
[DCC Error] UMenu.pas(92): E2029 '''''''''''''''','''''''''''''''' or '''''''''''''''':'''''''''''''''' expected but ''''''''''''''''END'''''''''''''''' found
Uso Delphi XE2 e não sei como fazer a função funcionar corretamente, alguém pode me ajuda?
João Sales
Curtidas 0
Respostas
Felipe Morais
11/07/2018
Seu código está incompleto e repleto de erros de sintaxe. Poste um código mínimo verificável para podermos ajudar você. Abraços!
GOSTEI 0