Beiträge von autoBert

Func _fetchParaFile_Support($SoureDirectory)
    Local $aFiles = _FileListToArray($SoureDirectory, '*.txt', 1)
    If $aFiles[0] > 0 Then
        Local $aFileAndDate[$aFiles[0]][2]    ;Array gleich in der richtigen Größe erstellen
        For $iFile = 1 To $aFiles[0] Step 1
            Local $date = FileGetTime($SoureDirectory & $aFiles[$iFile], 0, 1)
            $aFiles[$iFile][0]= $aFiles[$iFile]    ;Filename
            $aFiles[$iFile][1]= $date              ;Datum
        Next
        _ArraySort($aFileAndDate, 0, 0, 0, 1) ;SORT ASCENDING, OLDEST FILE FIRST
        Return $SoureDirectory & $aFileAndDate[0][0]
    EndIf
    Return 0
EndFunc 

--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
! Benoetigte Zeit, um das Listview mit _GUICtrlListView_AddArray zu befuellen ($aLV[1600][32]): 00:00:03:153:2147483647

! MemoryStatus
Percent of Mem in use : 83
Physical Mem: Total   : 2026266624
Physical Mem: Free    : 329748480
Paging file: Total    : 4844838912
Paging file: Free     : 1477885952
User Mem: Total       : 140737488224256
User Mem: Free        : 140732970659840

#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <Inet.au3>



;============== Begin Testdaten ==============

Global $ip[10]

For $i= 0  to 9
    $ip[$i] = '172.16.' & Random(1,8,1) & '.' & Random(1, 254,1)
Next

;_ArrayDisplay($ip)

;============== Ende Testdaten ===============

_MyIPsMsgBox($ip, 'Verbunden', 15)

Func _MyIPsMsgBox($aIP, $sTitle = 'Connected: ', $iTimeOut = 0, $bTCPStartUpShutDown = True, $hParent = 0)
    #cs
    Functionname        _MyIPsMsgBox
    Parameter:            $aIP                    ein 1D array mit den verbundenen IP's
                        $sTitle                    Titel der GUI
                        $iTimeOut                wenn größer 0 dann max. Anzeigedauer der GUI,
                        $bTCPStartUpShutDown    True = TCP wird gestartet und auch wieder beendet
                                                False = TCP wird nicht verändert
                        $hParent                Elter-GUI
    #ce
    If $iTimeOut < 0 Then $iTimeOut = 0
    Local $aIP2D[UBound($aIP)][2]
    Local $tdStart, $bClose = False
    Local $iEvent = Opt("GUIOnEventMode", 0) ;ursprünglichen Eventmode speichern
    if $bTCPStartUpShutDown Then TCPStartup()
    For $i = 0 To UBound($aIP) -1
        $aIP2D[$i][0] = $aIP[$i]
        $aIP2D[$i][1] = _TCPIpToName($aIP[$i], 0)
    Next
    if $bTCPStartUpShutDown Then TCPShutdown()
    Local $hGUI = GUICreate($sTitle, 256, 256, (@DesktopWidth-512) /2, (@DesktopHeight-512) /2, Default, Default, $hParent)
    Local $idLV = GUICtrlCreateListView('IP|Name',2,2,252,220)
    _GUICtrlListView_AddArray($idLV, $aIP2D)
    _GUICtrlListView_SetColumnWidth($idLV, 0, $LVSCW_AUTOSIZE)
    _GUICtrlListView_SetColumnWidth($idLV, 1, $LVSCW_AUTOSIZE_USEHEADER)
    Local $idBtnOK = GUICtrlCreateButton('OK',2, 225, 252)
    GUISetState()
    ; Loop until the user exits or timeout is reached
    $tdStart = TimerInit()
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $idBtnOK
                ExitLoop

        EndSwitch
        If $iTimeOut Then
            If TimerDiff($tdStart) > $iTimeOut * 1000 Then ExitLoop
        EndIf
    WEnd

    ; Delete the previous GUI and all controls.
    GUIDelete($hGUI)
    Opt("GUIOnEventMode", $iEvent) ;ursprünglichen Eventmode wiederherstellen
