betovsp Posted May 16, 2007 Report Share Posted May 16, 2007 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 Quote Link to comment Share on other sites More sharing options...
betovsp Posted May 16, 2007 Author Report Share Posted May 16, 2007 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 24, 2007 Report Share Posted May 24, 2007 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 Quote Link to comment Share on other sites More sharing options...
betovsp Posted May 28, 2007 Author Report Share Posted May 28, 2007 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 28, 2007 Report Share Posted May 28, 2007 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 Quote Link to comment Share on other sites More sharing options...
betovsp Posted June 29, 2009 Author Report Share Posted June 29, 2009 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> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 29, 2009 Report Share Posted June 29, 2009 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 Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted June 29, 2009 Report Share Posted June 29, 2009 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 Quote Link to comment Share on other sites More sharing options...
betovsp Posted June 29, 2009 Author Report Share Posted June 29, 2009 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> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 29, 2009 Report Share Posted June 29, 2009 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 Quote Link to comment Share on other sites More sharing options...
betovsp Posted June 29, 2009 Author Report Share Posted June 29, 2009 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> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 29, 2009 Report Share Posted June 29, 2009 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 Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted June 29, 2009 Report Share Posted June 29, 2009 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 Quote Link to comment Share on other sites More sharing options...
betovsp Posted June 30, 2009 Author Report Share Posted June 30, 2009 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 Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted June 30, 2009 Report Share Posted June 30, 2009 A pAlinha(), somente alinha o texto LEFT,CENTER ou RIGHT. A parte de configuração seria isto ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX Quote Link to comment Share on other sites More sharing options...
betovsp Posted July 1, 2009 Author Report Share Posted July 1, 2009 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> Quote Link to comment Share on other sites More sharing options...
betovsp Posted July 3, 2009 Author Report Share Posted July 3, 2009 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> Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted July 3, 2009 Report Share Posted July 3, 2009 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 Quote Link to comment Share on other sites More sharing options...
betovsp Posted July 3, 2009 Author Report Share Posted July 3, 2009 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> Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted July 3, 2009 Report Share Posted July 3, 2009 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 Quote Link to comment Share on other sites More sharing options...
betovsp Posted July 3, 2009 Author Report Share Posted July 3, 2009 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> Quote Link to comment Share on other sites More sharing options...
betovsp Posted July 7, 2009 Author Report Share Posted July 7, 2009 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> Quote Link to comment Share on other sites More sharing options...
betovsp Posted July 22, 2009 Author Report Share Posted July 22, 2009 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> 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.