Obsah súboru txt - nie je korektný

[Stanislav Hruška]

Podľa príkladu ms-help://embarcadero.rs_xe7/codeexamples/TWriter_(Delphi).html

Kód: Delphi [Vybrat]

1. Stream := TFileStream.Create(FileName, fmCreate or fmOpenWrite or fmShareDenyNone);
2. Writer := TWriter.Create(Stream, $FF);
3. myStringBuilder := TStringBuilder.Create;
4. myStringBuilder.Append(sTitle);
5. myStringBuilder.AppendLine;
6. ...
7. Writer.WriteListBegin;
8. Writer.WriteString(myStringBuilder.ToString);
9. Writer.WriteListEnd;
10. Writer.Destroy;
11. Stream.Destroy;
12.  

Ale obsah je iný než som tam poslal. PS Pad mi to otvára ako hexa(?). Čo mám zle?

[Morrison]

Nevím, jen vidím, že prvních 6 bajtů je divných. Přijde mi to jako vadný BOM souboru.
Rovněž bych řekl, že při otevírání streamu bys měl použít buď mód fmCreate nebo fmOpenWrite, ne obojí, i když v té ukázce to tak mají. Mimochodem ta ukázka je výborná ukázka toho, jak kód rozhodně nepsat (žádné ošetření výjimek, volání destruktoru namísto Free atd.)

[Stanislav Hruška]

Ten Destroy ma dosť zarazil, ale ešte som to neriešil. Tak isto ani bloky try...
Ten uvedený mód ma tiež zarazil. Ale to určite nemá vplyv na výsledok. Samozrejme to upravím.

Kód: Delphi [Vybrat]

1. Problem bude v tom, ze volani WriteListBegin zapise do streamu znacku vaList (typu TValueType).

Ako z toho von? Nemám s tým absolútne žiadne skúsenosti ani vedomosti.

[pf1957]

Ako z toho von? Nemám s tým absolútne žiadne skúsenosti ani vedomosti.

A nechces se spis pochlubit, o co se vlastne snazis? TWriter a TReader byval nejaky interni pokus Borlandu o proprietarni serializaci objektu, typicky streamovani formularu do .DFM (puvodne jen v binarni podobe).

Jestli chces psat text do souboru, tak prece vubec nic takoveho nepotrebujes 

[Stanislav Hruška]

A nechces se spis pochlubit, o co se vlastne snazis?

Ide mi o prosté zapísanie textu, oznamy o chybách, ktorý je uložený v premenných typu string.

[Stanislav Hruška]

Pozrel som na ten TStringWriter. V ukážke pomocou neho vytvoria string, ktorý potom zobrazia. Ale ja už ten string mám. Len ho zapísať do súboru. Nič viac.

[Jirka]

Ide mi o prosté zapísanie textu, oznamy o chybách, ktorý je uložený v premenných typu string.

To se mi zdá vhodnější formát XML  kde si můžeš rovnou zapisovat do elementů (atributů) čas udalosti, místo události , text udalosti atd.
a prohlížet to můžeš v kterémkoliv webbrowseru ..

[pf1957]

A nechces se spis pochlubit, o co se vlastne snazis?

Ide mi o prosté zapísanie textu, oznamy o chybách, ktorý je uložený v premenných typu string.

A chces to psat do souboru jako Unicode nebo jako ANSI?

[Stanislav Hruška]

To je pre užívateľa. Nie je to klasický log. (Na tom ešte len budem pracovať.) Kontrolujem kompletnosť údajov. Ak tam bude viac nedostatkov, tak je jednoduchšie si zobraziť/vytlačiť súbor a postupovať podľa toho. Akonáhle zavrie okno o chybách, tak nevie čo tam bolo.

[Stanislav Hruška]

A chces to psat do souboru jako Unicode nebo jako ANSI?

Úplne stačí ANSI. Bude tam len slovenčina. Text správy dávam do kopy v Delphi.

[Stanislav Hruška]

Fajn, to posledné mi funguje ako má.
Ďakujem.

[pf1957]

A chces to psat do souboru jako Unicode nebo jako ANSI?

Úplne stačí ANSI. Bude tam len slovenčina. Text správy dávam do kopy v Delphi.

Prece muzes psat rovnou do streamu, ten ANSI string takhle (a pro unicode v podstate uplne stejne):

Kód: Delphi [Vybrat]

1. fs.Write(ansi[1], Length(ansi) * StringElementsize(ansi));

[Stanislav Hruška]

Hm, výsledok nie je správny. Ostávam pri tom čo dal Delfin. Už nebudem nad tým špekulovať.

[pf1957]

Hm, výsledok nie je správny. Ostávam pri tom čo dal Delfin. Už nebudem nad tým špekulovať.

No protoze to zapisujes jako Unicode a ne ANSI.

[JaroB]

Třeba by stačilo jen tohle (jde to použít i pro ne-unicode)

Kód: Delphi [Vybrat]

1. var
2.   s: {$IFDEF UNICODE}TStringStream{$ELSE}TStringList{$ENDIF};
3. begin
4.   {$IFDEF UNICODE}
5.   s := TStringStream.Create('-- nějaký text --');
6.   {$ELSE}
7.   s := TStringList.Create;
8.   s.Text := '-- nějaký text --';
9.   {$ENDIF}
10.   try
11.     s.SaveToFile(SaveDialog1.FileName);
12.     if FileExists(SaveDialog1.FileName) then
13.       MessageDlg('Soubor byl uložen sem'#13#10 + ExtractFilePath(SaveDialog1.FileName), mtInformation, [mbOK], 0);
14.   finally
15.     s.Free;
16.   end;
17.  
18.