Beiträge von Bitnugger

#include <Debug.au3>
#include <Misc.au3>
#include <FTPEx.au3>






#cs
2 Beispiele eines FTP Downloads mit externem Progressfenster zur Demostration der Fortschrittsanzeige mit einer Benutzerfunktion
#ce






Global $hFTPSession, $hFTPConnect, $sServerName, $sUsername, $sPassword, $iPassive, $sLocalFile, $sRemoteFile






_DebugSetup('MyFTP Control', True)






_Demo1()
_DebugOut("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
_DebugOut("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
_DebugOut("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
_Demo2()










Func _Demo1()
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Beispiel 1
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
$hFTPSession = -1
$hFTPConnect = -1






$sServerName = "ftp.mozilla.org" ; das ist ein real existierender Server - lol, ja was denn sonst?
$sUsername = "" ; Annonyme Verbindung
$sPassword = "" ; ohne Username und/oder Passwort
$iPassive = 1 ; passives FTP nutzen (empfohlen)






If FileExists("M:\TEMP\") Then ; M: ist meine RAMDISK
$sLocalFile = "M:\TEMP\Firefox Setup 39.0b5.exe"
Else
$sLocalFile = @TempDir & "\Firefox Setup 39.0b5.exe"
EndIf
$sRemoteFile = "/pub/firefox/releases/39.0b5/win64/de/Firefox Setup 39.0b5.exe"






If FileExists($sLocalFile) Then
FileDelete($sLocalFile) ; alte Datei löschen
_DebugOut("alte Datei gelöscht...")
EndIf






_myFTP_ProgressDownload()
EndFunc ;==>_Demo1






Func _Demo2()
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Beispiel 2
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
$hFTPSession = -1
$hFTPConnect = -1






$sServerName = "192.168.0.111"
$sUsername = "XXXX"
$sPassword = "XXXXXXXX"






$sLocalFile = @TempDir & "\Drucken.txt"
$sRemoteFile = "/var/usbstick/Drucken.txt" ; Backslashes '\' sind hier sicher falsch!!!






If FileExists($sLocalFile) Then
FileDelete($sLocalFile) ; alte Datei löschen
_DebugOut("alte Datei gelöscht...")
EndIf






_myFTP_ProgressDownload()
EndFunc ;==>_Demo2






Func _myFTP_ProgressDownload()
Local $iError = 0, $iExtended = 0, $sMessage = ""






; FTP Sitzung eröffnen
$hFTPSession = _FTP_Open("myFTP")
If @error Then
$iError = @error
$iExtended = @extended
$sMessage = ""
_DebugOut("Error: _FTP_Open()" & @CRLF & _
" $hFTPSession = " & $hFTPSession & @CRLF & _
" _FTP_GetLastResponseInfo = " & _FTP_GetLastResponseInfo($iError, $sMessage) & @CRLF & _
" @error = " & $iError & @CRLF & _
" @extended = " & $iExtended)
_CloseFTP()
;_Exit(1)
EndIf
_DebugOut("OK: _FTP_Open() --> " & $hFTPSession)






; set up a status callback function
Local $pCallback = _FTP_SetStatusCallback($hFTPSession, 'FTPStatusCallbackHandler')






; mit FTP Server verbinden
$hFTPConnect = _FTP_Connect($hFTPSession, $sServerName, $sUsername, $sPassword, $iPassive, $INTERNET_DEFAULT_FTP_PORT, $INTERNET_SERVICE_FTP, 0, $pCallback)
If @error Then
$iError = @error
$iExtended = @extended
$sMessage = ""
_DebugOut("Error: _FTP_Connect()" & @CRLF & _
" $hFTPSession = " & $hFTPSession & @CRLF & _
" $hFTPConnect = " & $hFTPConnect & @CRLF & _
" $sServerName = " & $sServerName & @CRLF & _
" $sUsername = " & $sUsername & @CRLF & _
" $sPassword = " & $sPassword & @CRLF & _
" $iPassive = " & $iPassive & @CRLF & _
" _FTP_GetLastResponseInfo = " & _FTP_GetLastResponseInfo($iError, $sMessage) & @CRLF & _
" @error = " & $iError & @CRLF & _
" @extended = " & $iExtended)
_CloseFTP()
;_Exit(2)
EndIf
_DebugOut("OK: _FTP_Connect() --> " & $hFTPConnect)






; ProgressDownload
#cs
Der Funktionsname darf nicht, so wie es in der AutoIt-Hilfe gezeigt wird,
in "" gesetzt werden!!!
Falsch: Local $sFunctionToCall = "_UpdateProgress" <-- String
Richtig: Local $sFunctionToCall = _UpdateProgress <-- UserFunction
#ce






Local $sFunctionToCall = _UpdateProgress






ProgressOn("Downloading from: " & $sServerName, "..." & StringRight($sRemoteFile,35), "Status: 0%")
_FTP_ProgressDownload($hFTPConnect, $sLocalFile, $sRemoteFile, $sFunctionToCall)
If @error Then
$iError = @error
$iExtended = @extended
$sMessage = ""
ProgressOff()
Switch $iError
Case -1
$sError = "Local file couldn't be created"
Case -2
$sError = "Unable to get RemoteFile size"
Case -3
$sError = "Open RemoteFile failed"
Case -4
$sError = "Read from Remotefile failed"
Case -5
$sError = "Close RemoteFile failed"
Case -6
$sError = "Download aborted by PercentageFunc and Return of Called Function"
Case -7
$sError = "Local file write failed"
Case Else
$sError = "Wow, ich bin ein Genie... lol"
EndSwitch
_DebugOut( _
"Error: _FTP_ProgressDownload()" & @CRLF & _
" $hFTPSession = " & $hFTPSession & @CRLF & _
" $hFTPConnect = " & $hFTPConnect & @CRLF & _
" $sLocalFile = " & $sLocalFile & @CRLF & _
" $sRemoteFile = " & $sRemoteFile & @CRLF & _
" $sError = " & $sError & @CRLF & _
" _FTP_GetLastResponseInfo = " & _FTP_GetLastResponseInfo($iError, $sMessage) & @CRLF & _
" @error = " & $iError & @CRLF & _
" @extended = " & $iExtended)
_CloseFTP()
;_Exit(3)
EndIf
ProgressOff()






_DebugOut("OK: _FTP_ProgressDownload() - Download complete" & @CRLF & _
"From: " & $sRemoteFile & @CRLF & _
" To: " & $sLocalFile & @CRLF)






Return 1 ; OK
EndFunc ;==>_myFTP_ProgressDownload






Func _UpdateProgress($iPercent)
;ConsoleWrite("@@ Debug line" & @TAB & @ScriptLineNumber & " var: $iPercent --> " & $iPercent & @LF)






; Set the "subtext" and "maintext" of the progress bar window.
Local $iInt = Int($iPercent)
If $iInt < 100 Then
ProgressSet($iInt, "Status: " & $iInt & "%") ; percent [, "subtext" [, "maintext"]]
Else
ProgressSet(100, "Done", "Download complete")
Sleep(1000)
EndIf
If _IsPressed("77") Then Return 0 ; Abbruch bei F8
Return 1 ; bei 1 Download fortsetzen
EndFunc ;==>_UpdateProgress






Func FTPStatusCallbackHandler($hInternet, $iContext, $iInternetStatus, $pStatusInformation, $iStatusInformationLength)
#forceref $hInternet, $iContext
If $iInternetStatus = $INTERNET_STATUS_REQUEST_SENT Or $iInternetStatus = $INTERNET_STATUS_RESPONSE_RECEIVED Then
Local $iBytesRead
Local $tSize = DllStructCreate('dword')
_WinAPI_ReadProcessMemory(_WinAPI_GetCurrentProcess(), $pStatusInformation, DllStructGetPtr($tSize), $iStatusInformationLength, $iBytesRead)
_DebugOut(_FTP_DecodeInternetStatus($iInternetStatus) & ' | Size = ' & DllStructGetData($tSize, 1) & ' Bytes Bytes read = ' & $iBytesRead)
Else
_DebugOut(_FTP_DecodeInternetStatus($iInternetStatus))
EndIf
EndFunc ;==>FTPStatusCallbackHandler






Func _CloseFTP()
If IsDeclared("hFTPConnect") Then _FTP_Close($hFTPConnect) ; Verbindung zum Server trennen
If IsDeclared("hFTPSession") Then _FTP_Close($hFTPSession) ; FTP Session schließen
EndFunc ;==>_CloseFTP






Func _Exit($err = 0)
Exit $err
EndFunc ;==>_Exit

#include <File.au3>
#include <InetConstants.au3>
#include <String.au3>


;#AutoIt3Wrapper_Run_Debug_Mode=Y


Global $pEPGDaten = "m:\EPGDaten.txt"
Global $aEPGdaten[0][5]
Global $iSenderID = 0, $iStartzeit = 1, $iDauer = 2, $iSendungsID = 3, $iSendung = 4
Global $IP = "192.168.78.20", $Port = 80
Global $URL = "http://" & $IP & ":" & $Port & "/control/epg?ext"


$Spacer = _StringRepeat("-", 72)


Bsp()
ConsoleWrite($Spacer & @CR)
;_ArrayDisplay($aEPGdaten, "$aEPGdaten")


_FindSendung("Da kommt Kalle", 2, 1)    ; $Anzahl, $Direction
ConsoleWrite($Spacer & @CR)


Func Bsp()
    ConsoleWrite($Spacer & @CR)
    If Not FileExists($pEPGDaten) Then
        ; Download the file in the background with the selected option of 'force a reload from the remote site.'
        Local $hDownload = InetGet($URL, $pEPGDaten, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND)
        ConsoleWrite("Download the file in the background" & @CR)
        Do
            Sleep(250)
        Until InetGetInfo($hDownload, $INET_DOWNLOADCOMPLETE)


        ; Retrieve the number of total bytes received and the filesize.
        Local $iBytesSize = InetGetInfo($hDownload, $INET_DOWNLOADREAD)
        Local $iFileSize = FileGetSize($pEPGDaten)


        ; Close the handle returned by InetGet.
        InetClose($hDownload)


        ; Display details about the total number of bytes read and the filesize.
        ConsoleWrite("The total download size: " & $iBytesSize & @CR)
        ConsoleWrite("The total filesize     : " & $iFileSize & @CR)
        ConsoleWrite($Spacer & @CR)
    EndIf
    Local $aTemp
    If Not _FileReadToArray($pEPGDaten, $aTemp, $FRTA_NOCOUNT)    Then ; array is 0-based use UBound() to get size
        _Error("_FileReadToArray()", @error, @extended)
    Else


        Local $ubTemp = UBound($aTemp), $sSendung, $progress = $ubTemp / 10
        For $i = 0 To $ubTemp - 1
            If $i == 1 Or $i == 250 Or $i == 500 Or $i == 750 Or $i == 1000 Or $i == 1250 Or $i == 1500 Or $i == 1750 Or $i == 2000 _
            Then ConsoleWrite("Lese Daten in Array ein... bitte warten... " & $i & "/" & $ubTemp & @CR)
            If $aTemp[$i] = "" Then ContinueLoop
            $aSplit = StringSplit($aTemp[$i] , " ")
            $Error = @error
            Local $ubSplit = UBound($aSplit) - 1
            If $ubSplit >= 5 Then ; < 5 = Fehler!
                $sSendung  = ""
                For $j = 5 To $ubSplit
                    If $sSendung  = "" Then
                        $sSendung = $aSplit[$j]
                    Else
                        $sSendung &= " " & $aSplit[$j]
                    EndIf
                Next
                Local $aLine[1][5] = [[$aSplit[1], $aSplit[2], $aSplit[3], $aSplit[4], $sSendung]]
                _ArrayAdd($aEPGdaten, $aLine, 0)
            Else
                _Error("$StringSplit()", $Error, "", "Split = " & $ubSplit & " in Line " & $i +1)
            EndIf
        Next
        ConsoleWrite("OK - Daten wurden in Array eingelesen..." & @CR)
    EndIf
EndFunc


Func _FindSendung($sSendung, $Anzahl = 1, $Direction = 0) ; $Anzahl: -1 = Alle, $Direction: 0 = ascending, 1 = descended
    If $sSendung == "" Then
        ConsoleWrite("Keine Sendung als Suchparameter angegeben!" & @LF)
        Exit
    Else
        ConsoleWrite("Suche Sendung: " & $sSendung & @LF)
    EndIf
    If $Anzahl == -1 Then $Anzahl = UBound($aEPGdaten) - 1
    If $Direction == 0 Then
        $j = 0
        $k = UBound($aEPGdaten) - 1
        $Step = "1"
    Else
        $j = UBound($aEPGdaten) - 1
        $k = 0
        $Step = "-1"
    EndIf
    For $i = $j To $k Step $Step
        If $aEPGdaten[$i][$iSendung] == $sSendung Then
            ConsoleWrite("Sendung Nr. " & $i + 1 & " --> " & $aEPGdaten[$i][$iSendung] & @LF)
            $Anzahl -= 1
            If $Anzahl == 0 Then ExitLoop
        Else
            ContinueLoop
        EndIf
    Next
EndFunc


Func _Error($ErrorText, $Error, $Extended = "", $Kommentar = "")
    If $Extended == "" Then
        $Extended = ""
    Else
        $Extended = ', @extended = ' & $Extended
    EndIf
    If $Error == "" Then
        $Error = ""
    Else
        $Error = ', @error = ' & $Error
    EndIf
    Switch $ErrorText
        Case $ErrorText = "_FileReadToArray()"
            If $Error = 1 Then $Error = $Error & " [Error opening specified file]"
            If $Error = 2 Then $Error = $Error & " [Unable to split the file]"
            If $Error = 3 Then $Error = $Error & " [File lines have different numbers of fields (only if $FRTA_INTARRAYS flag not set)]"
            If $Error = 4 Then $Error = $Error & " [(No delimiters found (only if $FRTA_INTARRAYS flag not set)]"
        Case $ErrorText = "$StringSplit()"
    EndSwitch
    ConsoleWrite("!Fehler bei: " & $ErrorText & $Error & $Extended & " [" & $Kommentar & "]" & @CR)
    Exit
EndFunc