_FTP_DownloadProgress()

PokerFace

Hallo,
ich komme mit der Funktion nicht weiter
Sie ist in der FTP_Ex.au3 enthalten und sieht folgendermaßen aus:

Spoiler anzeigen

[autoit]

;===============================================================================
;
; Function Name: _FTP_DownloadProgress()
; Description:: Downloads a file in Binary Mode and shows Progress in Tooltip or by Calling a User defined Function
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_LocalFile - The local file to create.
; $s_RemoteFile - The remote source file.
; $FunctionToCall - [Optional] A function which can update a Progressbar and
; react on UserInput like Click on Abort or Close App.
; (More info in the end of this comment)
; Requirement(s): ??
; Return Value(s): Success: 1
; Error: 0 and @error:
; -1 -> Local file couldn't be created
; -3 -> Open RemoteFile failed
; -4 -> Read from Remotefile failed
; -5 -> Close RemoteFile failed
; Download aborted by PercentageFunc:
; ReturnValue: Return of Called Function
; And @error -6
; Author(s): limette, Prog@ndy
;
; Information about $FunctionToCall:
; Parameter: $Percentage - The Percentage of Progress
; Return Values: Continue Download - 1
; Abort Download - 0 Or negative
; These Return Values are returned by _FTP_DownloadProgress, too,
; so you can react on different Actions like Aborting by User, closing App or TimeOut of whatever
; Examples:
;~ Func _UpdateProgress($Percentage)
;~ ProgressSet($percent,$percent &"%")
;~ If _IsPressed("77") Then Return 0 ; Abort on F8
;~ Return 1 ; bei 1 Fortsetzten
;~ Endfunc
;
;~ Func _UpdateProgress($Percentage)
;~ GUICtrlSetData($ProgressBarCtrl,$percent)
;~ Switch GUIGetMsg()
;~ Case $GUI_EVENT_CLOSE
;~ Return -1 ; _FTP_UploadProgress Aborts with -1, so you can exit you app afterwards
;~ Case $Btn_Cancel
;~ Return 0 ; Just Cancel, without special Return value
;~ EndSwitch
;~ Return 1 ; Otherwise contine Upload
;~ Endfunc
;
;===============================================================================
;
Func _FTP_DownloadProgress($l_FTPSession, $s_LocalFile, $s_RemoteFile, $FunctionToCall = "")
#Region Declaration
Local $ai_ftpopenfile, $ai_InternetCloseHandle, $fhandle, $glen, $last, $x, $parts, $buffer, $ai_FTPread, $result, $out, $i
#EndRegion Declaration
#Region OpenFile
Local $fhandle = FileOpen($s_LocalFile, 18)
If @error Then
SetError(-1)
Return 0
EndIf
Local $ai_ftpopenfile = DllCall($GLOBAL_FTP_WININETHANDLE, 'ptr', 'FtpOpenFile', 'hwnd', $l_FTPSession, 'str', $s_RemoteFile, 'dword', 0x80000000, 'dword', 0x02, 'dword', 0)
If @error Or $ai_ftpopenfile[0] = 0 Then
SetError(-3)
Return 0
EndIf
#EndRegion OpenFile
If $FunctionToCall = "" Then ProgressOn("FTP Download", "Downloading " & $s_LocalFile)
#Region DataSend
Local $ai_FTPGetFileSize = DllCall($GLOBAL_FTP_WININETHANDLE, 'dword', 'FtpGetFileSize', 'ptr', $ai_ftpopenfile[0], 'dword*', 0)
$glen = BitOR(BitShift($ai_FTPGetFileSize[2], -32), BitAND($ai_FTPGetFileSize[0], 0xFFFFFFFF)) ;FileGetSize($s_LocalFile)
$last = Mod($glen, 100)
$x = ($glen - $last) / 100
;~ If $x = 0 Then $x = 1
If $x = 0 Then
$x = $last
$parts = 1
ElseIf $last > 0 Then
$parts = 101
Else
$parts = 100
EndIf
If $x < $last Then
$buffer = DllStructCreate("byte[" & $last & "]")
Else
$buffer = DllStructCreate("byte[" & $x & "]")
EndIf