Jump to content
Fivewin Brasil

Phone.prg

betovsp

By betovsp
in Programação

 Share

Recommended Posts

betovsp Rookie

betovsp

Posted
Posted

Boa Tarde.

Ainda estou com problemas de discagem para modems que não são onboard. Na pasta sample do fw, tem um arquivo chamado phone.prg, se eu o compilo, funciona, mas se coloco em minha aplicação, não efetua a discagem.

Abaixo tem um arquivo contendo os dois prgs para analise.

Desde já agradeço.

http://geocities.yahoo.com.br/betovsp_rp/teste.zip

Abraços.

Beto

Msn: betovsp@hotmail.com

Skype: betovsp

Alternativo: betovsp@terra.com.br

CL53B + FW2.0d + @ SAY/GET + BLINKER 7

Ribeirão Preto/SP

Link to comment
Share on other sites
betovsp Rookie

betovsp

Posted
  • Author
Posted

Boa Tarde.

Ainda estou com problemas de discagem para modems que não são onboard. Na pasta sample do fw, tem um arquivo chamado phone.prg, se eu o compilo, funciona, mas se coloco em minha aplicação, não efetua a discagem.

Abaixo tem um arquivo contendo os dois prgs para analise.

Desde já agradeço.

http://geocities.yahoo.com.br/betovsp_rp/teste.zip

Abraços.

Beto

Msn: betovsp@hotmail.com

Skype: betovsp

Alternativo: betovsp@terra.com.br

CL53B + FW2.0d + @ SAY/GET + BLINKER 7

Ribeirão Preto/SP

Link to comment
Share on other sites
  • 2 weeks later...
kapiaba Enthusiast

kapiaba

Posted
Posted

citação:

Boa Tarde.

Ainda estou com problemas de discagem para modems que não são onboard. Na pasta sample do fw, tem um arquivo chamado phone.prg, se eu o compilo, funciona, mas se coloco em minha aplicação, não efetua a discagem.

Abaixo tem um arquivo contendo os dois prgs para analise.

Desde já agradeço.

http://geocities.yahoo.com.br/betovsp_rp/teste.zip

Abraços.

Beto

Msn: betovsp@hotmail.com

Skype: betovsp

Alternativo: betovsp@terra.com.br

CL53B + FW2.0d + @ SAY/GET + BLINKER 7

Ribeirão Preto/SP

id=quote>id=quote>

Beto... Estais usando BINA?

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Skype: fw_kapiaba

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites
betovsp Rookie

betovsp

Posted
  • Author
Posted

citação:

citação:

Boa Tarde.

Ainda estou com problemas de discagem para modems que não são onboard. Na pasta sample do fw, tem um arquivo chamado phone.prg, se eu o compilo, funciona, mas se coloco em minha aplicação, não efetua a discagem.

Abaixo tem um arquivo contendo os dois prgs para analise.

Desde já agradeço.

http://geocities.yahoo.com.br/betovsp_rp/teste.zip

Abraços.

Beto

Msn: betovsp@hotmail.com

Skype: betovsp

Alternativo: betovsp@terra.com.br

CL53B + FW2.0d + @ SAY/GET + BLINKER 7

Ribeirão Preto/SP

id=quote>id=quote>

Beto... Estais usando BINA?

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Skype: fw_kapiaba

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

id=quote>id=quote>

Olá joão, desculpa a demora, não estou usando bina, é um sistema que tenho que faz a discagem para cliente e como informei, algumas placas de fax-modem não funcionam, mas quando compilo o exemplo fora da minha aplicação, roda, por isso que coloquei os dois exemplos para vcs me ajudarem a resolver, não vejo onde esta a falha.

Abraços.

Beto

Msn: betovsp@hotmail.com

Skype: betovsp

Alternativo: betovsp@terra.com.br

CL53B + FW2.0d + @ SAY/GET + BLINKER 7

Ribeirão Preto/SP

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

citação:

citação:

citação:

Boa Tarde.

Ainda estou com problemas de discagem para modems que não são onboard. Na pasta sample do fw, tem um arquivo chamado phone.prg, se eu o compilo, funciona, mas se coloco em minha aplicação, não efetua a discagem.

Abaixo tem um arquivo contendo os dois prgs para analise.

Desde já agradeço.

http://geocities.yahoo.com.br/betovsp_rp/teste.zip

Abraços.

Beto

Msn: betovsp@hotmail.com

Skype: betovsp

