Marcio de Oliveira Posted September 3, 2009 Report Share Posted September 3, 2009 Boa noite gente, estou com um problema de assombração aqui, é o seguinte; eu compilo meu projeto no xdev com Fwh 2.6 Xhb 99.3 Simplex o software funciona só na minha maquina em outra não! ele não abre o programa, mas se compilo com Fwh 7 Xhb 1.01 ele funciona na minha e na outra maquina, porém ele da o erro qdo chamo as funções Closecomm(),OpenComm()..., mas no fwh 2.6 ele não da este erro na minha maquina!, oq faço? FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. Quote Link to comment Share on other sites More sharing options...
Marcio de Oliveira Posted September 3, 2009 Author Report Share Posted September 3, 2009 Boa noite gente, estou com um problema de assombração aqui, é o seguinte; eu compilo meu projeto no xdev com Fwh 2.6 Xhb 99.3 Simplex o software funciona só na minha maquina em outra não! ele não abre o programa, mas se compilo com Fwh 7 Xhb 1.01 ele funciona na minha e na outra maquina, porém ele da o erro qdo chamo as funções Closecomm(),OpenComm()..., mas no fwh 2.6 ele não da este erro na minha maquina!, oq faço? FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 4, 2009 Report Share Posted September 4, 2009 Closecomm(),OpenComm() Sinceramente, não entendi sua dúvida. Na versão 2.6 do fivewin, Closecomm(),OpenComm()..., não existia ainda, sendo que você deveria usar a HBCOMM.LIB. Reformule a pergunta, pois não está dando para entende-la, com clareza. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Marcio de Oliveira Posted September 4, 2009 Author Report Share Posted September 4, 2009 Estas funcoes funcionam bem no fwh 2.6 sem a HBCOMM.LIB, mas no fwh 7 não funcionam! FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 4, 2009 Report Share Posted September 4, 2009 citação:Estas funcoes funcionam bem no fwh 2.6 sem a HBCOMM.LIB, mas no fwh 7 não funcionam! FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. id=quote>id=quote>Bem, não sei o que voce esta fazendo. Então, na versão 7.12, vá ao \SAMPLES e veja: TESTCOMM.PRG João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Marcio de Oliveira Posted September 4, 2009 Author Report Share Posted September 4, 2009 Resumindo, não consigo usar o OpenComm() no Fwh 7, qdo chamo a funcao OpenComm(), ele me retorna a mensagem "o programa encontrou um problema e precisa ser fechado" segue o codigo; function InitCOMM() local cDcb, nError, nBytes local nComm:= OpenComm( "COM4", 1024, 128 ) return nComm FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. Quote Link to comment Share on other sites More sharing options...
Marcio de Oliveira Posted September 4, 2009 Author Report Share Posted September 4, 2009 O estanho é que no Fwh 2.6 funciona normal! FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 4, 2009 Report Share Posted September 4, 2009 A porta COM4 existe na maquina? Não falta uma placa SERIAL com a porta COM4?? Trate a rotina, conforme o exemplo do \SAMPLES Não lembro em qual versão, mas o Linares mudou o tratamento das PORTAS SERIAIS. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 04/09/2009 13:16:15 Quote Link to comment Share on other sites More sharing options...
Marcio de Oliveira Posted September 4, 2009 Author Report Share Posted September 4, 2009 Sim a porta com4 é a do modem, e esta da mesma forma que no samples Testcomm.prg. FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. Quote Link to comment Share on other sites More sharing options...
Marcio de Oliveira Posted September 4, 2009 Author Report Share Posted September 4, 2009 Agora estou abrindo a porta primeiro assim local nComm:= OpenComm( "COM4", 1024, 128 ) EnableCommNotification( nComm,oPesq:hWnd,20,20) if ! BuildCommDcb( "COM1:9600,n,8,1", @cDcb ) MsgStop( "Error BUILD!" ) return .f. endif Ela Abre normal a porta, faz a leitura do bina, retorna o numero certo do fone, só que o erro está qdo eu tento fechar a porta, eu faço assim: CloseComm(nComm), então ele da este erro no programa. FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 4, 2009 Report Share Posted September 4, 2009 COLOQUE nComm, como STATIC, que o modulo reconhece em qualquer lugar. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Marcio de Oliveira Posted September 4, 2009 Author Report Share Posted September 4, 2009 Ja Esta, e não funciona! FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 4, 2009 Report Share Posted September 4, 2009 citação:Ja Esta, e não funciona! FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. id=quote>id=quote>cOMO ESTA static?? local nComm:= OpenComm ???? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Marcio de Oliveira Posted September 4, 2009 Author Report Share Posted September 4, 2009 ja coloquei como somente nComm e nComm:=OpenComm("COM4", 1024, 128 ), e ambas não funcionam. FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. Quote Link to comment Share on other sites More sharing options...
Marcio de Oliveira Posted September 4, 2009 Author Report Share Posted September 4, 2009 Atualmente esta como "Static nComm" FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 4, 2009 Report Share Posted September 4, 2009 poste o modulo, deixe eu ver onde voce errou... João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Marcio de Oliveira Posted September 4, 2009 Author Report Share Posted September 4, 2009 STATIC nPedi, nClie, cNome, cEnde, cPeri, nBair, cBair, cCida, cUF, cCEP, cFone,; cPess, dData, cHini, cHfim, nSecs, nSubt, nTaxa, nDesc, nTota, nVpgo, nTrco, aCompra, aUltimo,; aPess, mLista, oVndTmp, cFpgt, lAppend, cObse, nComm, cTerminal, oTerminal,; aCod, aDes, aQtd, pUni, pTot, oPdd, oBr2, oCod, oQtd, lCadastrar DEFINE FONT oFont NAME "Arial Narrow" SIZE 0, -16 BOLD DEFINE DIALOG oPesq RESOURCE "PESQ_TEL" oPesq:bCommNotify = { | nComm, nStatus | BytesAtPort( nComm, nStatus ) } REDEFINE GET oCt38 VAR cFone ID 38 OF oPesq FONT oFont REDEFINE GET oCt34 VAR cEndr ID 34 OF oPesq FONT oFont nRec := 1 REDEFINE LISTBOX oBrEnt ; FIELDS STRZERO(aTempos[nRec,1],10),; // Código aTempos[nRec,2],; // Endereço TRANS(aTempos[nRec,3], "99:99"),; // Hora TRANS(aTempos[nRec,4], "99:99"),; // Entrega Val2Min(aTempos[nRec,5])+" min."; // Tempo ID 103 OF oPesq ; ON DBLCLICK (ConcluirPed(@aTempos, nRec), lLoop := .T., oPesq:End()) ; ALIAS NIL oBrEnt:aHeaders := {"Código", "Endereço", "Hora", "Entrega", "Tempo"} oBrEnt:aColSizes := {70,210,60,60,60} oBrEnt:bLogicLen := {|| len(aTempos )} oBrEnt:bGoTop := {|| nRec := 1 } oBrEnt:bGoBottom := {|| nRec := len(aTempos) } oBrEnt:bSkip := { | nWant, nDo | ; nDo := Min( Max( nWant, 1 - nRec ), ; Len( aTempos ) - nRec ), ; nRec += nDo, nDo } REDEFINE BUTTON oCt39 ID 39 OF oPesq ACTION (ConcluirPed(aTempos, nRec), lLoop := .T., oPesq:End()) REDEFINE BUTTON oCt33 ID 33 OF oPesq ACTION (lSeek := .t.,oPesq:End()) REDEFINE BUTTON oCt36 ID 36 OF oPesq ACTION (lSeek := .f., oPesq:End()) ACTIVATE DIALOG oPesq CENTERED on Init initcomm(ncomm) oFont:End() CloseComm(nComm) Static function InitCOMM() local cDcb, nError, nBytes ,X local nComm:= OpenComm( "COM4", 1024, 128 ) EnableCommNotification( nComm,oPesq:hWnd,20,20) return nComm FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 4, 2009 Report Share Posted September 4, 2009 vou olhar, veja PHONE.PRG João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Marcio de Oliveira Posted September 4, 2009 Author Report Share Posted September 4, 2009 esqueci deste Static function BytesAtPort( nComm, nStatus ) local cBuffer := Space(30 ) ReadComm( nComm, @cBuffer ) // <<<<---- program will lock here cFone:=AllTrim( substr(cBuffer,6,8) ) Return cFone FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 4, 2009 Report Share Posted September 4, 2009 #include "FiveWin.ch" STATIC nComm, cTerminal, oTerminal FUCNTION SUA_FUNCTION() PRIVATE nPedi, nClie, cNome, cEnde, cPeri, nBair, cBair, cCida, cUF, ; cCEP, cFone, cPess, dData, cHini, cHfim, nSecs, nSubt, nTaxa, ; nDesc, nTota, nVpgo, nTrco, aCompra, aUltimo, aPess, mLista, ; oVndTmp, cFpgt, lAppend, cObse, aCod, aDes, aQtd, pUni, pTot, ; oPdd, oBr2, oCod, oQtd, lCadastrar DEFINE FONT oFont NAME "Arial Narrow" SIZE 0, -16 BOLD DEFINE DIALOG oPesq RESOURCE "PESQ_TEL" oPesq:bCommNotify = { | nComm, nStatus | BytesAtPort( nComm, nStatus ) } REDEFINE GET oCt38 VAR cFone ID 38 OF oPesq FONT oFont REDEFINE GET oCt34 VAR cEndr ID 34 OF oPesq FONT oFont nRec := 1 REDEFINE LISTBOX oBrEnt ; FIELDS STRZERO(aTempos[nRec,1],10),; // Código aTempos[nRec,2],; // Endereço TRANS(aTempos[nRec,3], "99:99"),; // Hora TRANS(aTempos[nRec,4], "99:99"),; // Entrega Val2Min(aTempos[nRec,5])+" min."; // Tempo ID 103 OF oPesq ; ON DBLCLICK (ConcluirPed(@aTempos, nRec), lLoop := .T., oPesq:End()) ; ALIAS NIL oBrEnt:aHeaders := {"Código", "Endereço", "Hora", "Entrega", "Tempo"} oBrEnt:aColSizes := {70,210,60,60,60} oBrEnt:bLogicLen := {|| len(aTempos )} oBrEnt:bGoTop := {|| nRec := 1 } oBrEnt:bGoBottom := {|| nRec := len(aTempos) } oBrEnt:bSkip := { | nWant, nDo | ; nDo := Min( Max( nWant, 1 - nRec ), ; Len( aTempos ) - nRec ), ; nRec += nDo, nDo } REDEFINE BUTTON oCt39 ID 39 OF oPesq ACTION (ConcluirPed(aTempos, nRec), lLoop := .T., oPesq:End()) REDEFINE BUTTON oCt33 ID 33 OF oPesq ACTION (lSeek := .t.,oPesq:End()) REDEFINE BUTTON oCt36 ID 36 OF oPesq ACTION (lSeek := .f., oPesq:End()) //-> AQUI, nComm, ainda nao existe ACTIVATE DIALOG oPesq CENTERED on Init initcomm() oFont:End() ? nComm CloseComm(nComm) RETURN NIL Static function InitCOMM() local cDcb, nError, nBytes ,X //-> aqui, nComm, passa a EXISTIR nComm := OpenComm( "COM4", 1024, 128 ) ? nComm //-> ?? Veja PHONE.PRG EnableCommNotification( nComm,oPesq:hWnd,20,20) //?? return nComm id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 4, 2009 Report Share Posted September 4, 2009 Ideal, é que voce não deixe a PORTA COM fixa. Crie uma VARIAVEL PUBLICA onde o usuario informa nos parametros qual é a porta serial e voce captura. Ex.: cPorta := "COM"+nPorta //COM1, 2,3,4, etc Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Marcio de Oliveira Posted September 4, 2009 Author Report Share Posted September 4, 2009 Bom , ja tentei de tudo, mas infelizmente nao funciona em Fwh 7, somente no Fwh 2.6, Agora acabei de Compilar em Fwh 2.6 funciona perfeitamente na minha maquina, mas qdo instalo o programa em outra maquina, ele abre somente a tela inicial e sai, eu não consigo entender porque só funciona em minha maquina? sendo que copio todo o projeto para outra e compilo nao retorna nem um erro gera o .exe mas nada. FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 4, 2009 Report Share Posted September 4, 2009 Verifique isto: oPesq:bCommNotify = { | nComm, nStatus | BytesAtPort( nComm, nStatus ) João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Marcio de Oliveira Posted September 4, 2009 Author Report Share Posted September 4, 2009 mesma coisa. FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 4, 2009 Report Share Posted September 4, 2009 citação:mesma coisa. FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3. id=quote>id=quote>SINISTRO. E SEGUINDO A LOGICA DE PHONE.PRG?? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe 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.