infinite loop

[Necromorph]

i want to make this an infinite loop func so i can call it later, but im not sure how to do it.

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SendMessage.au3>

    GUICreate("COPYING INSTALLER", 300, 75) 
    GUICTRLCREATELABEL("Copying Latest Installer", 25, 50)
    $prog = GUICtrlCreateProgress(25, 25, 250, 20, $PBS_MARQUEE)
    
DO
    GUICTRLSendMsg($prog, $PBM_SETMARQUEE, True, 25)
    GUISetState()
UNTIL

THANKS

[kaotkbliss]

While 1

code here

Wend

?

[Melba23]

redLabel,

Does this help?

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SendMessage.au3>

HotKeySet("{ESC}", "Stop_Progress")

GUICreate("COPYING INSTALLER", 300, 75)
GUICtrlCreateLabel("Copying Latest Installer", 25, 50)
$prog = GUICtrlCreateProgress(25, 25, 250, 20, $PBS_MARQUEE)
GUISetState()
; Set flag and start progress
$fFlag = True
GUICTRLSendMsg($prog, $PBM_SETMARQUEE, True, 25)

Do
    Sleep(10)
Until $fFlag = False

; Stop progess
GUICTRLSendMsg($prog, $PBM_SETMARQUEE, False, 25)
$prog = GUICtrlCreateProgress(25, 25, 250, 20)

Sleep(2000)
Exit

Func Stop_Progress()
    ; Clear flag
    $fFlag = False
EndFunc

M23

[Necromorph]

M23, that is bout perfect, but i'm now thinking i need a better way to do it, perhaps you can help

i want run the Marquee window while a file is copying, then once its done i just want to say GUIDELETE() and move on with my script, any ideas on how would be the best way to do so?

[Melba23]

redlabel,

How are you detecting the end of the file copy?

M23

[Necromorph]

well, that is what seems to be the problem

if i use the Marquee method, the "progress" stops while its copying, so if i start the marquee, it will go, then start the file copy, it will stop, then once the copy is done, it will continue once again

so i would like to just have the file copy trigger the marquee, and the scripts seems to "pause" while its copying, then, once finished, just delete the gui all together.

my situation is this

im copying an installer package from a local network share, and it take about ten to fifteen seconds, and i want the user to see the "something" is happening while the installer package is copying from the share to there machine. and im trying to figure out the best way to do this.

thanks for all your help.

[Melba23]

redLabel,

How many hints do you want!

Try something like this:

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SendMessage.au3>

$hGui = GUICreate("COPYING INSTALLER", 300, 75)
GUICtrlCreateLabel("Copying Latest Installer", 25, 50)
$prog = GUICtrlCreateProgress(25, 25, 250, 20, $PBS_MARQUEE)
GUISetState()

; Start progress
GUICTRLSendMsg($prog, $PBM_SETMARQUEE, True, 25)

; Simulate file copy
Sleep(10000)

; OK it is finished, so.....
GUIDelete($hGUI)

Next time try to think for yourself a bit more.

M23

[Necromorph]

that is what im saying, it doesn't keep updating the Marquee while the actual file copy is in progress, so it just "Freezes" and doesn't resume until the file copy progress is completed. in which case, no point of it at all.

so i need the file copy to run "on the side" so the Marquee keeps updating as the file is copying.

thanks for your replies and you help.

[kaotkbliss]

The only other thing I can think of is a different way instead of FileCopy that does not pause the script. Maybe command line filecopy (cmd) through dos or something?

[kaotkbliss]

Another option would be to create a 2nd script.

you know file size

first script calls 2nd script and starts file copy

2nd script (with hidden tray icon?) opens file progress that uses the formula

$progress=($current_size/$total_size)*100

when your progress bar reaches 100, then end the 2nd script.

[Necromorph]

thank you you very much for your help, do you think you could maybe make me some example script,

maybe use

$dir = directory

$des = destination

just to help me understand.