Alternativo: betovsp@terra.com.br

CL53B + FW2.0d + @ SAY/GET + BLINKER 7

Ribeirão Preto/SP

id=quote>id=quote>

Beto... Estais usando BINA?

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Skype: fw_kapiaba

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

id=quote>id=quote>

Olá joão, desculpa a demora, não estou usando bina, é um sistema que tenho que faz a discagem para cliente e como informei, algumas placas de fax-modem não funcionam, mas quando compilo o exemplo fora da minha aplicação, roda, por isso que coloquei os dois exemplos para vcs me ajudarem a resolver, não vejo onde esta a falha.

Abraços.

Beto

Msn: betovsp@hotmail.com

Skype: betovsp

Alternativo: betovsp@terra.com.br

CL53B + FW2.0d + @ SAY/GET + BLINKER 7

Ribeirão Preto/SP

id=quote>id=quote>

ENTAO, NAO PERCA TEMPO, FACA A CHAMADA VIA EXTERNA, ATE DESCOBRIR O ERRO.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Skype: fw_kapiaba

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites
  • 2 years later...
betovsp Rookie

betovsp

Posted
  • Author
Posted

Ola pessoal, estou retornando esse topico pelo seguinte.

Gostaria que alguem que tenha mais conhecimento em xharbour,convertesse o prg citado que esta na pasta samples para os comandos do xharbour por favor, pq quero passar para 32 bits pra ver se resolve os meus problemase os comandos do fivewin só funcionam corretamente no windows 98, no 2000 e no xp não.

Desde já agradeço a ajuda.

Abraços.

Beto

Msn: betovsp@hotmail.com

FWH 9.05+xHarbour 1.2.1+Mymake+@Say

"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."id=red>

Link to comment
Share on other sites
SAOliveira Newbie

SAOliveira

Posted
Posted

Não gosto de postar assim, mas no momento estou sem tempo, espero que entenda, esta rotina uso para enviar dados para painel eletronico, via modem, no caso esta usando um modem externo, mas interno tambem funciona, desde que esteja instalado no windows, e devidamente configurado.



**    Módulo      :    EnviaModem.prg                           **


**    Comentário  :    Transmitir dados para painel, via modem  **


**    Data        :    05/10/2006 - Oliveira, Sérgio A.         **


**-----------------------------------------------------------**


    #Include "FiveWin.ch"


    #include "Phone.ch"


**-----------------------------------------------------------**


    Function EnviaModem()


    #define FULL_SIZE  405


    #define HALF_SIZE  260


    #define IN_BUFFER  40


    #define TERM_SIZE  300


    extern Set, GetTextWidth


    static oSpeaker, oHangDown, oLocalNum, oNumber


    Private nComm, cTerminal, oTerminal, cNumber,xPacote:="", xPcte:=.f.


**-----------------------------------------------------------**


    Private noESC[1],oDlg[1],oBotao[5],cStatusModen:=''


    AFILL(noESC,.f.)


**-----------------------------------------------------------**


    _Top:=oWnd:nTop()+200


    _Lef:=oWnd:nLeft()+170


    _Bot:=_Top+260


    _Rig:=_Lef+468


    cTitulo  :=" ..:: Enviar dados para painel ::. " //+AllTrim(ModemName())+" ::.."


    cLocalNum:="35235299"


    cNumber  := pAlinha("0w1435235299",20,"E")


**-----------------------------------------------------------**


IF(! File("ARQUIVOS\ConfigPainel.DBC"))


    MsgInfo("Dados para transmissão ainda não configurados.  "+CRLF+"Efetue no módulo configurar."," .:: Atenção ::.")


    RETURN(.f.)


ENDIF


IF(! File("ARQUIVOS\LinhaPainel.DBC"))


    MsgInfo("Nenhum dado para enviar ao painel"," .:: Atenção ::.")


    RETURN(.f.)


ENDIF


Use "arquivos\LinhaPainel.DBC"  Index "arquivos\LinhaPainel.IND" Exclusive Alias "PNL" New


Use "arquivos\ConfigPainel.DBC"                                  Exclusive Alias "CFG" New


PNL->(DBGoTop())


IF (PNL->(Eof() ))


    MsgInfo("Nenhum dado para enviar ao painel.",".:: Atenção ::.")


    DBCloseAll()


    RETURN(.t.)


EndIf


cPorta:=AllTrim(CFG->PortaCom)  //ModemPort())


cNumber:=""


