PureBoard

Code: Alles auswählen

; **********************************************************************
; 
; CopyFileEx() - PB-Include
; 
; Author: Scarabol
; Version: 4.10
; Datum: 14-12-2007
; 
; **********************************************************************
; 
; CopyFileEx(SourceFile$, TargetFile$)
; 
; Beschreibung:
;   Erstellt einen Thread der den Inhalte der angegebenen Datei (SourceFile$)
;   in die Zieldatei (TargetFile$) kopiert.
; 
; Rückgabewert:
;   Die Funktion gibt die Thread-Nummer zurück, von dem Thread der die Datei kopiert.
;   Sie können diesen jederzeit mit PauseThread anhalten bzw. mit ResumeThread()
;   fortsetzen oder KillThread beenden.
; 
; !ACHTUNG!
;   Wenn sie den Thread während des Vorgangs mit KillThread beenden, bleiben
;   die bereits kopierten Daten erhalten.
; 
; **********************************************************************
; 
; GetCopyFileExState()
; 
; Beschreibung:
;   Gibt den relativen Anteil der bereits kopierten Daten zurück.
; 
; Rückgabewert:
;   Die Funktion gibt das Verhältnis Kopiert/Gesamt als Quad-Zahl zurück.
; 
; !ACHTUNG!
;   Der Parameter wird nur zur internen Verarbeitung verwendet.
; 
; **********************************************************************
; 
; CopyFileEx() - Example
; 
; Define Thread
; 
; Declare.f GetCopyFileExState(Var.d = #PB_Default)
; Declare.l CopyFileEx(SourceFile$, TargetFile$)
; 
; Thread = CopyFileEx(OpenFileRequester("Datei öffnen...", "", "*.*", 0), SaveFileRequester("Datei speichern...", "", "*.*", 0))
; 
; Repeat
;   Debug GetCopyFileExState()*100
;   Delay(100)
; Until IsThread(Thread) = 0
; End
; 
; **********************************************************************


Procedure.f GetCopyFileExState(Var.d = #PB_Default)
  Static CopyFileExState.d
  If Var = #PB_Default
    ProcedureReturn CopyFileExState
  Else
    CopyFileExState = Var
    ProcedureReturn -1
  EndIf
EndProcedure

Procedure.l CopyFileExCopy(lpstr)
  Protected File1, File2
  Protected s.q, s1.q, st.q, Buffer
  Protected a$, SourceFile$, TargetFile$
  a$ = PeekS(lpstr)
  If a$ = ""
    ProcedureReturn 0
  EndIf
  SourceFile$ = StringField(a$, 1, "|")
  TargetFile$ = StringField(a$, 2, "|")
  Buffer = AllocateMemory(2048)
  File1 = ReadFile(#PB_Any, SourceFile$)
  If File1
    s1 = FileSize(SourceFile$)
    If s1 <= 0
      ProcedureReturn 0
    EndIf
    st = s1
    File2 = CreateFile(#PB_Any, TargetFile$)
    If File2
      While s1 > 2048
        ReadData(File1, Buffer, 2048)
        WriteData(File2, Buffer, 2048)
        s1 - 2048
        GetCopyFileExState(1-s1/st)
        Delay(1)
      Wend
      ReadData(File1, Buffer, s1)
      WriteData(File2, Buffer, s1)
      CloseFile(File1)
      CloseFile(File2)
      ProcedureReturn 1
    EndIf
    CloseFile(File1)
  EndIf
EndProcedure

Procedure.l CopyFileEx(SourceFile$, TargetFile$)
  Protected Buffer, Thread
  
  Buffer = AllocateMemory(1024)
  PokeS(Buffer, SourceFile$+"|"+TargetFile$)
  
  Thread = CreateThread(@CopyFileExCopy(), Buffer)
  ProcedureReturn Thread
EndProcedure