(gelöst) Probleme Textdatei

[Antrepolit]

Hallo Leute,

folgendes Problem:
Ich möchte eine Log-Datei erstellen. Dies machte ich ursprünglich mit AssignFile, in etwa so:

Im Create meines Errorlog-Objects

Code: Alles auswählen

...
AssignFile(LogFile,bPathFile);
ReWrite(LogFile);
...

und in der AppenLog-Methode dann

Code: Alles auswählen

WriteLn(LogFile, Cont);

wobei Cont ein String ist.

Nun, nach einiger "Überarbeitung" des Codes geht es einfach nicht mehr.

Zuvor verwendete ich einen TFileStream, der immer eine SIG SEGV-Exception beim .Write brachte,
davor kam gleiche Exception bei eben dem Writeln,
und nun kann ich nicht mal mehr eine Datei zuweisen??? Was mag da los sein?
Derzeit kann ich mit KEINER Methode in die Textdatei schreiben, es sei denn ich mache das

Code: Alles auswählen

Stream=TStream.Creats(blabla, fmCreate);
Stream.Write(blablabla,length(blablabla));
FreeAndNil(Stream);

Rufe ich Stream.Create im Constructor meines Logs auf, und möchte
Stream.Write in der AppendLog-Methode verwenden, kommt die Exception...

[theo]

Code: Alles auswählen

Stream=TStream.Creats(blabla, fmCreate);
Stream.Write(blablala,length(blablabla));
FreeAndNil(Stream);

Ein TStream kann nix. Das ist eine abstrakte Basisklasse. Du musst schon einen TFileStream oder TMemoryStream nehmen.

[Antrepolit]

Ein TStream kann nix. Das ist eine abstrakte Basisklasse. Du musst schon einen TFileStream oder TMemoryStream nehmen.

Mein Fehler, es war natürlich TFileStream; das Problem besteht weiterhin.

[theo]

Dann musst du den wahrsch. noch zum schreiben öffnen
FileStream := TFileStream.Create(FileName,fmCreate or fmOpenWrite);

[Antrepolit]

@Theo:

Nein, funktioniert immer noch nicht. Gleiche Exception.

[theo]

Mehr sehe ich in dem Schnippsel auch nicht. Ist die Datei irgendwie gelockt? Hast du mal mit einer anderen probiert?

Ausserdem: Bei solchen Problemen sollte man genauer berichten. Sowas:
Stream.Write(blablabla,length(blablabla));
ist nicht dienlich.

[Antrepolit]

Der ganze Code:

Code: Alles auswählen

unit ErrorLog;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, LResources, Forms, Controls, Graphics, Dialogs, SysUtils, StdCtrls,
  Menus, ExtCtrls, ComCtrls,
  Interfaces, Windows, Registry, Strings, WinSystem;
 
const
  EL_Insert_BR_Before = 1;
  EL_Insert_BR_After  = 2;
  EL_Insert_BR_Around = 3;
 
type
  TErrorLog = class(TObject)
  public
    constructor Create(const errLogPath: string; pFile: string = 'logfile.log';
      pUse: boolean = True);
    destructor Destroy; override;
    procedure ToLog(const cont: string);
  private
    TFS:      TFileStream;
    bPathFile: string;
  end;
 
implementation
 
constructor TErrorLog.Create(const errLogPath: string;
  pFile: string = 'logfile.log'; pUse: boolean = True);
var
  errPath: string;
begin
  inherited Create;
 
  if (errLogPath[length(errLogPath)] <> '\') then
    errPath := errLogPath + '\'
  else
    errPath := errLogPath;
 
  bPathFile := errPath + pfile;
 
  TFS := TFileStream.Create(bPathFile, fmCreate or fmOpenWrite);
  FreeAndNil(TFS);
end;
 
destructor TErrorLog.Destroy;
begin
  FreeAndNil(TFS);
  inherited Destroy;
end;
 
procedure TErrorLog.ToLog(const cont: string);
begin
  TFS.Write(Cont, length(cont));
end;
 
end.

[theo]

Wat dat denn?

TFS := TFileStream.Create(bPathFile, fmCreate or fmOpenWrite);
FreeAndNil(TFS);

[Hitman]

Statt dem "if ..." kannst du übrigens einfach IncludeTrailingPathDelimiter nehmen

[Antrepolit]

@Theo:

Überbleibsel von einem weiteren Test.
Auch nach den Entfernen der Zeile funktioniert es nicht...

[theo]

und so?

TFS.Write(Cont[1], length(cont));

[Antrepolit]

Nein, immer noch.

Keiner ne Idee, woran es liegen könnte, dass auch das normale Write über Textfile nicht geht?

[Hitman]

Wenn man Hufe hört, denkt man besser erstmal an Pferde, als an Zebras ... rufst du vlt. ToLog irgendwo auf, wo das Logging Objekt noch nicht erstellt wurde? Oder erstellst du das Logging Objekt vlt. "falsch"? Eventuell ist das nicht ganz trivial zu debuggen, da ja der Programmablauf entscheidend ist. Aber du kannst uns ja z.B. mal den Code zeigen, wo du TErrorLog instanziierst.

[Antrepolit]

@Hitman: Du lagst richtig,die Instanziierung war falsch.

Dort stand nut noch >>TErrorLog.Create...<<

Da muss mich der Affe gelaust haben, dass ich da das >>ErrorLog :=<< davor weggenommen hab.
Man finde mal solch einen Fehler, der ja syntaktisch und semantisch keiner ist...

Danke!