Qual erro de sintaxe há nestas linhas compiladas com:
Buildh Cupom3
cupom3(684) Syntax error E0030
A linha 684 é esta:
DLL32 FUNCTION Daruma_Registry_ControlePorta( ControlePorta AS STRING ) AS LONG PASCAL;
FROM "Daruma_Registry_ControlePorta" LIB 'Daruma32.dll'
O programa emite cupons fiscais e está num único prg que segue em anexo.
Erro de sintaxe ao usar DLL Daruma
Moderador: Moderadores
2 Mensagens • Página 1 de 1
Erro de sintaxe ao usar DLL Daruma
por ricardo-barros » 06 Dez 2009 22:01
- Anexos
-
CUPOM3.PRG- (47.68 KiB) Baixado 148 vezes
-
ricardo-barros Usuário NÃvel 3 
- Mensagens: 104
- Data de registro: 29 Out 2009 19:12
- Cidade/Estado: Fortaleza
- Curtiu: 25 vezes
- Mens.Curtidas: 1 vez
Re: Erro de sintaxe ao usar DLL Daruma
por rochinha » 16 Dez 2009 01:03
Amiguinho,
Eu geralmente faço da seguinte forma:
No inicio do programa defino uma variavel que irá manter o nome de minha .DLL:
Uso desta forma porque muitas vezes ao chamar diretamente no comando DLL32 FUNCTION a .DLL eu obtinha erro.
Quanto as chamadas as funções da .DLL não use mais LONG e sim _INT assim:
Veja que fiz a chamada à DarumaDLL e isto pode ou não fazer efeito sobre os problemas.
Portanto altere somente o LONG por _INT e refaça a compilação
Eu geralmente faço da seguinte forma:
No inicio do programa defino uma variavel que irá manter o nome de minha .DLL:
#include "fivewin.ch"
#include "dll.ch"
#define DarumaDLL "Daruma32.dll"
function main(pCOM)
...
Uso desta forma porque muitas vezes ao chamar diretamente no comando DLL32 FUNCTION a .DLL eu obtinha erro.
Quanto as chamadas as funções da .DLL não use mais LONG e sim _INT assim:
DLL32 FUNCTION Daruma_Registry_ControlePorta( ControlePorta AS STRING ) AS _INT PASCAL;
FROM "Daruma_Registry_ControlePorta" LIB DarumaDLL
Veja que fiz a chamada à DarumaDLL e isto pode ou não fazer efeito sobre os problemas.
Portanto altere somente o LONG por _INT e refaça a compilação
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
-
rochinha Membro Master 
- Mensagens: 4547
- Data de registro: 18 Ago 2003 20:43
- Cidade/Estado: São Paulo - Brasil
- Curtiu: 806 vezes
- Mens.Curtidas: 246 vezes
Ver tópicos ativos •
2 Mensagens • Página 1 de 1
Quem está online
Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
