Hallo Allerseits,

Ich habe in einer Delphi 7 Applikation ein BLOB aus einer Datenbank ausgelesen und in eine temporäre Datei gespeichert. Anschließend diese in ein Memo eingelesen.

Zitat:

... blob.Seek(0, soFromBeginning); with TFileStream.Create(Tempfile1, fmCreate) do try CopyFrom(blob, blob.Size) finally Free end; ... Form1.Memo1.Lines.LoadFromFile(tempfile1);

...
Das ist jeweils ein normaler Text, der als ANSI-File abgespeichert wurde. Klappte tadellos.

Unter Delphi2007 erzeugt der selbe Code ein UNICODE-File, das mit Notepad z.B. tadellos lesbar ist. Mit LoadFromFile ins Memo wird nur der erste Buchstabe des Textes angezeigt.
Vermutung: Delphi2007 erzeugt wohl UNICODE, das kann aber TMemo nicht darstellen. Also: tTNTMemo gekauft. Ergebnis: Kein Unterschied.

Folgendes habe ich festgestellt: Wenn ich das Tempfile1 mit Notepad öffne und in ANSI wieder speicher, ist es ok, kann TMemo wieder lesen. Wenn ich das Tempfile1 in Notepad einfach nur speichere (also wieder UNICODE), dann kann es tTNTMemo auch komplett darstellen.

Ich vermute, Delphi2007 erzeugt ein etwas korruptes UNICODE-File.

habt Ihr eine Idee, wie ich das Problem lösen kann?

Danke!

Willmar

Hallo und in der Entwickler-Ecke!

Ich tippe darauf, dass deine Speicher-Routine kein Byte-Order-Mark an den Anfang der Datei setzt. Das ist in der Regel $FFFE bzw $FEFF. Daran erkennen dann Editoren, ob es ein Unicode-File ist, und wie die zwei Byte pro Zeichen sortiert sind.

Notepad hat weitere Heuristiken um Unicode-Dateien ohne BOM zu erkennen, was bis einschließliche Windows XP dazu führte, dass Textdateien, in denen nur "Blödsinn" steht (ohne Punkt, Leerzeichen oder Zeilenumbruch) nicht korrekt geöffnet wurden. Die TNTs sind aber wohl auf diese Markierung angewiesen.

Dafür spricht auch, dass in der Memo dan nur das erste Zeichen zu sehen ist, ansonsten müsste da noch ein "ÿþ" oder "þÿ" davor stehen. Das Problem sollte sich also lösen lassen, wenn du an den Anfang der Datei diese beiden Bytes einfügst - welche Reihenfolge weiß ich jetzt nicht auswendig.

Hallo Daniel,

nachdem ich schon fast eine Woche an dem Problem rumknubbele, bin ich richtig baff, so schnell eine Antwort zu bekommen.
Besten Dank!

Hast Du noch einen Tipp, wie ich die beiden Zeichen (siehe mein Code-Schnipsel) an den Anfang der Datei bekomme?

Danke!

Willmar

Das sollte so funktionieren:

Hallo Daniel,

ich hatte auch gerade mit einem Hex-Editor rausbekommen, dass tatsächlich der ByteOrder Mark fehlte. Ich habe dann mal manuell $FFFE davor geetzt und sofort konnte mein Delphi2007 wieder sauber damit arbeiten (Zumindest tTNTMemo).

Mit Deinem Code-Beispiel werde ich das sicher jetzt stemmen.

herzlichen Dank!

Willmar

Ergänzung:
Hat alles prima funktioniert!

Ganz herzlichen Dank - das Forum und seine Mitglieder sind einfach KLASSE!

Willmar