Datei von Datei exportieren?

[dizzy]

Klingt ziemlich plausibel!

[Brüggendiek]

Hallo!

Zitat von Luckie:

Delphi-Quellcode:

type
  TMyRecord = record
    Dateiname: String[55];  // Länge muss man durch probieren etc. rausfinden
    Dateilänge: Cardinal;
end;

Möööp - Fehler!

Für ShortString fehlt doch wohl das Längenbyte - sollte also sein:

Delphi-Quellcode:

type
  TMyRecord = record
    Dateiname: Array [1..55] of Char;  // Länge muss man durch probieren etc. rausfinden
    Dateilänge: Cardinal;
end;

Allerdings gebe ich zu bedenken, daß bei so alten Dateien noch keine langen Dateinamen erwartet werden können. Die Dateinamen waren damals 8-3, also mit dem Punkt 12 Zeichen lang. Für lange Dateinamen (oder auch vollständige Pfadangaben) sind das eindeutig zu wenig Zeichen. Der Rest könnte irgendeine (möglicherweise unbenutzte oder hier unwichtige) Bedeutung haben.


Gruß

Dietmar Brüggendiek

[Luckie]

Ich wollte auch nur das Prinzip darlegen. Für einen genauren Aufbau des Records müsste man die Datei vorliegen haben und analysieren.

[dizzy]

Allerdings ergibt sich aus den letzen Bytes in (glaub ich) keiner Anordnung ein plausibler Wert für die Größe einer Wavedatei. Entweder sinds Gigabytes oder Kilobytes, und normal-lange Waves mit normal-langen Liedern sind idR so 30-60 MB groß - bei 44.1kHz Stereo 16Bit. (50MB ~5 Minuten (ein bisschen weniger))

[Luckie]

Evnetuell sind es ja nur kurze Sounds. Und bei minderer Qualität könnten es auch Lider sein.

[Newbie44]

Guten Morgen ,

gut, vom praktikum aus habe ich zwar keinen zugriff auf meine dateien zuahaus, doch ihr könntet rechthaben, es könnte echt die länge sein, mein bruder sagte es wären auch kurze sounds drinen (8 bit stereo 30 sek.) Aber wenn das die länge wäre, dann wäre es ja eigentlich einfach, man könnte doch teoretisch alle längen zusammenzählen um zum beispiel an die letzte datei zu kommen, 1. Dateilänge > 2. Dateilänge > 1. Dateilänge + 2. Dateilänge > 2. Dateilänge + 3. Dateilänge > usw.

Das wäre wirklich ne möglichkeit, gut, wenn ich heute abend wieder daheim bin und heute ist freitag , dann werde ich nochmal in die datei gucken ob es wirklich die größe ist.

Ich werde euch dann versuchen über meine nachforschunen zu informieren, aber gut .

Vielen dank schon jetzt, ihr habt mir schon sehr geholfen

gruß


sebby

EDIT: Die normale datei hat die erweiterung *.bin und die indexdatei die erweiterung *.ind

[DelphiFreund]

Hi,
du könntest ja mithilfe eines FileStreams den zugehörigen Hex-Wert suchen, und die Dateien in neue Files schreiben, somit brauchst du die Indexdatei nicht.

Gruß DelphiFreund

[Newbie44]

Danke für den Tipp,

doch ich habe die indexdatei nochmal genau angeguckt und festgestellt, das beim ersten Eintrag 0000000000000000000 steht, und die zahl gegen ende immer größer wird, ich tippe darauf, das es die position in der großen datei anzeigt

was meint ihr

gruß

sebby

[dizzy]

Sehr sehr gut möglich dass es direkt ein Offset angibt, japp!

[Newbie44]

Moin,

ja, du hast recht es ist ein offset, aber die zahlen sind vertauscht, wenn man die z. B. B5E86401 ---> 0164E8B5

Dann kommt man genau zum header der datei.

Jetzt seit ihr gefragt, wie formuliere ich das ganze in delphi?

gruß

sebby