Visual Basic

Re(5): Visual Basic

Somnatic — Thu, 02 Aug 2007 19:56:54 GMT

Na was jetzt ... virtuelle COM oder direkt über das gegebene Interface?

Installier dir Visual Studio, füge eine Referenz auf das COM Objekt ControlCenter.Automation hinzu.
Dann solltest du im Object Browser sehen können, welche Methoden dir das Objekt zur Verfügung stellt.

Re(2): Visual Basic

Maugrim — Thu, 02 Aug 2007 19:18:26 GMT

was wo drinsteht? ich hab des nur per mail bekommen als text

Re: Visual Basic

ChrisS — Thu, 02 Aug 2007 18:35:53 GMT

Lass dir doch im Debugmodus im Visual Studio anzeigen was da drinsteht

Re(4): Visual Basic

Maugrim — Thu, 02 Aug 2007 17:53:28 GMT

Naja für mich is des ned ^^

Ich müsste über eine Virtuelle Com schnittstelle in einem Programm ein paar PTZ-Kameras (die nicht angezeigt werden sollen, sonst wärs kein problem ^^) steuern und des funkt nur mit VB scripts welche Befehle mit positionen an eine bestimmte Kamera schickt das diese eine Route abfährt.

Dieses Script hab ich als Sample bekommen wie sowas aussieht, bringt mir aber genau nüsse ^^

Greetz,

Maugrim

Re(3): Visual Basic

Somnatic — Thu, 02 Aug 2007 16:42:41 GMT

Wennst mir verratest was du genau machen willst, kann mans vielleicht erraten

Re(2): Visual Basic

Maugrim — Thu, 02 Aug 2007 15:00:16 GMT

Das Problem ist es gibt keine Doku... und der Support der Firma kennt sich nur hardwaretechnisch mit den Geräten aus.

Ein Ticket an die Programmierabteilung ist schon raus, jedoch brauchen die ewig und drei tage für alles.

Danke ich werd mir das mal durchschaun ob ich was rausfind.

Greetz,

Maugrim

Re: Visual Basic

Somnatic — Thu, 02 Aug 2007 14:37:28 GMT

welche cameranummer angesprochen wird

Alle

For each camera in automation.cameras bedeutet:

Rufe automation.Cameras auf. Du bekommst dann eine Liste von Cameras, die du Element für Element durchgehst (for each)
Was genau die Parameter von StartCamera aussagen muss in der Doku stehen; Auf jeden Fall rufst du StartCamera mit dem Parameter "LogicalCamera" jeder einzelnen Kamera, die gefunden wurde, auf.

Willst du mehr Kontrolle über das traversieren der Liste kannst du folgendes verwenden (C# Code; VB musst das evtl. ein wenig umgschreiben):
List cameras = automation.Cameras;

Jetzt kannst du mittels cameras[i] auf jede einzelne Kamera zugreifen

Visual Basic

Maugrim — Thu, 02 Aug 2007 14:32:34 GMT

Kann mir das wer interpretieren, ich mein das meiste les ich raus, jedoch wie weis ich welche cameranummer angesprochen wird?

option explicit

Dim automation
Set automation = CreateObject("ControlCenter.Automation")

'
' Cycle through all the cameras in the site in pane 1 indefinitely
' Kill process wscript.exe or close CC to stop
'
Dim camera
Do While true
    For Each camera In automation.Cameras

        automation.Live.StartCamera 1, CInt(camera.LogicalNumber)

        WScript.Sleep(5000)
    Next
Loop

Greetz,

Maugrim