AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Wieder TextDatei diesmal binär

Ein Thema von EWeiss · begonnen am 13. Apr 2011 · letzter Beitrag vom 14. Apr 2011
Antwort Antwort
Seite 2 von 3     12 3      
EWeiss
(Gast)

n/a Beiträge
 
#11

AW: Wieder TextDatei diesmal binär

  Alt 13. Apr 2011, 16:48
Delphi-Quellcode:
  // Datei schreiben
  f := TFileStream.Create(MidiFile, fmOpenReadWrite);

  for IntA := 1 to CurrentByte do
    f.Write(Bytes[IntA], CurrentByte);

  f.Free;
Allerdings hab ich hier ein verständnis problem

Meine Datei wird 25KB groß dürfte aber nur etwa max 1 KB sein.
Wenn ich in die Datei schaue fällt mir auf das die Datei abhängig von IntA jedesmal
komplett neu eingefügt wird.

Was ist da falsch bei mir ?
CurrentByte sind 164.

PS:
Geht damit auch nicht
So wie es aussieht kann ich damit nur Dateien editieren die Existieren.
Oder aber ich verwende ein falsches Flag.

gruss

Geändert von EWeiss (13. Apr 2011 um 16:58 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#12

AW: Wieder TextDatei diesmal binär

  Alt 13. Apr 2011, 16:59
Delphi-Quellcode:
  // Datei schreiben
  f := TFileStream.Create(MidiFile, fmOpenReadWrite); // Datei wird geöffnet, neue Inhalte werden hinten angehängt

  for IntA := 1 to CurrentByte do
    f.Write(Bytes[IntA], CurrentByte); // Wenn in dem Array tatsächlich Bytes drin sind muss als 2. Parameter sizeof(Byte) stehen!

  f.Free;
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#13

AW: Wieder TextDatei diesmal binär

  Alt 13. Apr 2011, 17:00
Delphi-Quellcode:
  // Datei schreiben
  f := TFileStream.Create(MidiFile, fmOpenReadWrite); // Datei wird geöffnet, neue Inhalte werden hinten angehängt

  for IntA := 1 to CurrentByte do
    f.Write(Bytes[IntA], CurrentByte); // Wenn in dem Array tatsächlich Bytes drin sind muss als 2. Parameter sizeof(Byte) stehen!

  f.Free;
Danke!

Aber leider funktioniert es nicht kann nur vorhandene Dateien öffnen.

gruss
  Mit Zitat antworten Zitat
Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#14

AW: Wieder TextDatei diesmal binär

  Alt 13. Apr 2011, 17:02
Geht auch einfacher:
Delphi-Quellcode:
  f := TFileStream.Create(MidiFile, fmOpenReadWrite);
  f.Write(Bytes[1], CurrentByte{*SizeOf(Byte)});
  f.Free;
Zitat:
Aber leider funktioniert es nicht kann nur vorhandene Dateien öffnen.
Dann musst du fmCreate angeben statt fmReadWrite.
  Mit Zitat antworten Zitat
Klaus01
Online

Registriert seit: 30. Nov 2005
Ort: München
5.768 Beiträge
 
Delphi 10.4 Sydney
 
#15

AW: Wieder TextDatei diesmal binär

  Alt 13. Apr 2011, 17:03
.. versuche mal als FileMode fmCreate zum Erstellen einer neuen Datei.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#16

AW: Wieder TextDatei diesmal binär

  Alt 13. Apr 2011, 17:14
1.) Bei einem FileStream sollte man ReadBuffer und WriteBuffer anstelle von Read und Write verwerden.
2.) Datenstrukturen schreibt man nicht Byte für Byte, sondern in einem Rutsch.
Delphi-Quellcode:
type
  TMidiHeader = record .... end;
var
midiheader : TMidiHeader;

f := TFileStream.Create(MidiFilename, fmCreate);
f.WriteBuffer(midiheader, sizeof(midiheader));
....
f.Free;
Andreas
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#17

AW: Wieder TextDatei diesmal binär

  Alt 13. Apr 2011, 17:23
1.) Bei einem FileStream sollte man ReadBuffer und WriteBuffer anstelle von Read und Write verwerden.
2.) Datenstrukturen schreibt man nicht Byte für Byte, sondern in einem Rutsch.
Delphi-Quellcode:
type
  TMidiHeader = record .... end;
var
midiheader : TMidiHeader;

f := TFileStream.Create(MidiFilename, fmCreate);
f.WriteBuffer(midiheader, sizeof(midiheader));
....
f.Free;
Ich habe keinen MidiHeader als record deklariert das ist bei mir Hardgecoded.

NamenLozer
Delphi-Quellcode:
  f := TFileStream.Create(MidiFile, fmCreate or fmOpenReadWrite);
  f.Write(Bytes[1], CurrentByte);
  f.Free;
Das wars funktioniert jetzt so wie es soll.
Na ja die Tonhöhe noch nicht aber das ist ein anderes problem.

gruss

Geändert von EWeiss (13. Apr 2011 um 20:01 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#18

AW: Wieder TextDatei diesmal binär

  Alt 13. Apr 2011, 17:56
[OT]
TEXT-Datei BINÄR beschreiben? Bin das nur ich oder sieht da noch jemand einen Widerspruch?
*Facepalm

Was für ein übles Missverständniss. Ich halt das kaum noch aus, soetwas zu lesen...
Also deiner Meinung nach wird TEXT nicht binär gespeichert? Werden also die einzelnen Buchstaben auf die Magnetplatten draufgekritzelt? -.-

Was macht es für einen Unterschied, wie ich folgendes speichere:
'A' (Char) = 65 (Dezimal) = $41 (Hexadezimal) = 01000001 (Binär) = 101 (Oktal)

Das ist nur eine Darstellungsform. Letzendlich landet alles in Form von Einsen und Nullen auf der Platte!

Keep that in mind and stop making that very same mistake
[/OT]
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
  Mit Zitat antworten Zitat
Benutzerbild von ConnorMcLeod
ConnorMcLeod

Registriert seit: 13. Okt 2010
Ort: Bayern
490 Beiträge
 
Delphi 10.4 Sydney
 
#19

AW: Wieder TextDatei diesmal binär

  Alt 14. Apr 2011, 10:47
Cool down...
Mir ging es darum, daß es für jeden der beiden Fälle spezifische Datentypen und Vorgehensweisen gibt.
Bei Deinem famosen Wissen wird Dir das ja nicht neu sein.
Wir programmieren in Delphi und sollten daher auch dessen Werkzeuge verwenden.
End of transmission.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#20

AW: Wieder TextDatei diesmal binär

  Alt 14. Apr 2011, 10:54
Das ist nur eine Darstellungsform. Letzendlich landet alles in Form von Einsen und Nullen auf der Platte!
Und um das zu vervollständigen: Wie diese Einsen und Nullen dann interpretiert werden ist Sache der Software.

@EWeiss: dann definiere dir doch einen entsprechenden Record.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 3     12 3      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:29 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz