Moin moin Leutz,
ich hab n seltsammes Problem, nämlich das er mir als Ausgabe des Splahs mit dem Prozent immer 0% zeigt.
Hier mal ein Codeausschnitt den ich isoliert habe:
Spoiler anzeigen
Global Const $InetUpdateVersionPath = "http://home.arcor.de/doppelmoppelmord/calc++/version.txt"
Global Const $InetUpdateVersionName = "version.txt"
Global Const $InetUpdatePath = "http://home.arcor.de/doppelmoppelmord/calc++/CalcUpdate.exe"
Global Const $InetUpdateName = "CalcUpdate.exe"
Global Const $Version = "1.2 Beta"
_Menu_Updates()
[/autoit] [autoit][/autoit] [autoit]Func _Menu_Updates()
Filedelete(@tempdir & "\" & $InetUpdateVersionName)
Filedelete(@tempdir & "\" & $InetUpdateName)
If Msgbox(65,"Updates","Calc++ wird nun im Internet nach Updates suchen, fortfahren?") <> 1 Then
Return 0
EndIf
$InternetGet = InetGet($InetUpdateVersionPath,@tempdir & "\version.txt",1)
IF @error Then
Msgbox(48,"Fehler","Es ist ein Fehler aufgetreten, entweder besteht keine Internetverbindung oder" & @CRLF & "die Versionsinformationen sind zur Zeit nicht verfügbar.")
Return 0
EndIf
$InternetVersion = FileRead(@tempdir & "\version.txt")
IF $InternetVersion <> $Version Then
If Msgbox(52,"Neue Version","Es ist eine Neue Version verfügbar, soll diese nun heruntergeladen und installiert werden?") <> 6 Then
Return 0
EndIf
Else
Msgbox(64,"Aktuell","Calc++ ist auf dem aktuellsten Stand.")
Return 0
EndIf
$InetSize = InetGetSize($InetUpdatePath)
msgbox(0,"inetsize",$InetSize) ;########WEG
If @error Then
Msgbox(48,"Fehler","Es ist ein Fehler aufgetreten, möglicherweise ist der FTP Server zur Zeit nicht erreichbar.")
Return 0
EndIf
SplashTextOn("","Lade herunter...",250,20,Default,Default,1)
InetGet($InetUpdatePath,@tempdir & "\" & $InetUpdateName,1,1)
If @error Then
Splashoff()
Msgbox(48,"Fehler","Es ist ein Fehler aufgetreten, möglicherweise ist der FTP Server zur Zeit nicht erreichbar.")
Return 0
EndIf
While @InetGetActive
SplashOff()
$InetUpdateProzent = $InetSize/@InetGetBytesRead/100
SplashTextOn("","Lade herunter... " & $InetUpdateProzent & "% fertig",250,20,Default,Default,1)
sleep(50)
WEnd
SplashOff()
Run(@Tempdir & "\CalcUpdate.exe")
Exit
EndFunc
greeeeeeeeeeeeeeetz