alexmb Posted February 18, 2008 Report Share Posted February 18, 2008 Olá a todos. Eu me chamo Alexandre e estou tendo os seguintes problemas para rodar o programa WEBCAM32.PRG (o qual fiz downlod no tópico http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=8823). Explicando: Quando tento rodar o programa (após compilar junto ao meu sistema) me é apresentada na tela erro na função ABS(). Fiz algumas alterações no programa para facilitar a visualização e entendimento. Segue parte do código abaixo: citação: IF ( !wCamGetDrvDesc(nDriver, @cName, nLen, @cVersion, nLen) ) EXIT ENDIF function wCamGetDrvDesc(nDriver ,cName,nName,cVersion,nVersion ) local hDLL := LoadLibrary("avicap32.dll" ) local uResult local cFarProc if Abs(hDLL ) > 32 cFarProc = GetProcAddress(hDLL,If(Empty("capGetDriverDescriptionA" ) == .t.,"wCamGetDrvDesc","capGetDriverDescriptionA" ),.T.,5,7 ,8,7,8,7 ) uResult = CallDLL(cFarProc,nDriver ,cName,nName,cVersion,nVersion ) IIF(ValType("avicap32.dll" ) == "N",,FreeLibrary(hDLL ) ) else MsgAlert( "Error code: " + LTrim(Str(hDLL ) ) + " loading " + If(ValType("avicap32.dll" ) == "C","avicap32.dll",Str("avicap32.dll" ) ) ) end return uResult id=quote>id=quote>Eu já tentei inibir esse IF e com isso gera um "Conditional Error" na chamada da função. Já não sei mais o que fazer. Será que algém poderia me ajudar?? Atenciosamente, Alexandre Broetto. Editado por - alexmb on 18/02/2008 17:05:06 Quote Link to comment Share on other sites More sharing options...
alexmb Posted February 18, 2008 Author Report Share Posted February 18, 2008 Olá a todos. Eu me chamo Alexandre e estou tendo os seguintes problemas para rodar o programa WEBCAM32.PRG (o qual fiz downlod no tópico http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=8823). Explicando: Quando tento rodar o programa (após compilar junto ao meu sistema) me é apresentada na tela erro na função ABS(). Fiz algumas alterações no programa para facilitar a visualização e entendimento. Segue parte do código abaixo: citação: IF ( !wCamGetDrvDesc(nDriver, @cName, nLen, @cVersion, nLen) ) EXIT ENDIF function wCamGetDrvDesc(nDriver ,cName,nName,cVersion,nVersion ) local hDLL := LoadLibrary("avicap32.dll" ) local uResult local cFarProc if Abs(hDLL ) > 32 cFarProc = GetProcAddress(hDLL,If(Empty("capGetDriverDescriptionA" ) == .t.,"wCamGetDrvDesc","capGetDriverDescriptionA" ),.T.,5,7 ,8,7,8,7 ) uResult = CallDLL(cFarProc,nDriver ,cName,nName,cVersion,nVersion ) IIF(ValType("avicap32.dll" ) == "N",,FreeLibrary(hDLL ) ) else MsgAlert( "Error code: " + LTrim(Str(hDLL ) ) + " loading " + If(ValType("avicap32.dll" ) == "C","avicap32.dll",Str("avicap32.dll" ) ) ) end return uResult id=quote>id=quote>Eu já tentei inibir esse IF e com isso gera um "Conditional Error" na chamada da função. Já não sei mais o que fazer. Será que algém poderia me ajudar?? Atenciosamente, Alexandre Broetto. Editado por - alexmb on 18/02/2008 17:05:06 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 18, 2008 Report Share Posted February 18, 2008 Olá... Qual a versão do seu FIVEWIN?? 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...
alexmb Posted February 18, 2008 Author Report Share Posted February 18, 2008 Estou usando a versão 7.04. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 18, 2008 Report Share Posted February 18, 2008 citação:Estou usando a versão 7.04. id=quote>id=quote>Desculpe, o senhor não entndeu minha pergunta: FIVEWIN FOR CLIPPER 16 BITS OU FIVEWIN FOR XHARBOUR 32 BITS?? 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...
alexmb Posted February 18, 2008 Author Report Share Posted February 18, 2008 Desculpe-me! FiveWin for xHarbour 32Bits. _____ Alexandre Broetto Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 18, 2008 Report Share Posted February 18, 2008 citação:Desculpe-me! FiveWin for xHarbour 32Bits. _____ Alexandre Broetto id=quote>id=quote>LEIA O TOPICO QUE POSTASTES COMO REFERENCIA NOVAMENTE, COM CALMA. avicap32.dll -> Tens??? A CAMERA, ESTA INSTALADA CORRRECTAMENTE??? JA A USASTE VIA MSN OU POR OUTROS MEIOS?? 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 Editado por - kapiaba on 18/02/2008 17:49:35 Quote Link to comment Share on other sites More sharing options...
alexmb Posted February 18, 2008 Author Report Share Posted February 18, 2008 Sim. Em C:\Windows\System32 _____ Alexandre Broetto Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 18, 2008 Report Share Posted February 18, 2008 citação:Sim. Em C:\Windows\System32 _____ Alexandre Broetto id=quote>id=quote>MANDE UM EMAIL PARA UM DOS USARIOS DO TOPICO MENCIONADO POR TI, PEDINDO AJUDA. 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...
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.