Beiträge von nuts

Zitat

function GetAsArray(ChannelID: Integer; StartTime: TDateTime; EndTime: TDateTime; out List: OleVariant): Integer;

Returns a variant SafeArray of EPGItems which meet the criteria. This function is for highspeed data retrieval.
The returned array is two dimensional [0..EPGItemCount, 0..EPGItemPropertiescount]. The second dimension is defined as follows:

List[i,0] := EPGChannelID; // Longword (unsigned int)
List[i,1] := EventID; // Longword (unsigned int)
List[i,2] := Time; // Datetime (Double)
List[i,3] := Duration; // Datetime (Double)
List[i,4] := Event; // String
List[i,5] := Title; // String
List[i,6] := Description; // String
List[i,7] := CharSet; // Byte
List[i,8] := Content; // Byte

Parameters
ChannelID
The EPGChannelID as explained in IEPGManager.hasEPG. If you want all channel set this to 0.
StartTime
The start time and date. If set to 0 it gets all available EPG data till EndTime.
EndTime
The end time and date. If set to 0 it gets all available EPG data from StartTime till the end of the buffer.
If StartTime=EndTime you get all programs running at this point of time.
List
A Variant to be filled with the data.
Returns
The count of entries in the array.

Alles anzeigen

[autoit]

#include <array.au3>
$DVBViewer = ObjGet("", "DVBViewerServer.DVBViewer") ;Verbindung aufbauen -> klappt
If $DVBViewer = 0 Then ; ohne Verbindung das Skript beenden
MsgBox(1, "", "Keine Verbindung zum DVBViewer möglich")
Exit
EndIf
dim $list
$SID = $DVBViewer.CurrentChannel.Tuner.SID() ; SID des getunten Senders holen
$TSID = $DVBViewer.CurrentChannel.Tuner.TransportStreamID() ;TID des getunten Senders holen
$NID = $DVBViewer.CurrentChannel.Tuner.NetworkID()
$EPGID = $SID + $TSID * 65536 ;DVBV spezifisch, diese Zeile ist richtig

[/autoit] [autoit][/autoit] [autoit]

ConsoleWrite($SID & " " & $TSID & " " & $NID & " " & $EPGID & @CRLF) ;debug zeile -> Abfragen sind erfolgreich

[/autoit] [autoit][/autoit] [autoit]

$test = $DVBViewer.EPGManager.GetasArray($EPGID,0,0, $list) ;Array holen

[/autoit] [autoit][/autoit] [autoit]

ConsoleWrite($test & @CRLF) ; Den "Count" der Arrayeinträge bekomme ich, die Anfrage klappt also scheinbar

[/autoit] [autoit][/autoit] [autoit]

If IsArray($list) then _ArrayDisplay($list) ; $list ist nur kein Array
MsgBox(1, "", @error) ; @error = 0

[/autoit]

[autoit]

#include <file.au3>
#Include <string.au3>
#Include <Array.au3>
Dim $asettings, $i = 0, $sresult, $aresult
If Not _FileReadToArray("settings.txt", $asettings) Then
MsgBox(4096, "Fehler", "Fehler beim Einlesen der Datei!" & @CRLF & "Fehlercode: " & @error)
Exit
EndIf
$sSearch = " 9100"
_ArrayDisplay($asettings)
$iIndex = _ArraySearch($asettings, $sSearch)
If @error Then MsgBox(0, "Nicht gefunden", '"' & $sSearch & '" wurde in dem Array nicht gefunden.')
while 1
if $sSearch[$iIndex+$i] <> "V" then
$sresult &= $sSearch[$iIndex+$i] &"|"
$i += 1
Else
$i = 0
ExitLoop
endif
wend
$aresult =stringsplit( StringtrimRight($sresult, 1), "|")
_ArrayDisplay($aresult)

[/autoit]

[autoit][/autoit] [autoit][/autoit] [autoit]

;Set Constants
Global Const $NET_FW_IP_PROTOCOL_UDP = 17
Global Const $NET_FW_IP_PROTOCOL_TCP = 6

[/autoit] [autoit][/autoit] [autoit]

Global Const $NET_FW_SCOPE_ALL = 0
Global Const $NET_FW_SCOPE_LOCAL_SUBNET = 1

[/autoit] [autoit][/autoit] [autoit]

;Declare variables
Dim $errornum

[/autoit] [autoit][/autoit] [autoit]

;Create the firewall manager object.
Dim $fwMgr
$fwMgr = ObjCreate("HNetCfg.FwMgr")
if @error Then
ConsoleWrite("Objekt HNetCfg.FwMgr konnte nicht erstellt werden" & @CRLF)
Exit
endif

[/autoit] [autoit][/autoit] [autoit]

; Get the current profile for the local firewall policy.
Dim $profile
$profile = $fwMgr.LocalPolicy.CurrentProfile

[/autoit] [autoit][/autoit] [autoit]

Dim $port
$port = Objcreate("HNetCfg.FWOpenPort")
if @error Then
ConsoleWrite("Objekt HNetCfg.FWOpenPort konnte nicht erstellt werden" & @CRLF)
Exit
endif

[/autoit] [autoit][/autoit] [autoit]

$port.Name ='HTTP'
$port.Protocol =6
$port.Port =80

[/autoit] [autoit][/autoit] [autoit]

;If using Scope, don't use RemoteAddresses
$port.Scope =$NET_FW_SCOPE_ALL
;Use this line to scope the port to Local Subnet only
;port.Scope = NET_FW_SCOPE_LOCAL_SUBNET

[/autoit] [autoit][/autoit] [autoit]

$port.Enabled=TRUE
;Use this line instead if you want to add the port, but disabled
;port.Enabled = FALSE

[/autoit]

[autoit]

#include <array.au3>

allemaxi()

Func allemaxi()
$winlist = WinList()
_ArrayDisplay($winlist)
For $a = 1 To $winlist[0][0]
;WinSetState($winlist[$a][0], "", @SW_MAXIMIZE)
;$a += 1
Next
Sleep(50)
EndFunc ;==>allemaxi

[/autoit]

[autoit]

global $counter = 1

[/autoit] [autoit][/autoit] [autoit]

While 1
Send($counter)
$counter +=1
Send("{ENTER}")
if $counter = 10 then exit
WEnd

[/autoit]