//cNumber:=cNumber+IIf(CFG->PrefxLin==" ","",CFG->PrefxLin+"W")


cNumber:=cNumber+IIf(CFG->FixarOpe=="S",CFG->CodigOpe+"-"+CFG->CodigDdd+"-"+CFG->NumerFon,CFG->numerFon)


DEFINE DIALOG oDlg[1] From _Top,_Lef to _Bot,_Rig OF oWnd Pixel FONT fNormal COLOR PRETO,CINZACC TITLE cTitulo Style(DS_MODALFRAME)


    oDlg[1]:bCommNotify:={|nComm, nStatus|BytesAtPort(nComm,nStatus)}


    @ 008,010 Say "Telefone no Painel"                   OF oDlg[1] Pixel Size 055,007 FONT fNormal COLOR PRETO,CINZACC


    @ 015,010 GET oNumber VAR cNumber      Picture "@!K" OF oDlg[1] Pixel Size 055,009 FONT fGet   COLOR VERMELHO,FundoGet UPDATE ReadOnly


//    @ 030,010 BUTTON oBotao[1] Prompt "Discar"           OF oDlg[1] Pixel Size 055,015 FONT fNormal ACTION If( ! Empty( cNumber ), ( HangUp( .f. ), LigarNumero( cNumber ) ),)


    @ 030,010 BUTTON oBotao[2] Prompt "Enviar Dados"     OF oDlg[1] Pixel Size 055,015 FONT fNormal ACTION MandaDados(xPcte:=.t.)


//    @ 070,010 BUTTON oBotao[3] Prompt "Fechar Conexão"   OF oDlg[1] Pixel Size 055,015 FONT fNormal ACTION Hangdown()


    @ 050,010 BUTTON oBotao[4] PROMPT "Sair"             OF oDlg[1] Pixel Size 055,015 FONT fBold   ACTION (noESC[1]:=.t.,oDlg[1]:End())


    @ 008,070 Say "Status da Comunicação"                OF oDlg[1] Pixel Size 100,007 FONT fNormal COLOR PRETO,CINZACC


    @ 015,070 GET oTerminal VAR cTerminal                OF oDlg[1] Pixel Size 155,090 FONT fGet    COLOR AZUL,FundoGet   UPDATE MULTILINE


ACTIVATE DIALOG oDlg[1] ON INIT (If( ! InitModem(), oDlg[1]:End(),(HangUp(.f.),LigarNumero(cNumber)) ),;


                           EnableCommNotification( nComm, oDlg[1]:hWnd, IN_BUFFER, IN_BUFFER ) );


                           VALID ( CloseComm( nComm ), noESC[1] )


dbCloseall()


Return(NIL)


**-------------------------------**


    Static Function InitModem()


**-------------------------------**


Local cDcb, nError, nBytes


nComm = OpenComm( cPorta, 1024, 128 )


If(! BuildCommDcb( cPorta+":1200,n,8,1", @cDcb ))


    nError = GetCommError( nComm )


    cTerminal:="Erro inicializando modem !!!" ; oTerminal:Refresh()


    oBotao[2]:Disable()


    Return(.F.)


ENDIF


If( nBytes := WriteComm( nComm, "ATZ0" + Chr( 13 ) ) ) < 0


    nError = GetCommError( nComm )


    cTerminal:="Erro inicializando modem !!!" ; oTerminal:Refresh()


    oBotao[1]:Disable()


    oBotao[2]:Disable()


    oBotao[3]:Disable()


    Return(.F.)


Endif


Return(.t.)


**-------------------------------------------------**


    Static function BytesAtPort( nComm, nStatus )


**-------------------------------------------------**


Local cBuffer := Space( IN_BUFFER )


DEFAULT cTerminal := Space( TERM_SIZE )


ReadComm( nComm, @cBuffer )


cBuffer:=StrTran(cBuffer,"ATZ0","Modem inicializado com sucesso.")


cBuffer:=StrTran(cBuffer,"OK","")


cBuffer:=StrTran(cBuffer,"TH","")


cBuffer:=Strtran(cBuffer,"ATDP","Discando para : ")


cBuffer:=Strtran(cBuffer,"ATDT","Discando para : ")


cBuffer:=StrTran(cBuffer,"ATH","Fechando conexão")


cBuffer:=StrTran(cBuffer,"BUSY","Telefone ocupado")


cBuffer:=StrTran(cBuffer,"CONNECT","Conectado ")


