Snippet: CopyProgress

Post

Posted
Rating:
#1 (In Topic #806)
Diverod
Regular
Diverod is in the usergroup ‘Regular’
I needed to copy large files to a Samba server and wanted a visual indication of the progress.
You will need ‘rsync’ installed if you don’t have it. (or just change to something else in the class and update the parsing)
You will need a ProgressBar and a TextLabel also if used as is.
It's not as smooth as I'd like but good enough for my needs.
I’m not good at ‘Class’ objects but tried my hand at it. (Thanks stevedee)
I want to see if I can get this to run in the background and found Cogier’s TaskExample and will attempt it later.
Haven’t done much error checking as it’s just a snippet.
<IMG src="https://i.postimg.cc/hjDVpz8b/Copy-Progress.png"> </IMG>

Code (gambas)

  1. ' Gambas class file
  2.  
  3. Property Source As String         ' Source Path & File Name
  4. Property Destination As String    ' Destination Path & File Name
  5. Property StatusTXL As TextLabel   ' TextLabel on FMain to update
  6. Property Progress As ProgressBar  ' ProgressBar on FMain to update
  7.  
  8. Private sSource As String
  9. Private sDestination As String
  10. Private cStatusTXL As TextLabel
  12.  
  13. Private Function Source_Read() As String          ' Retrieve Value
  14.   Return sSource
  16.  
  17. Private Function Destination_Read() As String     ' Retrieve Value
  18.   Return sDestination
  20.  
  21. Private Function StatusTXL_Read() As TextLabel    ' Retrieve Value
  22.   Return cStatusTXL
  24.  
  25. Private Function Progress_Read() As ProgressBar   ' Retrieve Value
  26.   Return cProgress
  28.  
  29. Private Sub Source_Write(Value As String)         ' Set Value
  30.   sSource = Value
  32.  
  33. Private Sub Destination_Write(Value As String)    ' Set Value
  34.   sDestination = Value
  36.  
  37. Private Sub StatusTXL_Write(Value As TextLabel)   ' Set Value
  38.   cStatusTXL = Value
  40.    
  41. Private Sub Progress_Write(Value As ProgressBar)  ' Set Value
  42.   cProgress = Value
  44.  
  45. Public Sub Run()
  46.  
  47.   ' https://linux.die.net/man/1/rsync
  48.   Shell "rsync --progress " & sSource & " " & sDestination For Read As "Process"
  49.  
  51.  
  52. Public Sub Process_Read()
  53.  
  54.   Dim sLine As String
  55.   Dim saParts As String[]
  56.  
  57.   sLine = Read #Last, -2048
  58.   sLine = Trim(sLine)                     ' Remove white spaces
  59.  
  60.   If InStr(sLine, "B/s") > 1 Then         ' Does it have Status Info?
  61.     saParts = Split(sLine, " ", "", True) ' saParts = Bytes Copied | % Copied | Rate | Time Remaining
  62.     cStatusTXL.Text = saParts[0] & " ● " & saParts[2] & " ● " & saParts[3] ' Update Status label
  63.     cProgress.Value = Val(Replace(saParts[1], "%", "")) / 100               ' Update Progressbar
  65.  

Usage Example:

Code (gambas)

  1. ' Gambas class file
  2.  
  3. Public Sub Form_Open()
  4.  
  5.   If Not System.Exist("rsync") Then
  6.     Message.Error("You need to install the 'rsync' command for this example to work.", "OK")
  7.     Me.Close
  8.   End If
  9.  
  11.  
  12. Public CopyFile As New ClsCopyFile
  13.  
  14. Public Sub btnTest_Click()
  15.  
  16.   CopyFile.Source = txbSource.Text
  17.   CopyFile.Destination = txbDestination.Text
  18.   CopyFile.StatusTXL = txlCopyStatus
  19.   CopyFile.Progress = pgbCopyFile
  20.   CopyFile.Run
  21.  
  23.  

Attachment
Online now: No Back to the top
1 guest and 0 members have just viewed this.