MP3-Stick Programm

[Matze]

Wie meinst du das mit der Unterscheidung?

Im OnSelectItem wird einer Stringvariable der Titel zugewiesen, mehr ist es nicht, da kann man eigentlich ja nicht viel falsch machen. :gruebel:

[Stanlay Hanks]

Du benutzt also eine Prozedur für beide Listboxen...dann is das komisch :gruebel:

[Matze]

Mist, hab jetzt was verändert, und jetzt ist es so, wie es Mirage schildert. :wall:

[Matze]

Zitat:

Zitat von Stanlay Hanks

Du benutzt also eine Prozedur für beide Listboxen...dann is das komisch :gruebel:

Ne, ich nem 2 getrennte, halt die verschiedenen OnSelectItem, aber die werden ja immer gleich ausgelöst, falls du das meinst. ;)

[Stanlay Hanks]

Ich dachte, du hättest vielleicht in einem von diesen zwei dann einen Fehler :gruebel: War aber nur ne Idee.

Man liest sich, Stanlay :hi:

[Matze]

Hab ne neue Version oben (Post1).

Ich hoffe, das Abspielen geht jetzt auch bei Mirage. :?

[Brüggendiek]

Hallo Matze!

Zitat:

Zitat von Matze

Ich mache das leider mittels file of byte, da ich ja den Fortschritt anzeigen lasse. Mit CopyFile geht es schnell, aber halt völlig ohne Fortschritt und das finde ich nicht gut. ;)

Hupps - meine Aussage sollte als Beispiel dienen. Konnte ja nicht ahnen, daß Du das tatsächlich so realisierts.

Vorschlag: Nehme Streams und arbeite diese in Blöcken ab.

Das mit dem Byte-File hatte ich auch mal versucht - deshalb kenne ich die Problematik. Bei mir war es allerdings ein Vergleichsprogramm. Hast Du schon mal ne volle CD-R byteweise mit den Originaldaten verglichen? Das dauert Stunden. Wie soll das denn erst bei DVDs werden :shock:

Einfach einen String mit Setlength auf eine feste Blockgröße setzen, ab Stringvar[1] den Puffer füllen. Die Leseroutine liest ein, wieviele Zeichen tatsächlich gelesen wurden. Diese Anzahl dann rausschreiben und gut ist. Als Blockgröße bitte eine "glatte Binärzahl" verwenden, also z.B. 1024 oder 4096. Die Fortschrittsanzeige kann dann ja immer noch laufen.

Nebenbei: Keine Angst vor Nullbytes! Delphi kennt die Länge eines Strings und bearbeitet das richtig. Lediglich bei Übergabe an API-Funktionen (MessageBox etc.) wird am Nullbyte abgebrochen.

Delphi-Quellcode:

s1:='Test'#0#0#0'daten';
s2:='Test';

wäre nach Windows gleich (String hört mit #0 auf), nach Delphi sind die ungleich (jedenfalls bei D5Std).

Gruß

Dietmar Brüggendiek

[Matze]

Hey, danke.

Muss mir das mal anschauen, kappier's noch nicht so richtig. ;)

[The-X]

Oder gugg dir mal die OH zu BlockRead / BlockWrite an... da gibt's auch ein Beispiel zum Datei-Kopieren

[Matze]

Danke, werde ich gleich mal machen... :)