cBuffer:=StrTran(cBuffer,"NO DIALTONE","Sem sinal para discar.")


cBuffer:=StrTran(cBuffer,"NO CARRIER","Telefone não atende.")


If (! Empty(xPacote))


    cBuffer:=""


    If (xPcte)


        cBuffer:="Enviando dados para painel"


        xPcte:=.f.


    EndIf


EndIf


If (!Empty(cBuffer))


    cTerminal = PadR( AllTrim( cTerminal ) + AllTrim( cBuffer ) +CRLF,TERM_SIZE )


ENDIF


oTerminal:Refresh()


Return(NIL)


**------------------------------------------**


    Static Function LigarNumero( cNumber )


**------------------------------------------**


LOCAL cNumero:=IIf(CFG->PrefxLin==" ","",CFG->PrefxLin+"W")+StrTran(cNumber,"-",""), nBytes:=WriteComm( nComm, AllTrim( cNumero ) + Chr( 13 ) )


If(nBytes < 0)


    MsgStop( "Modem error: " + Str( GetCommError( nComm ) ) )


ENDIF


Return(NIL)


**--------------------------------**


    Static Function HangUp(lOpen)


**--------------------------------**


nBytes := WriteComm( nComm, "ATD"+AllTrim(CFG->TipoFone)+ If( lOpen, Chr( 13 ), " " )  )


if nBytes < 0


       MsgStop( "Modem error: " + Str( GetCommError( nComm ) ) )


Endif


Return(NIL)


**------------------------------**


    Static Function HangDown()


**------------------------------**


Local cTexto:=""


nBytes := WriteComm( nComm, "ATH" )


if nBytes < 0


       MsgStop( "Modem error: " + Str( GetCommError( nComm ) ) )


Endif


SysWait(0.05)


**--[ Fecha porta Serial ]--**


CloseComm( nComm )


SysWait(0.05)


cTexto:="Conexão Encerrada"


cTerminal:=PadR( AllTrim( cTerminal ) + cTexto + CRLF,TERM_SIZE )


oTerminal:Refresh()


Return(NIL)


**-------------------------------**


    Static Function MandaDados()


**-------------------------------**


PNL->(DBGoTop())


xPacote:="[L1]"


WHILE(PNL->(!Eof() ))


    xLin1:=AnsiToOem(PNL->bailin)


    xLin2:=AnsiToOem(PNL->menlin)


    xPacote+="[M1"+pAlinha(xLin1,12,"C")+"]"


    xPacote+="[M2"+pAlinha(xlin2,12,"C")+"]"


    xPacote+="[P"+StrZero(PNL->temlin,1)+"]"


    PNL->(DBSkip(1))


ENDDO


xPacote+="[F]"


nBytes := WriteComm( nComm, xPacote + Chr( 13 ) )


if nBytes < 0


       MsgStop( "Modem error: " + Str( GetCommError( nComm ) ) )


endif


SysWait(2)


cTexto:="Dados enviados com sucesso"


cTerminal:=PadR( AllTrim( cTerminal ) + cTexto + CRLF,TERM_SIZE )


oTerminal:Refresh()


Return(NIL)


**------------------------------------------------**


**   Configuracoes de modem instalado no windows  **


