Discussion :

[lebricolo]

Bonjour,

j'ai un petit soucis avec mon code asp. ce code vas servir a ce que lorque que je clique sur le bouton arret la camera se met en alarme et lorsque je re clique sur le bouton elle me remet en marche.
mon problème est que le code marche sur quelques caméras mais il y'en a 2 qui ne fonctionne pas.
pouriez vous m'aider?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
Sub RefreshIOInputsState
on error resume next
	Dim xx
	Dim objGr
	Dim strDVM
	Dim strTemp
	Dim objDVM
	Dim objInputs
	Dim objControlInput
	Dim WshNetwork
 
 
server.paramvalue("DVM_ES_1.CurrentUser") = "popo"
'Set WshNetwork = CreateObject("WScript.Network")
'If WshNetwork.UserName <> "" Then
'server.paramvalue("DVM_ES_1.CurrentUser") = WshNetwork.UserName
'End If
 
 
	strDVM = "56srv002"
	Set objDVM = CreateObject("HWDVSAPINET.DVM")
	objDVM.Initialize2 strDVM, ""
	Set objInputs = objDVM.ControlInputs
 
 
'INPUT DEFINITION
server.paramvalue("DVM_ES_1.InputCount") = objInputs.count
	If objInputs.count > 0 Then
	if( IsObject( objInputs ) ) then
		objInputs.Refresh
		for xx=1 to objInputs.Count
			strTemp = "DVM_ES_"&Cstr(xx)&".OP"
			Set objControlInput = objInputs.item(xx)
			if( IsObject( objControlInput ) ) then
				server.paramvalue(strTemp & "/ORDN") = objControlInput.State
			end if
		next
	end if
	End if
	set objDVM = nothing
end sub
 
 
 
 
 
Sub CmdIOInputsState(IONumber, iState)
on error resume next
 
	Dim strDVM
	Dim objDVM
	Dim objOutputs
	Dim objOutput
 
 
	strDVM = "56srv002"
	Set objDVM = CreateObject("HWDVSAPINET.DVM")
	objDVM.Initialize2 strDVM, ""
	Set objOutputs = objDVM.ControlOutputs
 
 
	if( IsObject( objOutputs ) ) then
		Set objOutput = objOutputs.Item(IONumber)
		objOutput.State = iState
	end if
 
	set objDVM = nothing
end sub

[roro06]

Bonjour

pouriez vous m'aider?

ben ... non :

1/ On ne connait pas HWDVSAPINET.DVM
2/ Il n'y a pas de "bouton arrêt" dans ton code
3/ la méthode server.paramvalue ne m'évoque rien. Ca existe ?
4/ tu ne dis pas quelles sont les caméras qui ne fonctionnent pas. Un paramétrage particulier, une ip différentes ? (A noter au passage qu'ASP est une techno destinée aux sites web, pas au pilotage de caméra)
5/ Enfin, le message d'erreur que j'adore :

mais il y'en a 2 qui ne fonctionne pas.

Mais encore ? Forts des réponses à ces questions, on pourra peut-être y voir plus clair

[roro06]

J'oubliais :

au risque de me répéter , la présence de on error resume next dans un code ne permet pas de débugger quoique ce soit sous ASP. la première chose à faire pour débugger, c'est d'ôter ces lignes pour avoir un message d'erreur clair et cohérent.

comment ça, je radote ? mais non, mais non ...

[lebricolo]

1/ On ne connait pas HWDVSAPINET.DVM

c'est un fichier de configuration de mes cameras on n'en a pas besoin.

2/ Il n'y a pas de "bouton arrêt" dans ton code

en faite c'est pas un bouton "arret" c'est un changement d'etat que le code doit prendre en compte lorque qu'on clique sur un bouton a partir d'un autre logiciel (c'est très spécial mais c'est comme ca...)

3/ la méthode server.paramvalue ne m'évoque rien. Ca existe ?

cette methode sert a Récupérer la valeur d'un paramètre

4/ tu ne dis pas quelles sont les caméras qui ne fonctionnent pas. Un paramétrage particulier, une ip différentes ? (A noter au passage qu'ASP est une techno destinée aux sites web, pas au pilotage de caméra)

je t'ai mal expliqué les caméras fonctionnent, ce qui ne fonctionne pas c'est le script permettant de mettre la caméras en mode acitif ou bien en mode alarme (qui est un mode permettant de déclancher l'alarme si intrusion) ce que je ne t'ai pas dit aussi c'est qur l'on gere les caméras a partir d'internet explorer pour que les caméras soit pilotés a distance d'ou le fait d'utiliser l'ASP.

[lebricolo]

ok! je le retire j'avoue que je l'ai toujours laissé.....

[lebricolo]

je crois avoir trouvé mon problème:
sa vient du

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

on error resume next

je suis presque sur qu'il ya une erreur dans le script car quand je retire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

on error resume next

mon script ne fonctionne plus
ya deux possibiltés: il est pas mis au bon endroit et donc sa fait merder le script
ou soit il faut que je fasse de la gestion d'erreur dans ce type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
on error resume next
tonresult = 40 / 0
	if err.number <> 0 then
		response.write "Un erreur est survenue : " & err.description
	end if

[roro06]

Le on error resume nextpermet d'ignorer les erreurs qui peuvent survenir sur ton script. C'est pratique en prod, ca évite un message d'erreur disgracieux sur le navigateur du client. En revanche, en développement, il faut les enlever pour obtenir, justement, un message d'erreur et agir en conséquence (quitte à le remettre une fois en prod).

Tu peux faire ce que tu as dit, mais quand ton navigateur t'indiquera : "une erreur est survenue", tu ne sera pas plus avancé (néanmoins err.description sert aussi à ça )