AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi Einzelnen Unicodestring an Datei anhängen

Einzelnen Unicodestring an Datei anhängen

Ein Thema von gro · begonnen am 6. Jun 2011 · letzter Beitrag vom 6. Jun 2011
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.367 Beiträge
 
Delphi 11 Alexandria
 
#11

AW: Einzelnen Unicodestring an Datei anhängen

  Alt 6. Jun 2011, 11:06
[Letztes OT]http://www.netzmafia.de/service/h-world.html[/Letztes OT]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
gro

Registriert seit: 9. Jul 2004
Ort: Kärnten
17 Beiträge
 
Delphi 10.3 Rio
 
#12

AW: Einzelnen Unicodestring an Datei anhängen

  Alt 6. Jun 2011, 11:20
Hallo Leute
danke für die schnellen Antworten.

Habe auf die schnelle folgendes versucht:

Code:
      szFile := 'Logfile.log';
      szLogline := 'Ģenerē vieną įmonė читаете вы его! ÆàëîáûÎáñëóæèâàíèå';

      // funktioniert
      aFileList := TStringlist.Create;
      if (FileExists(szFile) = TRUE) then aFileList.LoadFromFile(szFile);
      aFileList.Text := aFileList.Text + szLogline;
      aFileList.SaveToFile(szFile, Encoding.Unicode);
      aFileList.Free;

      // funktioniert nicht
      AssignFile(F1, szFile);
      Append(F1);
      aStream := TStringStream.Create(szLogline, Encoding.Unicode);
      writeln (F1, aStream.DataString);
      Closefile (F1);
      aStream.Free;

      //funktioniert auch nicht
      AssignFile(F1, szFile);
      Append(F1);
      writeln (F1, UTF8Encode(szLogline));
      Closefile (F1);
Was mache ich da falsch bzw. wie hänge ich einen Stringstream korrekt an eine bestehende Datei an?

In den ersten 2 Bytes der Datei steht FFFE = UTM16(LE) durch ".SaveToFile(szFile, Encoding.Unicode)

Das Resultat habe ich angehängt

MfG Pit
Angehängte Dateien
Dateityp: txt Logfile.txt (257 Bytes, 6x aufgerufen)
Peter (EDV = Ende der Vernunft)
  Mit Zitat antworten Zitat
Benutzerbild von Deep-Sea
Deep-Sea

Registriert seit: 17. Jan 2007
907 Beiträge
 
Delphi XE2 Professional
 
#13

AW: Einzelnen Unicodestring an Datei anhängen

  Alt 6. Jun 2011, 11:27
Unabhängig vom eigentlichen Problem: Du brauchst keine nutzlose Variable vom Typ TEncoding anzulegen. Du kannst einfach TEncoding.Unicode schreiben
Chris
Die Erfahrung ist ein strenger Schulmeister: Sie prüft uns, bevor sie uns lehrt.
  Mit Zitat antworten Zitat
gro

Registriert seit: 9. Jul 2004
Ort: Kärnten
17 Beiträge
 
Delphi 10.3 Rio
 
#14

AW: Einzelnen Unicodestring an Datei anhängen

  Alt 6. Jun 2011, 11:46
Nochmals danke für die zahlreichen Beiträge

Problem durch die Routine von blackfin gelöst. Funktioniert tadellos und Performanze ist auch perfekt!

Besten Dank an alle
MfG Pit
Peter (EDV = Ende der Vernunft)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.367 Beiträge
 
Delphi 11 Alexandria
 
#15

AW: Einzelnen Unicodestring an Datei anhängen

  Alt 6. Jun 2011, 12:37
Trotzdem würde ich die Routine noch ein wenig ändern (ungetestet, Denkfehler vorbehalten):
Delphi-Quellcode:
procedure AddToLog(const LogFile: string; Msg: string);
const
  Modes: array[Boolean] of word = (fmOpenReadWrite, fmCreate);
var
  FLogStream: TStream;
begin
  ForceDirectories(ExtractFilePath(LogFile));
  try
    FLogStream := TFileStream.Create(LogFile, Modes[FileExists(LogFile)] or fmShareDenyWrite);
    try
      FLogStream.Seek(0, soFromEnd) ;
      Msg := Msg + sLineBreak;
      FLogStream.Write(Pointer(Msg)^, Length(Msg) * SizeOf(Char)) ;
    finally
      FLogStream.Free;
    end;
  except
    on E: Exception do
      MessageBox(0, PChar(E.Message), nil, MB_OK or MB_ICONERROR);
  end;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
39.186 Beiträge
 
Delphi 10.4 Sydney
 
#16

AW: Einzelnen Unicodestring an Datei anhängen

  Alt 6. Jun 2011, 12:45
AssignFile und Co. arbeitet immer nur mit ANSI - UnicodeStrings werden entsprechend umkodiert.

Du könntest als erstes (beim Erstellen der Datei, als AnsiString) den UTF-8-BOM einfügen
und dann immer (wie schon von Stevie vorgeschlagen) über UTF8Encode abspeichern.

Oder man kopiert den UnicodeString, zusammen mit einem sLinebreak, Bytegenau in einen RawByteString und schiebt diesen via AssignFile+Write (nicht WriteLn) in die Datei.

Oder man öffnet die Datei binär und nimmt BlockWrite,
bzw. über einen TFileStream und dort ebenfalls binär, wie im vorherigen Post zu sehn.

Oder TFileStream erstellen, die Position auf das Dateiende setzen und dann über TStringStream dort den String anhängen.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
gro

Registriert seit: 9. Jul 2004
Ort: Kärnten
17 Beiträge
 
Delphi 10.3 Rio
 
#17

AW: Einzelnen Unicodestring an Datei anhängen

  Alt 6. Jun 2011, 13:52
Ich habe das jetzt so gelöst:

Code:
    if (not FileExists(szFile)) then begin
      ForceDirectories(ExtractFilePath(szFile)) ;
      aList.SaveToFile(szFile, TEncoding.Unicode);
    end
    else begin
      TRY
        FLogStream:= TFileStream.Create(szFile, fmOpenReadWrite or fmShareDenyWrite);
        FLogStream.Seek(0, soFromEnd);
        szLogline := aList.Text;
        FLogStream.Write(Pointer(szLogline)^, Length(szLogline)*SizeOf(Char));
      FINALLY
        FreeAndNil(FLogStream);
      END;
    end;
MfG Pit
Peter (EDV = Ende der Vernunft)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.367 Beiträge
 
Delphi 11 Alexandria
 
#18

AW: Einzelnen Unicodestring an Datei anhängen

  Alt 6. Jun 2011, 14:18
Du solltest das Erzeugen des FileStreams vor das try setzen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
39.186 Beiträge
 
Delphi 10.4 Sydney
 
#19

AW: Einzelnen Unicodestring an Datei anhängen

  Alt 6. Jun 2011, 19:01
Und FLogStream.Write(PChar(szLogline)^, kann auch nicht schaden ... Casts über PChar, PAnsiChar und PWideChar erzeugen notfalls noch eine Compiler-Warnung, falls der String nicht zum PChar-Typen paßt, also zu den gewollten binären Daten im Zeiger.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  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 12:59 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