**------------------------------------------------**


    FUNCTION ModemName()


    Local oReg, uVar


    oReg := TReg32():New( HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\Class\{4D36E96D-E325-11CE-BFC1-08002BE10318}\0000", .f. )


    uVar := RTrim(oReg:Get( "DriverDesc", "" ))


    oReg:Close()


    If Empty( uVar )


           oReg := TReg32():New( HKEY_LOCAL_MACHINE, "System\CurrentControlSet\Services\Class\Modem\0000", .f. )


           uVar := RTrim(oReg:Get( "DriverDesc", "" ))


           oReg:Close()


    Endif


    Return uVar


    FUNCTION ModemVersion()


    Local oReg, uVar


    oReg := TReg32():New( HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\Class\{4D36E96D-E325-11CE-BFC1-08002BE10318}\0000", .f. )


    uVar := RTrim(oReg:Get( "DriverVersion", "" ))


    oReg:Close()


    If Empty( uVar )


           oReg := TReg32():New( HKEY_LOCAL_MACHINE, "System\CurrentControlSet\Services\Class\Modem\0000", .f. )


           uVar := RTrim( oReg:Get( "DriverVersion", "" ) )


           oReg:Close()


    Endif


    Return uVar


    FUNCTION ModemPort()


    Local oReg, uVar


    oReg := TReg32():New( HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\Class\{4D36E96D-E325-11CE-BFC1-08002BE10318}\0000", .f. )


    uVar := RTrim( oReg:Get( "AttachedTo", "" ) )


    oReg:Close()


    If Empty( uVar )                                 // Win95-98-ME doesn't have the above key


           oReg := TReg32():New( HKEY_LOCAL_MACHINE, "System\CurrentControlSet\Services\Class\Modem\0000", .f. )


           uVar := RTrim( oReg:Get( "AttachedTo", "" ) )


           oReg:Close()


    Endif


    Return uVar


id=code>id=code>
-------------------------------------------------------------------


Boleto with Personal/FastReport it is very, very good, beyond prettier.


FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		betovsp
	

				
				
					
						
Rookie
					
				
			

		

		

			

				


betovsp
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
NÃO ENTENDI FRIEND, QUAL A NECESSIDADE DISTO??


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




id=quote>id=quote>
Ola João, o problema é que os comandos que estão no arquivo phone.prg, que são os mesmos que o S.A.Oliveira postou, não funcionam bem em 32 bits, quando é windows 98, não da problemas, funciona perfeito, mas quando e windows 2000/xp, sempre da algum tipo de erro, então daí a necessidade de passar para os comandos do xharbour (init_port,outchr...) e assim sucessivamente com os outros comandos do xharbour, eu não manjo nada desses comandos, daí o pedido de ajuda pra converter o phone.prg da pasta samples, entendeu?


Obrigado.


Beto


Msn: betovsp@hotmail.com


FWH 9.05+xHarbour 1.2.1+Mymake+@Say


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."id=red>



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

VOCE PRECISA, PARA USAR PARA QUAL FINALIDADE??


CHAMADAS TELEFONICAS?


OU PARA LEITORES DE CÓDIGOS DE BARRAS??


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

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		betovsp
	

				
				
					
						
Rookie
					
				
			

		

		

			

				


betovsp
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
VOCE PRECISA, PARA USAR PARA QUAL FINALIDADE??


CHAMADAS TELEFONICAS?


OU PARA LEITORES DE CÓDIGOS DE BARRAS??


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




id=quote>id=quote>
Chamadas telefônicas João.


Beto


Msn: betovsp@hotmail.com


FWH 9.05+xHarbour 1.2.1+Mymake+@Say


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."id=red>



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

NAO PRECISAS MODIFICAR PUERRA NINGUNA!


BASTA PEGAR O PROGRAMA "BINA" EM DICAS MAIS DICAS.


BY ALEXANDRE PEREIRA!!


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

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		SAOliveira
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


SAOliveira
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Bem amigo, creio que o problema seja ai entao, pois uso com XHB e nao tenho problema algum, alias eu nao o cliente.


E olha que não é pouco uso nao, trata-se da CSN.


-------------------------------------------------------------------


Boleto with Personal/FastReport it is very, very good, beyond prettier.


FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		betovsp
	

				
				
					
						
Rookie
					
				
			

		

		

			

				


betovsp
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Bem amigo, creio que o problema seja ai entao, pois uso com XHB e nao tenho problema algum, alias eu nao o cliente.


E olha que não é pouco uso nao, trata-se da CSN.


-------------------------------------------------------------------


Boleto with Personal/FastReport it is very, very good, beyond prettier.


FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX




id=quote>id=quote>
Ola Oliveira,


vc pode enviar essa função pAlinha() pra eu fazer mais testes por favor.


Outra coisa, as funções de configuração do modem, tenho que executa-las?


Obrigado.


Beto


Msn: betovsp@hotmail.com


FWH 9.05+xHarbour 1.2.1+Mymake+@Say


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."id=red>


Editado por - betovsp on 30/06/2009  16:05:03



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		SAOliveira
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


SAOliveira
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

A pAlinha(), somente alinha o texto LEFT,CENTER ou RIGHT.


A parte de configuração seria isto


m1.jpg


-------------------------------------------------------------------


Boleto with Personal/FastReport it is very, very good, beyond prettier.


FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		betovsp
	

				
				
					
						
Rookie
					
				
			

		

		

			

				


betovsp
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Ola Oliveira, gostaria q vc me ajudasse um pouco mais, compilei seu exemplo, faz a primeira ligação, depois que finalizo, vou tentar novamente, ele trava e o aplicativo fica se responder, vc pode me auxiliar pra fazer isso rodar com o xharb?


Obrigado.


Beto


Msn: betovsp@hotmail.com


FWH 9.05+xHarbour 1.2.1+Mymake+@Say


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."id=red>



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		betovsp
	

				
				
					
						
Rookie
					
				
			

		

		

			

				


betovsp
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Ola S.A.Oliveira, esta quase funcionando corretamente, agora só gostaria de ver com vc o seguinte:


Compilei e estou trabalhando no seu exemplo.


Quando faz a ligaçao, se estiver falando com o cliente, depois de 30 segundos, ele acusa que a ligação não atende e fecha a conexão, não desliga a linha, mas vc ouve o toque do modem fechando a comm. Tem como eliminar isso e fechar somente quando finalizar?


Obrigado.


Beto


Msn: betovsp@hotmail.com


FWH 9.05+xHarbour 1.2.1+Mymake+@Say


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."id=red>



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		SAOliveira
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


SAOliveira
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Precisava dar uma olhada.


Este exemplo que mostrei, faz o seguinte.


No micro tem modem externo, este processa uma informação, gera uma string, faz a ligação.


No outro lado, tambem com modem externo, recebe o sinal, estabelece a conexao, e recebe o pacote da string, pelo proprio mode descarrega esta string numa CPU-Z80, e retorna que o pacote foi recebido.


O micro inicial, finaliza a conexao.


O que esta ocorrendo com voce, é que o pacote não existe e ele faz o HANGUP.


Este hangup, precisa ser eliminado.


-------------------------------------------------------------------


Boleto with Personal/FastReport it is very, very good, beyond prettier.


FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		betovsp
	

				
				
					
						
Rookie
					
				
			

		

		

			

				


betovsp
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Precisava dar uma olhada.


Este exemplo que mostrei, faz o seguinte.


No micro tem modem externo, este processa uma informação, gera uma string, faz a ligação.


No outro lado, tambem com modem externo, recebe o sinal, estabelece a conexao, e recebe o pacote da string, pelo proprio mode descarrega esta string numa CPU-Z80, e retorna que o pacote foi recebido.


O micro inicial, finaliza a conexao.


O que esta ocorrendo com voce, é que o pacote não existe e ele faz o HANGUP.


Este hangup, precisa ser eliminado.


-------------------------------------------------------------------


Boleto with Personal/FastReport it is very, very good, beyond prettier.


FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX




id=quote>id=quote>
Certo, mas a unica vez que ele faz a chamada da função hangup é quando ele inicia a dialg e no botao discar (que no caso ja tirei essa função, pois é pra fazer a discage somente quando clicar no botao discar).


Beto


Msn: betovsp@hotmail.com


FWH 9.05+xHarbour 1.2.1+Mymake+@Say


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."id=red>



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		betovsp
	

				
				
					
						
Rookie
					
				
			

		

		

			

				


betovsp
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Hoje to meio enrolado, vou ver se no final da um tempo.


-------------------------------------------------------------------


Boleto with Personal/FastReport it is very, very good, beyond prettier.


FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX




id=quote>id=quote>
Ok, obrigado.


Bom final de Semana.


Beto


Msn: betovsp@hotmail.com


FWH 9.05+xHarbour 1.2.1+Mymake+@Say


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."id=red>



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		betovsp
	

				
				
					
						
Rookie
					
				
			

		

		

			

				


betovsp
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Hoje to meio enrolado, vou ver se no final da um tempo.


-------------------------------------------------------------------


Boleto with Personal/FastReport it is very, very good, beyond prettier.


FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX




id=quote>id=quote>
Ola S.A.Oliveira, desculpa te encomodar, vc conseguiu ver algo?


Beto


Msn: betovsp@hotmail.com


FWH 9.05+xHarbour 1.2.1+Mymake+@Say


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."id=red>



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
						
    
							
							
								
  • 
									2 weeks later...
								
    • 
							
						

					
					
					
				

					

					
					






	

	

	

		

			

				


	
		betovsp
	

				
				
					
						
Rookie
					
				
			

		

		

			

				


betovsp
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Olá S.A.Oliveira, vc conseguiu ver algo?, desculpa o incomodo, é que realmente preciso acertar isso aqui ok.


Beto


Msn: betovsp@hotmail.com


FWH 9.05+xHarbour 1.2.1+Mymake+@Say


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."id=red>



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
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...
    •