AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein TFileStream, Daten werden nicht geschrieben, warum?

TFileStream, Daten werden nicht geschrieben, warum?

Ein Thema von DualCoreCpu · begonnen am 20. Okt 2019 · letzter Beitrag vom 21. Okt 2019
Antwort Antwort
DualCoreCpu
(Gast)

n/a Beiträge
 
#1

TFileStream, Daten werden nicht geschrieben, warum?

  Alt 20. Okt 2019, 18:46
Hallo,

ich habe ein Programm, wie das hier:

Delphi-Quellcode:
program fileaccess;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.Classes;

type
  TStringRec = record
    rErstesFeld: ShortString;
    rZweitesFeld: ShortString;
    rDrittesFeld: ShortString;
  end;

var
  AFiler: TFileStream;
  ARec: TStringRec;

begin
  try
    { TODO -oUser -cConsole Main : Code hier einfügen }
    ARec.ErstesFeld := 'erster Inhalt';
    ARec.ZweitesFeld := 'zweiter Inhalt';
    ARec.DrittesFeld := 'dritter Inhalt';
    AFiler := TFileStream.Create('commands.def',fmCreate{ or fmShareDenyNone});
    //AFiler.Write(ARec,Sizeof(ARec)); auch das funktioniert nicht

    AFiler.Write(ARec.rErstesFeld,Length(ARec.rErstesFeld));
    AFiler.Write(ARec.rZweitesFeld,Length(ARec.rZweitesFeld));
    AFiler.Write(ARec.rDrittesFeld,Length(ARec.rDrittesFeld));

    AFiler.Free; //Ich dachte, vor der Freigabe würde der Filsstream seine Daten auf Platte schreiben.
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
Leider wird nichts auf Festplatte geschrieben. Warum nicht? Auch mit Huge String funktioniert es nicht.

Ich verwende Delphi 10.3.2 Community Edition ohne Updates

Geändert von DualCoreCpu (21. Okt 2019 um 12:33 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#2

AW: TFileStream, Daten werden nicht geschrieben, warum?

  Alt 20. Okt 2019, 18:57
Versuch esmal mit einem qualifizierten Dateinamen z.B. C:\temp\Testdaten\command.txt

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
8.922 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: TFileStream, Daten werden nicht geschrieben, warum?

  Alt 20. Okt 2019, 18:59
Dein Code compiliert ja nicht einmal...
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
8.922 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: TFileStream, Daten werden nicht geschrieben, warum?

  Alt 20. Okt 2019, 19:01
Übrigens: ARec.rErstesFeld zeigt nicht auf das erste Zeichen des ShortStrings!
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
DualCoreCpu
(Gast)

n/a Beiträge
 
#5

AW: TFileStream, Daten werden nicht geschrieben, warum?

  Alt 20. Okt 2019, 20:58
Versuch esmal mit einem qualifizierten Dateinamen z.B. C:\temp\Testdaten\command.txt

Gruß
K-H
Richtig, Danke! Das war die Ursache, warum die Datei nicht geschrieben wurde!

@Uwe Raabe: Ja auch das: Ich muss write(Rec.rErstesFeld[1], length(rErstesFeld)) schreiben, sonst wird das Längenbyte mit geschrieben, was ich natürlich nicht will.
  Mit Zitat antworten Zitat
Benutzerbild von scrat1979
scrat1979

Registriert seit: 12. Jan 2007
Ort: Sulzbach a.d. Murr
1.021 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: TFileStream, Daten werden nicht geschrieben, warum?

  Alt 20. Okt 2019, 21:12
Delphi-Quellcode:

var
  AFiler: TFileStream;
  ARec: StringRec;
Müsste es nicht

Delphi-Quellcode:

var
  AFiler: TFileStream;
  ARec: TStringRec;
heißen?
Michael Kübler
  Mit Zitat antworten Zitat
DualCoreCpu
(Gast)

n/a Beiträge
 
#7

AW: TFileStream, Daten werden nicht geschrieben, warum?

  Alt 21. Okt 2019, 12:35
Delphi-Quellcode:

var
  AFiler: TFileStream;
  ARec: StringRec;
Müsste es nicht

Delphi-Quellcode:

var
  AFiler: TFileStream;
  ARec: TStringRec;
heißen?
Auch wieder wahr, Danke, habe das soeben geändert.

Und danke auch für die Anregung, den ganzen Record zu schreiben, statt die einzelnen Felder.

.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 09:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf