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