Marcio de Oliveira

Boa noite amigos, tenho um cliente interessado em um software que faça o reconhecimento de uma camera por ip em um banco de dados, ele quer cadastrar a foto com os dados da pessoa, e assim que essa pessoa passar em frente a camera o mesmo faça a identificação e pesquise no bd, alguma solução? agradeço.

Ola, dependendo qual impressora fiscal é utilizada tem um aplicativo próprio que gera estes relatórios, Ex Daruma utiliza o "GAD - Sistema de geração de relatorios fiscais" ou Bematech "WinMFD".

Ola, bom dia pessoal, estou com um problema estranho, estou tentando usar a função alert, mas não estou conseguindo, ele trava o sistema, dessa forma; nOption := Alert("Origem da fotografia.",{"Da &pasta","Da &WebCam", "Excluir","Retor&nar"},"Origem da fotografia.") Faço dessa forma e trava o sistema todo tendo que encerrar o aplicativo pelo gerenciador de tarefas! Estou usando Xdev 0,65 + FiveWin 2.6 + BCC55 + Xhb 0.99.3 (Simplex)

Boa noite pessoal, gostaria de saber se tem como eu abrir 2 portas na opencomm ex: nComm:OPenComm(com1+com2,9600,128) Se possivel, gostaria de saber a sintaxe correta, Obrigado. FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3.

Boa noite pessoal, gostaria de saber se tem como eu abrir 2 portas na opencomm ex: nComm:OPenComm(com1+com2,9600,128) Se possivel, gostaria de saber a sintaxe correta, Obrigado. FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3.

sim FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3.

Para funcionar a função bina, eu tenho que abrir a porta, o primeiro buffer que a porta me manda é o numero do fone, dai então eu tenho que fecha-la e reabri-la novamente para funcionar, senão ela não recebe um novo numero, ja tentei zera o buffer, mas não adiantou, então eu tenho que fechar e abrir o programa para poder funcionar novamente. FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3.

também não funcionou, mas descobri uma coisa, no fwh 7.12 se vc tentar usar a função closecomm() chamando através de uma outra função statica, ele da este erro no programa, mas se vc abrir a porta e fechar na mesma função, ele aceita numa boa, agora vem o seguinte, como vou fazer para abrir a porta e escutala na mesma função sem chama-la através doutra? FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3.

Muito obrigado, pra vcs tb, depois mando pra vcs.OK FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3.

amigo ja cheguei a colocar meu hd na maquina, e nada, a minha maq é um x3 8650, e maq que estou tentando colocar o programa é um celeron 1.8, ja troquei hd , memoria e não sei mas o q faço! FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3.

ja fiz isso, formatei a maquina e instalei windows 2000,e fiz denovo, não entendo se eu compilar com fwh 7 ele funciona mas da o erro em ambas as maquinas, se compilar com fwh 2.6 funciona só na minha mas na outra não mesmo copiando e instalado tudo denovo, meu fw e registrado. FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3.

ele não gera log de erro, e a outra maquina não é igual a minha, mas instalei nela todos os programas fwh 2.6 xhb 9930 Bc55 igual a minha inclusive o xdev, compilo normal ele abre o sistema dai faz a verificação dos arquivos e sem mais nem menos sai do programa sem gerar nenhum arquivo de log ou erro! FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3.

mesmo seguindo a logica do Phone.prg, qdo compilo o projeto em outra maquina com fwh 7 ele abre o programa mas da este erro qdo fecho esta dialog oPesq, mas qdo compilo com fwh 2.6 em outra maquina ele nem abre, mas na minha funciona perfeitamente! isso é coisa do capeta!!!! FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3.

mesma coisa. FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3.

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.

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.

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.

Atualmente esta como "Static nComm" FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3.

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.

Ja Esta, e não funciona! FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3.

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.

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.

O estanho é que no Fwh 2.6 funciona normal! FiveWin 7.12 for Xharbour 1.1.0(Simplex)+Bcc551+xDev+WinXP SP3.

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.

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.