Dateien auf USB-Stick kopieren

[DeddyH]

Ich war bei dem Begriff "mp3-Player" immer von Software ausgegangen. Nun gut, kann man die Dateien nicht irgendwie nach dem Namen/Erstellungs- oder Änderungsdatum oder so sortieren?

[Kharlanki]

Nein, kann man leider nicht. Der ist da recht simple gehalten. Bin schon froh, dass der ueberhaupt nen Play-Knopf hat.

[invalid_operation]

Falls die mp3-Dateien irgendwo auf der Festplatte sind, sollte sich das Problem von Kharlanki wohl lösen lassen, oder?

Notfalls muss er halt alles von seinem Billigheimer löschen! Vorher aber auf die Festplatte zurückkopieren

Auf der Festplatte dann
- die Dateien zur richtigen Reihenfolge umbenennen (mit führenden Nullen in den Dateinamen!?)
- den Dateien aufgrund der führenden Nullen einen passenden TimeStamp verpassen
- die Dateien aufgrund des Timestamps in aufsteigender oder absteigender Reihenfolge auf den MP3-Payer kopieren, wobei jeder neue Kopiervorgang auf den Erfolg des letzten Kopiervorgangs wartet

Sollte sich doch problemlos mit etwas Delphi-Kenntnissen machen lassen, oder?

Vermutlich wäre ein neuer MP3-Player wohl billiger als das zeitaufwändige MP3-Player-Explorer-Delphi-Herumwursteln...

Ansonsten: Wer billig kauft, kauft doppelt!!!

Bei der Hardware sparen, wo es nur geht, denn die eigene Freizeit ist ja nichts wert. Und wozu gibt es hilfsbereite Foren? Deren Freizeit ist auch nichts wert, schließlich haben ja fast alle eine Flatrate...

Sorry für eventuelle Polemik!

[Kharlanki]

Da es sich nur um Hoerbuecher handelt, die eh staendig ausgetauscht werden, muss ich da nix sichern und mit fuehrenden Timestamps und passenden Nullen rumwurschteln.

Zitat von invalid_operation:

Vermutlich wäre ein neuer MP3-Player wohl billiger als das zeitaufwändige MP3-Player-Explorer-Delphi-Herumwursteln...

Dann wuerde mir aber eine Gelegenheit entgehen, mich wieder mit Delphi zu befassen und zu lernen.

Zitat von invalid_operation:

Ansonsten: Wer billig kauft, kauft doppelt!!!

Ich kaufe ja nicht doppelt, das ist doch gerade dein Vorschlag. Ich bin zufrieden mit dem Ding. Macht genau das, was er soll: MP3 abspielen.

Zitat von invalid_operation:

Sorry für eventuelle Polemik!

Macht nix, kann jedem mal passieren.

[p80286]

Hallo Kharlanki,

um einmal zur Ausgangsfragestellung zurück zu kommen,
buffersize := 10000; ist ja nun wirklich ein wenig mickrig.
buffersize := $FFFF; kommt da schon wesentlich besser.

das "copyfrom" erspart Dir zwar etwas Tipparbeit, ist aber nicht so optimal gelöst, da bei jedem Schleifendurchlauf die buffergröße angepasst resp. überprüft wird.

Nebenbei, warum führst Du das "closefile" nicht auch im Fehlerfalle durch?

Mein Vorschlag für die Kopierroutine:

Delphi-Quellcode:

repeat
  gelesen:=s.read(buffer,buffersize) ; 
  gelesen:=t.write(buffer,gelesen) ; 
  // -- hier den progressbar ansteuern;
until gelesen<>buffersize;

Gruß
K-H

[Kharlanki]

Ich nutze jetzt CopyFileEx mit ProgressBar und es lueppt. Wenn ich mehrere Files nacheinander kopiere, wird es vom Player auch in der richtigen Reihenfolge angezeigt.

Danke an alle fuer die Hilfe!

P.S. @Luckie:
Du hast in deinem Snippet ist ein kleiner Fehler drin. Du hast in TForm1.WndProc bei

Delphi-Quellcode:

    CEXM_MAXBYTES:
      begin
        ProgressBar1.Max := (Msg.LParam) shl 32) + Msg.WParam;
      end;

ein (Int64 vergessen.

[himitsu]

macht nix ... die ProgressBar kennt eh nur Integer
Man kann das höherwertige in diesem Fall also irgnorieren
ProgressBar1.Max := Msg.WParam; oder man Skaliert die Werte für .Max und .Position so, daß sie in einen Integer reinpassen

[Luckie]

Wo habe ich da das vergessen? Bitte Quellcode korrigieren, damit ich das ändenr kann.

Zitat von himitsu:

macht nix ... die ProgressBar kennt eh nur Integer

Ja, aber eventuell möchte man die Werte wo anders nutzen. Deswegen hätte ich das schon gerne korrekt.

[mcmichael]

ich möchte ja keinem den Programmierspaß verderben, aber
wenn das Kernproblem die Reihenfolge der Dateien beim Kopieren ist,
dann geht's einfacher:

- Im Explorer alle Dateien über das gewünschte Kriterium sortieren (z.B. Name oder Änderungsdatum)
- alle Daten, die kopiert werden sollen markieren.
- dann den Mauscursor über der ersten zu kopierenden Datei positionieren... (WICHTIG!)
- ...und per Drag&Drop in das Zielverzeichnis ziehen.
- Jetzt kommen die Dateien in der gewünschten Reihenfolge an.

Ich habe ein Autoradio, das die Hörbücher nach diesem Kriterium sortiert und
habe diese Kopiermethode irgendwann irgendwo entdeckt.

Viel Spaß dabei,
Michael

[Kharlanki]

Zitat von Luckie:

Wo habe ich da das vergessen? Bitte Quellcode korrigieren, damit ich das ändenr kann.

Hab ich doch geschrieben.
In diesem Snippet hier: http://www.michael-puff.de/Developer...pyFileEx.shtml
Dort in der Prozedur WndProc in der Case-Anweisung:

Delphi-Quellcode:

CEXM_MAXBYTES:
      begin
        ProgressBar1.Max := (Msg.LParam) shl 32) + Msg.WParam;
      end;

Das muss lauten:
        ProgressBar1.Max := (Int64(Msg.LParam) shl 32) + Msg.WParam;

Zitat von mcmichael:

ich möchte ja keinem den Programmierspaß verderben, aber
wenn das Kernproblem die Reihenfolge der Dateien beim Kopieren ist,
dann geht's einfacher:

- dann den Mauscursor über der ersten zu kopierenden Datei positionieren... (WICHTIG!)

Das reicht?! Muss ich gleich mal ausprobieren... [edit] Das klappt ja wirklich! [/edit]

Vielleicht fallen mir mit der Zeit ja noch weitere Features ein. Dann war das Tool nicht nur fuer die richtige Reihenfolge gut.