nicht angemeldet
durch ActiveX Ereignis serverseitiges Script ausführen
Hi Leutz,
ich habe ein Problem (Wie wohl fast alle, die hier etwas posten ;) )!!!
Ich habe eine Webcam, die auf einem Fischertechnik-Stativ montiert ist. Diese kann man über das Internet fernsteuern. Das funktioniert auch so weit, allerdings nur mit einem Formular, und darin enthaltenen Buttons für die jeweiligen bewegungen. Nun habe ich mir din den Kopf gesetzt, das ganze mit ActivX-Slidern zu realisieren (ActivX hin oder her, war für mich im Moment die leichteste möglichkeit einen Slider in die Seite einzubauen), sprich das man den Slider in eine position stellt, und die Cam fährt diese Position an. Das Problem ist nun, wie ich es anstelle, das das Ereignis der ActivX-Komponente an den Server weitergereicht wird, so das der die Cam in Bewegung setzt. Mein bissheriger Quellcode sieht wie folgt aus:
<%
option explicit
dim ft
Set ft = CreateObject("FishFa50D.clsFishFace")
Sub vertical_Change
ft.openinterface "COM1"
if slider1.Value<0 then
ft.SetMotor 1, 2
ft.WaitForChange 6,(-1*slider1.Value),8
ft.SetMotor 1,0
end if
if slider1.Value >0 then
ft.SetMotor 1, 1
ft.WaitForChange 6,slider1.Value,8
ft.SetMotors 1, 0
end if
End Sub
%>
<html>
<head>
</head>
<body>
<OBJECT classid=clsid:F08DF954-8592-11D1-B16A-00C0F0283628 height=258 id=vertical style="HEIGHT: 42px; LEFT: 10px; TOP: 15px; WIDTH: 354px" width=42>
<...parameterliste....>
</OBJECT>
</body>
</html>
Damit tut sich nur leider garnischt :(...
Ich habe auch schon ein paar andere Varianten durchprobiert, aber scheinbar bin ich irgendwie nicht fähig, das zum laufen zu kriegen...
danke im Voraus, Robi!!!