alex2002 Posted November 11, 2019 Report Share Posted November 11, 2019 Olá galera, Alguém conseguiu corrigir o BUG da webcam? Esta bagaça não roda com as versões mais novas do Ruindows. Alguém ai teve a solução? Um abraço, Alexandre Pereira Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted November 11, 2019 Report Share Posted November 11, 2019 /*------------------------------------------------------------------------------*/ * Archivo: WebCam.PRG * * Descripcion: WebCam * * Fecha: Diciembre del 2010 * * Release: Ver 1.0 * * Autor: Jose Javier LLoris Roig * * Verion para: 32Bits * * * * Libreria: FWH/FWHX 8.12 28/December/2008 * * Harbour: Harbour 1.0.1 Rev 9361 1999-2008 * * Compilador: Borland C++ 5.5.1 versión 32bits * * Editor de Recursos: WorkShop 4.5 y ResEdit * * Gestor de B.D: A.D.A ( Advantage Data Architect ) * * S.O: Windows XP / Windows 7 * /*------------------------------------------------------------------------------*/ #INCLUDE "Fivewin.ch" #INCLUDE "WebCam.ch" #DEFINE DT_CENTER 0x01 STATIC oWnd STATIC oBar STATIC oWebCam STATIC lStop,lRet **----------------------------------------------------------------------------*/ Function GetWebCam(oImg) //necessita para manter o focu da tela **----------------------------------------------------------------------------*/ LOCAL oDlg DEFINE DIALOG oDlg ACTIVATE DIALOG oDlg ON INIT (ShowWindow( oDlg:hWnd,6),; oDlg:Hide(),WndWebCam(oImg),oDlg:End()) Return lRet **------------------------------------------------------------------------------*/ Static Function WndWebCam(oImg) **------------------------------------------------------------------------------*/ LOCAL oCursor,oFont,oIco //,cFILE := "bmp\file.bmp" lStop := .T. lRet := .F. DEFINE ICON oIco RESOURCE "RC_IWEB" DEFINE FONT oFont NAME "Tahoma" SIZE 0,-12 DEFINE CURSOR oCursor HAND DEFINE WINDOW oWnd TITLE "Capturar Fotos"; BORDER NONE NOMINIMIZE NOMAXIMIZE oWnd:SetIcon(oIco) oWnd:SetFont(oFont) @ 60, 0 WEBCAM oWebCam SIZE 400, 400 OF oWnd ADJUST RATE 66 oWebCam:Initialize() /* Incremento adicional por la adicion de la barra de botones */ /* y la barra de mensajes. */ oWebCam:nIncrem := 130 DEFINE BUTTONBAR oBar _3D SIZE 75, 60 OF oWnd DEFINE BUTTON RESOURCE "RC_WEBON"; NOBORDER OF oBar; ACTION oWebCam:Initialize(); TOOLTIP "Conectar a WebCam"; FONT oFont; PROMPT "Conectar"; WHEN !oWebCam:isConnected /* DEFINE BUTTON RESOURCE "RC_WEBG"; NOBORDER OF oBar; ACTION (oWebCam:Clipboard(),; //Copy oWebCam:SaveFile(cFILE),oImg:LoadBMP(cFILE)); //deu certo TOOLTIP "Capturar Imagem"; FONT oFont; PROMPT "Capturar"; WHEN oWebCam:isConnected */ DEFINE BUTTON RESOURCE "RC_FOTO"; NOBORDER OF oBar; ACTION (oWebCam:Clipboard(),; //Copy ctrl+c oImg:LoadFromClipboard(),; //paste ctrl+v oImg:LoadFromString(BmpToStr(oImg:hBitmap)),; oImg:Refresh()); //Paste TOOLTIP "Capturar Imagem"; FONT oFont; PROMPT "Capturar"; WHEN oWebCam:isConnected //oImag:CopyToClipboard() //classe Clipboard para text //oImg:LoadFromClipboard(), oImg:Refresh()); //Paste DEFINE BUTTON RESOURCE "RC_WEBOF"; NOBORDER OF oBar; ACTION oWebCam:Finalize(); TOOLTIP "Desconectar a WebCam"; FONT oFont; PROMPT "Desconectar"; WHEN oWebCam:isConnected DEFINE BUTTON RESOURCE "RC_WEBG"; NOBORDER OF oBar; ACTION (lRet:=.T.,WebSair()); TOOLTIP "Gravar e Sair"; FONT oFont; PROMPT "Gravar"; WHEN oWebCam:isClipboard DEFINE BUTTON RESOURCE "RC_END"; NOBORDER OF oBar; ACTION WebSair(); TOOLTIP "Sair"; FONT oFont; PROMPT "Sair" AEval( oBar:aControls, { | o | o:oCursor := oCursor } ) oBar:bRClicked := {|| NIL } oWnd:lBalloon := .T. ACTIVATE WINDOW oWnd; ON INIT ( oWnd:SetSize( oWebCam:nRight, oWebCam:nBottom ),; oWnd:Refresh(), oWnd:UpDate(), oWnd:Center(),PitStop()) DeleteObject( oFont ) DeleteObject( oIco ) DeleteObject( oCursor ) Return NIL /*------------------------------------------------------------------------------*/ Static Function WebSair() /*------------------------------------------------------------------------------*/ lStop := .F. IF !Empty(oWebCam) // != NIL IF oWebCam:isConnected oWebCam:Finalize() //oWebCam:Disconnect() ENDIF oWebCam:Destroy() ENDIF DeleteObject( oBar ) DeleteObject( oWebCam ) oWnd:End() Return Nil **=================================================== Static Function PitStop() **=================================================== DO WHILE lStop SysWait( .5 ) ENDDO RETURN .T. .rc RC_WEBON BITMAP bmp\icono.bmp RC_WEBOF BITMAP bmp\webcamoff.bmp RC_FOTO BITMAP bmp\camera.bmp RC_WEBG BITMAP bmp\webg.bmp Esta rotina funciona perfeitamente comigo, se ajudar! Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted November 11, 2019 Report Share Posted November 11, 2019 **=================================================================== STATIC FUNCTION GoFoto(oImg) **=================================================================== LOCAL lRet,cFile := "tmp\file.bmp" lRet := GetWebCam(oImg) If lRet cStrBMP := BmpToStr(oImg:hBitmap) //GRAVA_IMG() EndIf RETURN NIL Chamada Quote Link to comment Share on other sites More sharing options...
alex2002 Posted November 12, 2019 Author Report Share Posted November 12, 2019 Blza, vou testar e reporto. Obrigado Quote Link to comment Share on other sites More sharing options...
emotta Posted November 12, 2019 Report Share Posted November 12, 2019 Alex, se a solução acima não resolver veja se o problema pode ser esse: Quote Link to comment Share on other sites More sharing options...
ADutheil Posted November 12, 2019 Report Share Posted November 12, 2019 Tenho uma webcam Microsoft VX qualquer coisa se bem lembro que não funciona no W10. Quote Link to comment Share on other sites More sharing options...
alex2002 Posted November 13, 2019 Author Report Share Posted November 13, 2019 Olá Pessoal. Jmsilva, eu não consegui compilar este PRG. Daí eu fui na classe que uso que é a WEBCAMPHOTO. Mas inexplicavelmente eu apenas editei o formato da webcam e voltou a funcionar. Emotta, no meu notebook funcionou com a solução que descrevi. Mas amanhã (daqui a pouco) vou testar no cliente, e lá tem o tal do Karpesky. Se por acaso o bendito antivirus travar eu já sei o que fazer então. Obrigado a todos. Um abraço, Alexandre Pereira Quote Link to comment Share on other sites More sharing options...
jufer Posted April 19, 2020 Report Share Posted April 19, 2020 /*------------------------------------------------------------------------------*/ * Archivo: WebCam.PRG * * Descripcion: WebCam * * Fecha: Diciembre del 2010 * * Release: Ver 1.0 * * Autor: Jose Javier LLoris Roig * * Verion para: 32Bits * * * * Libreria: FWH/FWHX 8.12 28/December/2008 * * Harbour: Harbour 1.0.1 Rev 9361 1999-2008 * * Compilador: Borland C++ 5.5.1 versión 32bits * * Editor de Recursos: WorkShop 4.5 y ResEdit * * Gestor de B.D: A.D.A ( Advantage Data Architect ) * * S.O: Windows XP / Windows 7 * /*------------------------------------------------------------------------------*/ #INCLUDE "Fivewin.ch" #INCLUDE "WebCam.ch" #DEFINE DT_CENTER 0x01 STATIC oWnd STATIC oBar STATIC oWebCam STATIC lStop,lRet **----------------------------------------------------------------------------*/ Function GetWebCam(oImg) //necessita para manter o focu da tela **----------------------------------------------------------------------------*/ LOCAL oDlg DEFINE DIALOG oDlg ACTIVATE DIALOG oDlg ON INIT (ShowWindow( oDlg:hWnd,6),; oDlg:Hide(),WndWebCam(oImg),oDlg:End()) Return lRet **------------------------------------------------------------------------------*/ Static Function WndWebCam(oImg) **------------------------------------------------------------------------------*/ LOCAL oCursor,oFont,oIco //,cFILE := "bmp\file.bmp" lStop := .T. lRet := .F. DEFINE ICON oIco RESOURCE "RC_IWEB" DEFINE FONT oFont NAME "Tahoma" SIZE 0,-12 DEFINE CURSOR oCursor HAND DEFINE WINDOW oWnd TITLE "Capturar Fotos"; BORDER NONE NOMINIMIZE NOMAXIMIZE oWnd:SetIcon(oIco) oWnd:SetFont(oFont) @ 60, 0 WEBCAM oWebCam SIZE 400, 400 OF oWnd ADJUST RATE 66 oWebCam:Initialize() /* Incremento adicional por la adicion de la barra de botones */ /* y la barra de mensajes. */ oWebCam:nIncrem := 130 DEFINE BUTTONBAR oBar _3D SIZE 75, 60 OF oWnd DEFINE BUTTON RESOURCE "RC_WEBON"; NOBORDER OF oBar; ACTION oWebCam:Initialize(); TOOLTIP "Conectar a WebCam"; FONT oFont; PROMPT "Conectar"; WHEN !oWebCam:isConnected /* DEFINE BUTTON RESOURCE "RC_WEBG"; NOBORDER OF oBar; ACTION (oWebCam:Clipboard(),; //Copy oWebCam:SaveFile(cFILE),oImg:LoadBMP(cFILE)); //deu certo TOOLTIP "Capturar Imagem"; FONT oFont; PROMPT "Capturar"; WHEN oWebCam:isConnected */ DEFINE BUTTON RESOURCE "RC_FOTO"; NOBORDER OF oBar; ACTION (oWebCam:Clipboard(),; //Copy ctrl+c oImg:LoadFromClipboard(),; //paste ctrl+v oImg:LoadFromString(BmpToStr(oImg:hBitmap)),; oImg:Refresh()); //Paste TOOLTIP "Capturar Imagem"; FONT oFont; PROMPT "Capturar"; WHEN oWebCam:isConnected //oImag:CopyToClipboard() //classe Clipboard para text //oImg:LoadFromClipboard(), oImg:Refresh()); //Paste DEFINE BUTTON RESOURCE "RC_WEBOF"; NOBORDER OF oBar; ACTION oWebCam:Finalize(); TOOLTIP "Desconectar a WebCam"; FONT oFont; PROMPT "Desconectar"; WHEN oWebCam:isConnected DEFINE BUTTON RESOURCE "RC_WEBG"; NOBORDER OF oBar; ACTION (lRet:=.T.,WebSair()); TOOLTIP "Gravar e Sair"; FONT oFont; PROMPT "Gravar"; WHEN oWebCam:isClipboard DEFINE BUTTON RESOURCE "RC_END"; NOBORDER OF oBar; ACTION WebSair(); TOOLTIP "Sair"; FONT oFont; PROMPT "Sair" AEval( oBar:aControls, { | o | o:oCursor := oCursor } ) oBar:bRClicked := {|| NIL } oWnd:lBalloon := .T. ACTIVATE WINDOW oWnd; ON INIT ( oWnd:SetSize( oWebCam:nRight, oWebCam:nBottom ),; oWnd:Refresh(), oWnd:UpDate(), oWnd:Center(),PitStop()) DeleteObject( oFont ) DeleteObject( oIco ) DeleteObject( oCursor ) Return NIL /*------------------------------------------------------------------------------*/ Static Function WebSair() /*------------------------------------------------------------------------------*/ lStop := .F. IF !Empty(oWebCam) // != NIL IF oWebCam:isConnected oWebCam:Finalize() //oWebCam:Disconnect() ENDIF oWebCam:Destroy() ENDIF DeleteObject( oBar ) DeleteObject( oWebCam ) oWnd:End() Return Nil **=================================================== Static Function PitStop() **=================================================== DO WHILE lStop SysWait( .5 ) ENDDO RETURN .T. .rc RC_WEBON BITMAP bmp\icono.bmp RC_WEBOF BITMAP bmp\webcamoff.bmp RC_FOTO BITMAP bmp\camera.bmp RC_WEBG BITMAP bmp\webg.bmp Esta rotina funciona perfeitamente comigo, se ajudar! Boa noite amigo Silva, Copiei sua programação e inclui no meu projecto mas tive que abandonar porque faltam algumas funções. No entanto tenho um programa do César E. Lozada, da Venezuela, que estava funcionando muito bem até eu ter comprado um novo computador. Não sei porque razão vejo o sinal de luz que a camera está funcionando mas na tela não aparece a imagem. Encontrei no forum uma informação para fazer as seguintes alterações no ficheiro C:\FWH\samples\build64.bat: - cl -TC -W3 -O2 -c -I%hdir%\include %1.c para cl -TP -W3 -O2 -c -I%hdir%\include %1.c e acrescentar echo strmiids.lib >> msvc.tmp só que não tenho a LIB strmiids.lib será que é por falta do ficheiro strmiids.lib que a camera não aparece na tela? Se assim for vc pode-me ceder aquele ficheiro? Abraços Júlio Fernandes (Portugal) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 20, 2020 Report Share Posted April 20, 2020 Júlio: https://forums.fivetechsupport.com/viewtopic.php?f=6&t=32879&start=30#p231545 Quote Link to comment Share on other sites More sharing options...
jufer Posted April 20, 2020 Report Share Posted April 20, 2020 Meu caro amigo João Santos, Agradeço a sua tão rápida mensagem que veio em meu auxílio. O problema subsiste e penso que deve ser por falta do arquivo strmiids.lib e estive a ver o forum e constatei que o problema só deve ficar resolvido quando adquirir a versão FWH20.04. Um abraço Júlio Fernandes Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted April 20, 2020 Report Share Posted April 20, 2020 Olá Júlio Fernandes! boa tarde! A Lib que você citou desconheço! Vou disponibilizar um material que tenho e funciona perfeitamente em um dos meus sistemas, caso tenha alguma dificuldade pode me contactar por aqui ou pelo email: saa50@bol.com.br https://drive.google.com/open?id=1Q7DuZASQlH5nVkqNkbLcrvC14dzAA5yd Um abraço JMSilva 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.