but not, thank you for you help, and i will see if i can get it to work. thanks much.

[Melba23]

redLabel,

if i use the Marquee method, the "progress" stops while its copying

No it does not - that is the whole point of the Marquee style. Have you actually tried running the code?

M23

[Jos]

redLabel,

No it does not - that is the whole point of the Marquee style. Have you actually tried running the code?

M23

Why aren't you just writing the whole script and a detailed user manual to help the poor creature?

I know you can do it.

[Necromorph]

yes, it the progress stop once the file copy portion starts, after it is finished it resumes.

my code looks like this

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SendMessage.au3>

$hGui = GUICreate("COPYING INSTALLER", 300, 75)
GUICtrlCreateLabel("Copying Latest Installer", 25, 50)
$prog = GUICtrlCreateProgress(25, 25, 250, 20, $PBS_MARQUEE)
GUISetState()

GUICTRLSendMsg($prog, $PBM_SETMARQUEE, True, 25)


FILECOPY("C:\DIR\TESTFOLDER\*.exe", "*.exe", 1)

GUIDelete($hGUI)

[kaotkbliss]

I will try...

say file size is 1500 for example

Script 1

Run("C:\progress.exe")
FileCopy($dir,$dest)

script 2 (named progress.exe)

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
$total_size = 1500
$current_size = FileGetSize($dest)
$progress = ($current_size / $total_size) * 100

$hGUI = GUICreate("File Progress", 300, 50, -1, -1)
$prog = GUICtrlCreateProgress(3, 20, 295, 14, $PBS_SMOOTH)
$current_size = FileGetSize($dest)
$progress = ($current_size / $total_size) * 100
GUICtrlSetData($prog, $progress)
GUISetState(@SW_SHOW, $hGUI)
Do
    $current_size = FileGetSize($dest)
    $progress = ($current_size / $total_size) * 100
    GUICtrlSetData($prog, $progress)
Until $progress = 100
;or you could do Until $current_size=1500

you will have to code in your $dest, $dir variables and get the correct filesize of the original file

Edited February 25, 2010 by kaotkbliss

[Melba23]

redLabel,

yes, it the progress stop once the file copy portion starts, after it is finished it resumes.

Then you have the weirdest setup I have ever seen.

Sorry I cannot help any more.

M23

[Necromorph]

@ kaotkbliss

Thank you so much this is so close, but the progress bar is set to 100% right off the bat, so it is very close, but they do run at the same time. so it is very very close, i just need to refine the "progress.exe" a bit more, let me know if you have any more thoughts, thanks again.

i think what is happening is it as soon as the file copy starts it puts the total size in the dest (even thought it isn't yet) so it does the first loop, then says "its all there", so done.

Edited February 26, 2010 by redLabel

[kaotkbliss]

here is a 3 line code to get an exact filesize number that autoit sees on a file. maybe your numbers are off? if the problem is what you think then maybe a small pause before the filegetsize

$input=InputBox("File","Full path and file name")
$file=FileGetSize($input)
MsgBox(0,"File Size",$file)

[martin]

@redLabel. It looks like you have been struggling with filecopy and progress for some time, but I don't see that you have used methods that have been already developed. Did you search for solutions? Or did you not understand how to use them. This one for example looks like it should have helped.

Edited February 26, 2010 by martin

[Necromorph]

@martin

Thank you so much. this one works!! i did search before, but i didn't find this one, it is midly short and works, so its perfect, the only thing im having trouble with is i can't get it to work with wildcard* files, any ideas on that?

i get "unable to open 'file'", but it does find the file just fine. i use the FINDFILEFIRST method to do this

$installserver=FILEFINDFIRSTFILE("C:\test-*.exe")
$packageserver=FILEFINDNEXTFILE($installserver)
FILECLOSE($installserver)

$FileCopy = _CopyWithProgress($packageserver, "*.exe", 5120)

thanks again thought, im super close.

Edited February 26, 2010 by redLabel