SJ MMF File Reader 0.2 - Schneller Textdatei Reader

[himitsu]

Achso, dachte du meinst ab Delphi 2006.

Vom Code her könnte es sogar von Delphi 7 bis 2007 laufen (so vom Ansehn her)

Du könntest ja einen Hinweis einfügen, welcher sich notfalls meldet.

Delphi-Quellcode:

{$IF CompilerVersion >= 20.0}
  {$MESSAGE Fatal 'this is not compatible with unicode (Delphi 2009+)'}
{$IFEND}

Aber am Einfachsten du verwendest erstmal AnsiString und PAnsiChar, dann wäre es zumindestens in D2009+ lauffähig und dann halt nur Sowas oder garkein Hinweis.

Delphi-Quellcode:

{$IF CompilerVersion >= 20.0}
  {$MESSAGE Hint 'this are only an ANSI-Version'}
{$IFEND}

OK, dann kann ich ja weiterhin für meinen TTextStream Werbung machen, welcher ja grundsätzlich nur für die Unicodedelphis ausgelegt ist.

[add]
CreateFile liefert keine 0 bei Fehlern.

Und da die Datei doch eh sequentiell gelesen wird, könnte man dieses Windows mitteilen, damit es vielleicht noch'n bissl die Cache optimieren kann.

Und die leere Exception ist auch nett.

Delphi-Quellcode:

FFile := CreateFile(PChar(AFileName), GENERIC_READ, FILE_SHARE_READ, nil,
  OPEN_EXISTING, FILE_FLAG_SEQUENTIAL_SCAN, 0);
if FFile = INVALID_HANDLE_VALUE then
  RaiseLastOSError;
FSize := FileSeek(FFile, Int64(0), Ord(soEnd));
FMapping := CreateFileMapping(FFile, nil, PAGE_READONLY, 0, 0, nil);

[jaenicke]

So, ich habe mich da nochmal rangesetzt. Es funktionieren jetzt Delphi 6 bis 2010 und Unicodedateien genauso wie Ansidateien. Wobei die Unicodedateien bei Delphi <= 2007 eben so gut es geht auf Ansi gefaltet werden.

Nebenbei:
Entstanden ist das als Nebenprodukt eines schnellen Registryeditors, deshalb weiß ich nicht ob auch andere Unicodedateien usw. korrekt erkannt werden. Die .reg Dateien funktionieren auf jeden Fall.

Zitat von himitsu:

[add]
CreateFile liefert keine 0 bei Fehlern.

Nein, aber laut Doku INVALID_HANDLE_VALUE, und genau das frage ich ja ab.

[himitsu]

Delphi-Quellcode:

FFile := CreateFile(PChar(AFileName), GENERIC_READ, FILE_SHARE_READ, nil,
  OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if FFile = 0 then
  raise Exception.Create('')
else

Also, solange ein BOM vorhanden ist, wird Unicode theoretisch korrekt gelesen.
OK, ohne BOM ist keine automatische Auswahl möglich und dann stört es nicht wenn immer das erste Zeichen in der Datei ignoriert wird (da es ja nur ein BOM sein kann)

[jaenicke]

Tut mir leid, irgendwie bin ich da mit den Projekten durcheinander gekommen. In einem anderen hatte ich INVALID_HANDLE_VALUE benutzt.
Ich habe es korrigiert.

[himitsu]

Macht nix.

Das ist auch einer der Gründe, warum ich viele Projekte überarbeite,
da die verschiedensten Codes extrahiere in diese als "Einzelprojekte" nun global verwalte und auch hier inner DP mit hochlad.
(die DPler als Bugfinder finden mehr, als man selber)

Weil auch ich irgendwann mal den Überblick verlor, vorallem wenn man fast das Selbe in verschiedenen Projekten nutzt.
(nja, und gleichzeitig wird die Gelegenheit für eine komplette Überprüfung/Überarbeitung/Neuaufsetzung genutzt)

[jaenicke]

Genau, ich benutze dafür NTFS Junctions. Das heißt das Source-Verzeichnis der verschiedenen Projekte klinke ich in das der Programme ein, die diese nutzen.

Dadurch kann ich die Buildskripte sehr einfach basteln und die ganzen verwendeten Units einfach einpacken ohne die von überallher zusammenkopieren zu müssen.
Und nebenbei nimmt das auch sehr viel Arbeit ab, wenn man jeweils für Zusammenstellung und Upload der Pakete einer neuen Version nur ein Skript ausführen muss.

Dem Reader fehlt jetzt nur noch die Unterstützung beliebiger Datentypen. Und ich überlege ob ich die Klasse vielleicht besser von TStream ableiten und so standardisieren sollte. Das würde die universelle Verwendung einfacher machen. Da man auch dort meistens sequentiell liest oder schreibt könnten auch dann MMFs noch Vorteile bringen. Aber das muss ich noch überlegen und testen.

[himitsu]

Beliebige Dateitypen?