EndFunc

; *** Start added by AutoIt3Wrapper ***
#include <StaticConstants.au3>
; *** End added by AutoIt3Wrapper ***
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <MsgBoxConstants.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <ColorConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <GuiListView.au3>

Local $aResult, $iRows, $iColumns, $iRval, $iPercent

_SQLite_Startup()
If @error Then
    MsgBox($MB_SYSTEMMODAL, "SQLite Error", "SQLite.dll Can't be Loaded!")
    Exit -1
EndIf
ConsoleWrite("_SQLite_LibVersion=" & _SQLite_LibVersion() & @CRLF)
_SQLite_Open() ; Open a :memory: database
If @error Then
    MsgBox($MB_SYSTEMMODAL, "SQLite Error", "Can't Load Database!")
    Exit -1
EndIf


If Not _SQLite_Exec(-1, "CREATE TEMP TABLE persons (Name, Age);") = $SQLITE_OK Then _
        MsgBox($MB_SYSTEMMODAL, "SQLite Error", _SQLite_ErrMsg())
For $i = 1 To 1000 ;datensätze * 1000
    If Not _SQLite_Exec(-1, "INSERT INTO persons VALUES ('Alice','43');") = $SQLITE_OK Then _
            MsgBox($MB_SYSTEMMODAL, "SQLite Error", _SQLite_ErrMsg())
    If Not _SQLite_Exec(-1, "INSERT INTO persons VALUES ('Bob','28');") = $SQLITE_OK Then _
            MsgBox($MB_SYSTEMMODAL, "SQLite Error", _SQLite_ErrMsg())
    If Not _SQLite_Exec(-1, "INSERT INTO persons VALUES ('Cindy','21');") = $SQLITE_OK Then _
            MsgBox($MB_SYSTEMMODAL, "SQLite Error", _SQLite_ErrMsg())
Next

Local $idListview

GUICreate("SQLite with LV", 400, 300)
$idListview = GUICtrlCreateListView("Name|Age", 2, 2, 394, 268)
; Alternate between the listview background color and the listview item background color.
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE)

; Set the background color for the listview.
; Odd listview items will be shown with the background color of the listview,
; even with the background color of the listview item.
GUICtrlSetBkColor(-1, $COLOR_AQUA)
$idPercent = GUICtrlCreateLabel('0 %', 2, 272, 35, 25, $SS_CENTERIMAGE)
$idProgress = GUICtrlCreateProgress(42, 272, 355, 25)
GUICtrlSetBkColor(-1, $COLOR_GREEN)


GUISetState(@SW_SHOW)

; Query
$tdStart = TimerInit()
$iRval = _SQLite_GetTable2d(-1, "SELECT * FROM persons;", $aResult, $iRows, $iColumns)
If $iRval = $SQLITE_OK Then
    $tdEnd = TimerDiff($tdStart)
    ConsoleWrite($tdEnd & @CRLF)
    _GUICtrlListView_BeginUpdate($idListview)
    For $i = 1 To $iRows
        GUICtrlCreateListViewItem($aResult[$i][0] & '|' & $aResult[$i][1], $idListview)
        if Int($i, 2) Then GUICtrlSetBkColor(-1, $COLOR_GREEN)    ;only even items must be coloured
        $iPercent = Int($i / $iRows * 100)
        If GUICtrlRead($idProgress) <> $iPercent Then
            GUICtrlSetData($idProgress, $iPercent)
            GUICtrlSetData($idPercent, $iPercent & ' %')
        EndIf
    Next
    _GUICtrlListView_EndUpdate($idListview)
    $tdEnd = TimerDiff($tdStart)
    ConsoleWrite($tdEnd & @CRLF)
EndIf

_SQLite_Close()
_SQLite_Shutdown()

; Loop until the user exits.
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()