Jump to content
Fivewin Brasil

Fwh 2.6 x Fwh 7

Marcio de Oliveira

By Marcio de Oliveira
in Programação

 Share

Recommended Posts

Marcio de Oliveira Newbie

Marcio de Oliveira

Posted
Posted

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.

Link to comment
Share on other sites
Marcio de Oliveira Newbie

Marcio de Oliveira

Posted
  • Author
Posted

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.

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

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

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

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

Link to comment
Share on other sites
Marcio de Oliveira Newbie

Marcio de Oliveira

Posted
  • Author
Posted

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.

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

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

Link to comment
Share on other sites
Marcio de Oliveira Newbie

Marcio de Oliveira

Posted
  • Author
Posted

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.

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

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

Link to comment
Share on other sites
Marcio de Oliveira Newbie

Marcio de Oliveira

Posted
  • Author
Posted

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.

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted 



#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



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

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



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Marcio de Oliveira
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Marcio de Oliveira
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

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.



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




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



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				
			
			



		

	


	
		

			


	
	

		

	
	
	
	
	
		
	

			
				
				

	
		

			
Join the conversation

			

	
				
					You can post now and register later.
				
				If you have an account, sign in now to post with your account.
				
			

	
		

	




	
	
		
	
		
	
		
	
	
		
		
	
	

		

		


	
		Guest
	


		

			
				
					
				
					
						
    
							
  • 
								


	
	
	
	

								
							
    • 
						

					
				
					
				
			
			
				
					
						
							
						
						



    

		
		

			
		

		
			
 Reply to this topic...

		
		

			

				
					×
					  Pasted as rich text.   Paste as plain text instead
				
			

		

		

			

				  Only 75 emoji are allowed.
			

		

		

			

				×
				  Your link has been automatically embedded.   Display as a link instead
			

		

		

			

			

		

		

			

				×
				  Your previous content has been restored.   Clear editor
			

		

		

			

				×
				  You cannot paste images directly. Upload or insert images from URL.
			

		

		


	

		

			
			

				Loading...
			

		
		
	



	

	

		

			×
			
		

		

	



						
					
				
					
				
					
				
			
			
    
				
					
						
					
						
					
						
							
  • 
								

    
	

    
								
							
    • 
						
					
				
				
					
  • 

	

    • 
				
			

		

	



			
		

	

	
		

			

				
					


    
          Share
    

    

        
        
            

            
        
    


				
				
                

                




				
			

		

	







	

		
			
				Go to topic listing
			
		
	

	




						


					

					


					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    •