Datei kopieren

[Gast]

wie soll ich das denn faken weil ich weiß ja nicht wie lange der braucht um einen byte zu kopieren ?

[Kaeru Gaman]

das einfachste ist irgend ne animation, die sich dreht.

bissel anspruchsvoller ist ne berechnung über dateigröße und aktuelle durchsatzrate,
so ist das bei den win-internen zeitangaben oft gemacht.

wofür soll es denn eigentlich sein, willst du wirklich gigantische datenmengen verschieben?

ich mein, meistens geht der wirklich dateizugriff wesentlich schneller, als man braucht,
um überhaupt ne grafik aufn screen zu bringen...

[Gast]

ja für filme und spiele und auch normale dateien soll das sein, aber das mit der animation ist gut das nehmen ich, thx

[Kaeru Gaman]

der vorteil ist halt, dass du ne einfache zyklische anim laufen lassen kannst,
und es völlig egal ist, wie lange es insgesamt dauert,
und außerdem du den kopiervorgang nicht stören oder beschränken musst.

wenn du so eine schrittweise lösung wählst wie schon vorgeschlagen,
auch wenn du in 4KB-stücken kopierst statt einzelne bytes,
du würdest trotzdem wesentlich länger brauchen als mit dem eingebauten copy-befehl.

[ts-soft]

Hier mal eine alternative Lösung. Hab gerade langeweile gehabt

Code: Alles auswählen

#BlockSize = 4096

Procedure CopyFileEx(Source.s, Dest.s, Progressbar.l = 0)
  Protected FileSource.l, FileDest.l, Mem.l, Size.q, Bloecke.q, Rest.q, i.l, Prozent.f
 
  FileSource = ReadFile(#PB_Any, Source)
  FileDest = CreateFile(#PB_Any, Dest)
  Mem = AllocateMemory(#BlockSize)
 
  If FileSource And FileDest And Mem
    Size = Lof(FileSource)
    Bloecke = Size / #BlockSize
    Rest = Size % #BlockSize
   
    For i = 1 To Bloecke
      ReadData(FileSource, Mem, #BlockSize)
      WriteData(FileDest, Mem, #BlockSize)
     
      Prozent = ((#BlockSize * i) / Size) * 100
      If Progressbar
        SetGadgetState(Progressbar, Prozent)
      EndIf
     Next
   
    ReadData(FileSource, Mem, Rest)
    WriteData(FileDest, Mem, Rest)
    If Progressbar
      SetGadgetState(Progressbar, 100)
    EndIf
   
    FreeMemory(Mem)
    CloseFile(FileSource)
    CloseFile(FileDest)
  EndIf
EndProcedure

Nicht mit Progressbar getestet!

kleinen Fehler korrigiert.

[Gast]

wie kann denn meine gif animation da rein bringen ?
wenn ich es mit playmove mache dann offnet der ein extra fenster das ist ja nicht der sinn der sache

[Kiffi]

> wie kann denn meine gif animation da rein bringen ?

die brauchst Du nicht mehr, wenn Du den Code von ts-soft nutzt.

Grüße ... Kiffi

[Maikel]

hm das stimmt,

aber ich würd das trozdem mal gerne wissen

[Gast]

Protected FileSource.l, FileDest.l, Mem.l, Size.q Bloecke.q, Rest.q, i.l, Prozent.f

da zeigt er mir syntax error an.

[Kaeru Gaman]

mit gif-animation garnicht.

im grunde mit zeichnen auf ein image das du dementsprechend regelmäßig aktualisierst.

das was ts vorgeschlagen hat, ist eine alternative,
aber auch nur, wenn es dir noch schnell genug ist.

PS:

...da zeigt er mir syntax error an.

ja, da fehlt ein komma, schau mal genau hin..