Il me faut une jaugeRésolu

Question

Salut
j'ai un probl&#232;me, je voudrais une jauge qui &#233;volue toute seule 
par rapport a un transfert de fichier et qui affiche le temps restant 
merci d'avance 
<HR>
psp: j'ai 13ans

cs_DARKSIDIOUS · Accepted Answer

Voir ma source de copie de dossier avec d&#233;fillement, elle te
permettra d'avoir la progression de la copie avec plusieurs affichage
possible

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

AnteManoclis · Answer

Salut, le transfert de fichiers, tu le r&#233;alises comment ?


  Tch&#244; 
AnteManoclis

PSPCRACK · Answer

je le r&#233;alise par 
visualbasic.scriptingobject

mon code est
set fso=createobject......
fso copyfile "chemin source","chemin de destination"

merci

AnteManoclis · Answer

Alors l&#224;, j'sais pas, j'sais pas comment fonctionne cette fonction
mais, ce qu'il faudrait r&#233;ussir &#224; r&#233;cup&#233;rer, c'est la taille du fichier
&#224; transf&#233;rer, le nombre d'octets envoy&#233;s entre deux trames et &#231;a
devrait suffir, maintenant, peut-on les retrouver....?



Bon courage

  Tch&#244; 
AnteManoclis

BasicInstinct · Answer

'lut

utilises plutot l'api CopyFileEx


exemple tiré de l'API-Guide:

'in a form (Form1)
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Ret As Long
    'set the graphics mode to persistent
    Me.AutoRedraw = True
    'print some text
    Me.Print "Click the form to abort the filecopy"
    'show the form
    Me.Show
    'start copying
    Ret = CopyFileEx("c:\verybigfile.ext", "c:\copy.ext", AddressOf CopyProgressRoutine, ByVal 0&, bCancel, COPY_FILE_RESTARTABLE)
    'show some text
    Me.Print "Filecopy completed " + IIf(Ret = 0, "(ERROR/ABORTED)", "successfully")
End Sub
Private Sub Form_Click()
    'cancel filecopy
    bCancel = 1
End Sub
'in a module
Public Const PROGRESS_CANCEL = 1
Public Const PROGRESS_CONTINUE = 0
Public Const PROGRESS_QUIET = 3
Public Const PROGRESS_STOP = 2
Public Const COPY_FILE_FAIL_IF_EXISTS = &H1
Public Const COPY_FILE_RESTARTABLE = &H2
Public Declare Function CopyFileEx Lib "kernel32.dll" Alias "CopyFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal lpProgressRoutine As Long, lpData As Any, ByRef pbCancel As Long, ByVal dwCopyFlags As Long) As Long
Public bCancel As Long
Public Function CopyProgressRoutine(ByVal TotalFileSize As Currency, ByVal TotalBytesTransferred As Currency, ByVal StreamSize As Currency, ByVal StreamBytesTransferred As Currency, ByVal dwStreamNumber As Long, ByVal dwCallbackReason As Long, ByVal hSourceFile As Long, ByVal hDestinationFile As Long, ByVal lpData As Long) As Long
    'adjust the caption
    Form1.Caption = CStr(Int((TotalBytesTransferred * 10000) / (TotalFileSize * 10000) * 100)) + "% complete..."
    'allow user input
    DoEvents
    'continue filecopy
    CopyProgressRoutine = PROGRESS_CONTINUE
End Function


Bon courage 

++

Il me faut une jauge

5 réponses

Discussions similaires