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.