coiote Posted December 5, 2009 Report Share Posted December 5, 2009 Qual erro de sintaxe há nestas linhas compiladas com: Buildh Cupom3 cupom3(684) Syntax error E0030 // Controle da Porta DLL32 FUNCTION Daruma_Registry_ControlePorta( ControlePorta AS STRING ) AS LONG PASCAL; FROM "Daruma_Registry_ControlePorta" LIB 'Daruma32.dll' O mesmo erro se repete em várias linhas seguintes. Quote Link to comment Share on other sites More sharing options...
coiote Posted December 5, 2009 Author Report Share Posted December 5, 2009 Qual erro de sintaxe há nestas linhas compiladas com: Buildh Cupom3 cupom3(684) Syntax error E0030 // Controle da Porta DLL32 FUNCTION Daruma_Registry_ControlePorta( ControlePorta AS STRING ) AS LONG PASCAL; FROM "Daruma_Registry_ControlePorta" LIB 'Daruma32.dll' O mesmo erro se repete em várias linhas seguintes. Quote Link to comment Share on other sites More sharing options...
sambomb Posted December 7, 2009 Report Share Posted December 7, 2009 Tente assim: nLib32 := LoadLib32("Daruma32.DLL") // Controle da Porta DLL32 FUNCTION Daruma_Registry_ControlePorta( ControlePorta AS STRING ) AS LONG PASCAL; FROM "Daruma_Registry_ControlePorta" LIB nLib32 // Fecha porta serial DLL32 function DARUMA_FECHAR_SERIAL( ); //-- Samir 7/10/2009 AS _INT PASCAL FROM "Daruma_FI_FechaPortaSerial"; LIB nLib32 id=code>id=code>MSN: samirabreu@hotmail.comid=black> Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 Quote Link to comment Share on other sites More sharing options...
coiote Posted December 7, 2009 Author Report Share Posted December 7, 2009 Olá Samir. Não funcionou. Deu ambiguous reference. Então mandei o prg para o seu email. Se você puder dar uma compilada poderá ver o erro acontecendo e ficará mais fácil me ajudar. Eu agradeço muito por qualquer idéia que você tiver. Quote Link to comment Share on other sites More sharing options...
sambomb Posted December 8, 2009 Report Share Posted December 8, 2009 citação:Olá Samir. Não funcionou. Deu ambiguous reference. Então mandei o prg para o seu email. Se você puder dar uma compilada poderá ver o erro acontecendo e ficará mais fácil me ajudar. Eu agradeço muito por qualquer idéia que você tiver. id=quote>id=quote> nLib32 := LoadLib32("Daruma32.DLL") // Controle da Porta DLL32 FUNCTION Daruma_Registry_ControlePorta( ControlePorta AS STRING ); AS LONG PASCAL FROM "Daruma_Registry_ControlePorta"; LIB nLib32 // Fecha porta serial DLL32 function DARUMA_FECHAR_SERIAL( ); //-- Samir 7/10/2009 AS _INT PASCAL FROM "Daruma_FI_FechaPortaSerial"; LIB nLib32 id=code>id=code>MSN: samirabreu@hotmail.comid=black> Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.