Fehlermeldung bei AssignFile

[dersunny]

Hallo,

ich schreibe an einem Programm, dass etwas umfangreicher ist.
Nun habe ich es geschafft, durch google-Suche schon einige Probleme zu lösen, auch des Lesens der Bücher bin ich mächtig. Nun habe ich ein Problem, bei dem ich nicht mehr weiterweiß.

Delphi-Quellcode:

var
        fahrerliste     : TextFile;
        s               : string;
        i               : integer;

begin
        ComboBox1.Items.Clear;
        i:= 0;
        AssignFile(fahrerliste,'C:\Users\ich\Desktop\abrechnung\data\dri\dri.txt');
        Reset(fahrerliste);
                try
                while not EOF(fahrerliste) do begin
                ReadLn(fahrerliste, s);
                i:= i + 1;
                end;
                finally
                CloseFile(fahrerliste);

        end;
        s:= IntToStr (i);
        with ComboBox1 do begin
                with Items do begin
                        Add('Fahrerkürzel...');
                        Add('Stammfahrer1');
                        Add('Aushilfe1');
                        Add('Reserve1');
                        Add(s);
                end;
                ItemIndex := 0;
        end;
        Closefile(fahrerliste);
end;

Nach dem Einfügen des Reset-Befehls ging der Fehler 104 weg, der mich vorher lange aufgehalten hat.
Nun ist das Problem, dass die Meldung "Datei nicht vorhanden" kommt.
Das kann aber gänzlich nicht sein, weil ich sie extra dafür erstellt habe.

Ich würde mich über konstruktive Hinweise, und auch Kritik hinsichtlich der verwendeten Funktionen freuen.
Danke!

Btw: noch nicht gefunden habe ich, dass ich als Ort nur "data->dri\dri.txt" eingeben muss, damit das Programm nicht nur auf meinem Rechner läuft...

[himitsu]

AssignFile initialisiert die Dateivariable und trägt dort nur den Dateinamen ein.
Öffnen muß man die Datei dann immernoch (Reset, Rewrite oder Append).
Schau also mal in der OH nach, was Reset überhaupt macht.


PS: Nur eine Frage pro Thread. (damit hier nichts durcheinander kommt)
Such aber mal im Forum nach "relativen Dateipfaden".

Delphi-Quellcode:

ExtractFilePath(ParamStr(0))

oder

Delphi-Quellcode:

ExtractFilePath(Application.ExeName)

gibt die den Pfad zu deiner EXE, wo du nun einfach deinen gewünschten Dateinamen und relativen Pfad anhängen kannst.

[DeddyH]

Du hast da 2 mal CloseFile drin. Zum Pfad: schau Dir einmal SHGetFolder an, damit kannst Du bestimmte Ordnerpfade ermitteln. Und Du solltest einen weiteren try-except-Block um das Reset - CloseFile setzen, dann kannst Du Fehler abfangen.

[dersunny]

Danke für eure schnellen Antworten, aber irgendwie stehe ich vollkommen auf dem Schlauch. Egal wie ich es versuche, die Fehlermeldung bleibt dieselbe.

Wenn ich das richtig verstanden habe, muss ich bei AssignFile alles zwischen C:\ und dri.txt rausnehmen? Getan. Darüber ExtractFilePath... eingefügt. Nur egal, auf welche Weise ich versuche zu sagen, dass da noch Unterordner dazwischen sind? :gruebel:

[DeddyH]

Zeig doch mal den aktuellen Code.

[dersunny]

Bitte nicht hauen, aber blanco (nach dem Entfernen allen Blödsinns durch Ausprobieren) sieht der entsprechende Bereich jetzt so aus. Wenn ihr mir nur sagt, wo und wie ich jetzt den relativen Dateipfad eingebe, wäre ich glücklich.
Aus der Delphi-Hilfe und diversen Foren werde ich nicht schlau... :(

Delphi-Quellcode:

ComboBox1.Items.Clear;
        i:= 0;
        ExtractFilePath(Application.ExeName);
        AssignFile(fahrerliste, 'dri.txt');
        Reset(fahrerliste);
                try
                while not EOF(fahrerliste) do begin
                ReadLn(fahrerliste, s);
                i:= i + 1;
                end;
                finally
                CloseFile(fahrerliste);

        end;

[DeddyH]

Delphi-Quellcode:

ComboBox1.Items.Clear;
i:= 0;        
AssignFile(fahrerliste,ExtractFilePath(Application.ExeName) + 'dri.txt');
try
  Reset(fahrerliste);
  try
    while not EOF(fahrerliste) do begin
      ReadLn(fahrerliste, s);
      i:= i + 1;
    end;
  finally
    CloseFile(fahrerliste);
  end;
except
  on E: Exception do
    ShowMessage(E.Message);
end;

ExtractFilePath ist eine Funktion, d.h. Du solltest auch den Rückgabewert benutzen.

[dersunny]

Bis auf den unteren Teil hatte ich das auch schon ausprobiert.
Mein Problem hier ist jetzt halt, dass ich nicht weiß, wo ich den Dateipfad hinstecken muss.
Und alles in einen Ordner packen wäre ungünstig, weil dann noch viel viel mehr Dateien in ähnlicher Weise eingebunden werden sollen...

[DeddyH]

Unterordner des eigegen Programms bekäme man in der Art

Delphi-Quellcode:

AssignFile(fahrerliste,ExtractFilePath(Application.ExeName) + 'Unterordner\dri.txt');

[dersunny]

Genau das hatte ich ja schon durchprobiert, in jeder erdenklichen Weise. Die Fehlermeldung ist immer dieselbe "Datei nicht gefunden."

Vielleicht übersehe ich ja etwas:
Die exe steckt in C:\Users\ich\Desktop\abrechnung
Die txt, auf die zugegriffen werden soll, in C:\Users\ich\Desktop\abrechnung\data\dri
Dementsprechend sieht der Befehl analog zu Deiner Beschreibung so aus:

Delphi-Quellcode:

AssignFile(fahrerliste,ExtractFilePath(Application.ExeName) + 'data\dri\dri.txt');

Ich habe auch mit dem Back-Slash rumprobiert. Sowohl mit als auch ohne vor dem "data" kommt das selbe Ergebnis...

[Chemiker]

Hallo dersunny,

welches BS verwendest Du?

Bis bald Chemiker

[dersunny]

Windows XP, SP2

[Chemiker]

Hallo dersunny,

versuche mal die .txt-Datei mit dem Editor zu öffnen. Dabei kannst Du den Path kopieren, vielleicht ist doch ein Fehler in der Path Angabe.

Bis bald Chemiker

[DeddyH]

In Application.ExeName steht der Pfad zur eigenen Exe, nicht der zum Desktop, nur um das noch einmal klarzustellen.

[Aphton]

Nur für den Fall, dass du nicht nachrecherchiert hast:
- Reset öffnet die EXISTIERENDE Datei und setzt den Filepointer auf den Anfang (0)
- Rewrite ERSTELLT eine NICHT existieren bzw. überschreibt eine exitierende Datei UND setzt den Filepointer auf 0
- Append öffnet wie Reset die Datei, die existiert (existieren muss!, sonst Fehlermeldung!), und setzt den Filepointer aufs Ende

Ich seh bei deinem Code nur, dass du Reset aufrufst und nicht prüfst, ob die Datei eigentlich existiert. Wenn diese nämlich nicht existiert, solltest du Rewrite anstatt Reset benützen!

Edit:
Nach genauerem Durchlesen deines Codes fällt mir grausamer Fehler auf:
- Mit der while Schleife liest du jede Zeile temporär in den String ein und überschreibst eigentlich dabei immer den vorherigen Wert ohne diesen irgendwo anders im Code auszuwerten
... wo bleibt da der Sinn dahinter?

Best regards

[dersunny]

@Chemiker:
Die Datei mit dem Editor zu öffnen geht. Sie ist vorhanden und beinhaltet Daten.

@Aphton:
Das ist so gewollt...zumindest vorerst. Die weiteren Schritte sollen sein, dass ich aus der Datei die Inhalte für die ComboBox auslese. Doch dafür muss ich erst mal die Datei öffnen, und um zu testen dass alles klappt, habe ich einfach ein paar Zeilen in der .txt geschrieben, die dann ja nach erfolgreichem Absolvieren der Schleife das i so beeinflussen sollten, dass da eine Zahl größer 0 bei raus kommt. Doch bis das soweit ist, ärgert mich das Programm nachwievor damit, dass es meint, die Datei sei nicht vorhanden.


Nach dem was ich so alles gesucht habe in den vergangenen Stunden sollte es eigentlich klappen, so wie die letzte Zeile Code geschrieben ist.

[Aphton]

führ folgendes aus

Delphi-Quellcode:

if FileExists( <hier dateiname so wie du ihn bei assignfile benützt> ) then
  ShowMessage('Existiert');

und gib bescheid, ob du die Nachricht erhältst!

[dersunny]

Nein, da kommt nichts.
Aber die Datei ist wirklich vorhanden...

[Chemiker]

Hallo dersunny,

es ging mir nicht darum das Du die Datei im Editor öffnest, sonder um die richtige Schreibweise des Path.

Bis bald Chemiker

[Aphton]

Zitat:

Zitat von dersunny (Beitrag 1075896)

Nein, da kommt nichts.
Aber die Datei ist wirklich vorhanden...

Ja dann verwendest du den falschen Dateinamen (irgendwo ist bestimmt ein Fehler) was dazu führt, dass du es nicht laden kannst!

Zeig mal her, wie das Programm es verwendet - am besten ca so ~

Delphi-Quellcode:

showmessage(<hier dateiname so wie du ihn bei assignfile benützt> );

[dersunny]

Delphi-Quellcode:

AssignFile(fahrerliste,ExtractFilePath(Application.ExeName) + '\data\dri\dri.txt')

Delphi-Quellcode:

if FileExists(ExtractFilePath(Application.ExeName) + '\data\dri\dri.txt') then
  ShowMessage('Existiert');

Die Datei namens "dri.txt" liegt im Ordner C:\Users\ich\Desktop\abrechnung\data\dri
Und im Ordner C:\Users\ich\Desktop\abrechnung liegt die .exe die ich benutze.

[Aphton]

Ok, da haben wirs =D
mach '\' bei '\Data...' weg!

->

Delphi-Quellcode:

AssignFile(fahrerliste,ExtractFilePath(Application.ExeName) + 'data\dri\dri.txt')

Edit: Begründung:
ExtractFilepath( 'C:\Testordner\Testdatei.Testendung' ) liefert 'C:\Testordner\' zurück!

[dersunny]

So gern ich es sagen würde, aber das war leider nicht die Lösung. Ich habe seit Ewigkeiten alles ausprobiert, sowohl mit als auch ohne Backslash. (Ich glaube das hab ich zwischendurch mal irgendwo erwähnt?)

Edit:
Vielleicht hilft es, wenn ich nochmal genau zeige, wo der Fehler kommt?

Bei diesem Code-Schnipsel wird mir die unterste Zeile als Fehlerquelle angezeigt:

Delphi-Quellcode:

AssignFile(fahrerliste,ExtractFilePath(Application.ExeName) + 'data\dri\dri.txt');
                try
                        Reset(fahrerliste);

[Aphton]

Hänge mal das Projekt an. Ich werds mir (noch) genauer anschauen...

Edit:
Übrigens, bevor du das jetzt machst, probier noch das hier, um mehr Informationen über das Problem zu erfahren:

Delphi-Quellcode:

  {$i-}
  AssignFile(...);
  Reset(...);
  {$i+}
  ShowMessage( SysErrorMessage( IOREsult ) );

EDIT2:
Was mir noch so einfällt - kann es sein, dass die Datei exklusiv geöffnet ist (also so, dass kein anderes Programm es öffnen kann)?

[Klaus01]

Guten Abend,

kannst Du bitte das Ergebnis von

Delphi-Quellcode:

showMessage(ExtractFilePath(ParamStr(0));

hier einstellen.

Sollte der Desktop des users nicht unter Documents and Settings\<username>\desktop liegen?

Warum packst Du die Datei nicht unter Documents and Settings\<username>\Application Data\<DeinExename>


Grüße
Klaus

[dersunny]

@Aphton:
Meldung kommt: Das System kann die angegebene Datei nicht finden.
Ich hoffe das ist das richtige im Anhang. Die Datei, die ich eigentlich hochladen wollte, durfte ich nicht hochladen.
Wenn Du dir das ansiehst, ignoriere bitte die vielen Buttons, Labels etc, die noch keine Funktion haben. Ich wollte wie gesagt erst das Gerüst bauen und dann nach und nach die Daten einfügen.

Die Grundfunktion, die am Ende herauskommen soll ist, dass Fahrer eingestellt, geändert oder editiert werden sollen. Das selbe soll auch für Fahrzeuge passieren, und den Rest, der da drin noch so zu sehen ist.

@Klaus01:
Als Message kommt da genau der Ordner, den ich hier immer angebe. Um Fehler diesbezüglich zu vermeiden, hatte ich extra den Path aus dem Explorer per copy&paste hier eingefügt.


Edit nach Lösung des Problems:
Datei entfernt.

[Aphton]

Werds mir gleich ansehen aber wie schon vom SYSTEM beschrieben - die Datei kann einfach nicht gefunden werden. Irgendetwas stimmt da nicht.

MfG *schmöker

Edit:
Also ich habe nichts Auffäliges (mal abgesehen davon, dass es ziemlich grauenhaft zusammengerückt ist :P) gefunden. Es liegt - so wie es aussieht - nicht am Code (ich habe ne kleine Demo geschrieben und es hat - wie erwartet - funktioniert).
Was ich dir noch anraten kann: Versuch mal die dri.txt Datei in denselben Ordner wie die Executable zu verschieben (und dementsprechend den Code anpassen nicht vergessen ;))

MfG

[hoika]

Hallo,

warum packst du ein Projekt + Text-Datei nicht unter

C:\Projekte\Projekt1

DANACH kannst du dich immer noch mit relativen Pfaden beschäftigen,
mit denen du im Moment wohl noch Probleme hast.


Aussderdem

AssignFile(fahrerliste,ExtractFilePath(Application .ExeName) + 'data\dri\dri.txt');

Das ist doof zu Debuggen.

var
sFileName: String;
begin
sFileName:= ExtractFilePath(Application.ExeName) + 'data\dri.txt');

AssignFile(fahrerliste,sFileName);

Und dann mal vor dem AssignFile schauen, was sFileName enthält.


Heiko
Heiko

[Aphton]

Zitat:

Zitat von hoika (Beitrag 1075929)

AssignFile(fahrerliste,ExtractFilePath(Application .ExeName) + 'data\dri\dri.txt');

Das ist doof zu Debuggen.

var
sFileName: String;
begin
sFileName:= ExtractFilePath(Application.ExeName) + 'data\dri.txt');
Heiko

Wenn schon, dann

Delphi-Quellcode:

  sFileName:= ExtractFilePath(Application.ExeName) + 'data\dri\dri.txt');

Übrigens gehts hier eig. nicht um die Codequalität. Das Problem wird sich damit nicht ändern.

[dersunny]

@Heiko und hoika:
Das war schon Mal ein Treffer in die richtige Richtung.
Ich habe das jetzt nach deinem HInweis mal wie folgt abgeändert:

Delphi-Quellcode:

begin
        ComboBox1.Items.Clear;
        i:= 0;
        {$i-}
        sFileName:=ExtractFilePath(Application.ExeName)+'data\dri\dri.txt';
        AssignFile(fahrerliste,sFileName);
                try
                        Reset(fahrerliste);
                        {$i+}
                        ShowMessage( SysErrorMessage( IOREsult ) );
                        try
                        while not EOF(fahrerliste) do
                        begin
                        ReadLn(fahrerliste, s);
                        i:= i + 1;
                        end;
                finally
                CloseFile(fahrerliste);

Der Fehler ist jetzt nicht mehr bei Reset, sondern (kurioserweise) zu Beginn der Schleife. Wenn ich jedes Wort einzeln auf eine Zeile schreibe wird mir "NOT" markiert, ein anderes mal jedoch das EOF(fahrerliste).

Es sieht also so aus, als ob er jetzt die Datei öffnen kann, allerdings kommt nachwievor die Fehlermeldung, dass die Datei nicht gefunden werden kann.
Wie auch immer so etwas funktionieren soll... :wiejetzt:

EDIT:
als nächstes wird übrigens angezeigt, dass CloseFile(fahrerliste) das nächste Problem erzeugt...

Edit2:
Bei genauerm Durchlesen kommt jetzt der Fehler 104 und der Fehler 103. 104 hatte ich aber vorhin schonmal besiegt...

[Sir Rufo]

Öffne bitte mal eine Eingabeaufforderung in dem Verzeichnis, wo die Anwendung liegt.
Dort führst du mal diesen Befehl aus:

Code:

dir /s >listing.txt

Die Datei

Code:

listing.txt

schieb dann mal hier hoch, dann sehen wir, wo die Datei steckt

Deine Formatierung ist sehr grauslich zu lesen, hier mal in leserlich

Delphi-Quellcode:

begin
  ComboBox1.Items.Clear;
  i := 0;
  {$I-}
  sFileName := ExtractFilePath( Application.ExeName ) + 'data\dri\dri.txt';
  AssignFile( fahrerliste, sFileName );
  try
    Reset( fahrerliste );
    {$I+}
    ShowMessage( SysErrorMessage( IOREsult ) );
    try
      while not EOF( fahrerliste ) do
        begin
          ReadLn( fahrerliste, s );
          i := i + 1;
        end;
    finally
      CloseFile( fahrerliste );
    end;

[Chemiker]

Hallo Kendro,

um die Richtigkeit Deines Programms zu überprüfen, oder den Fehler einzugrenzen würde ich Dir empfehlen ein OpenDialog auf Form zu ziehen und den FileName samt Path darüber zu bestimmen.

Bis bald Chemiker

[dersunny]

Ich muss mich wohl korrigieren, hatte vorhin mal aus Versehen XP als OS geschrieben...gemeint war eigentlich Vista...wie spätestens beim Lesen der folgenden Datei klar wird :oops:

[Sir Rufo]

oder es würde auch folgendes funktionieren

Delphi-Quellcode:

begin
  ComboBox1.Items.Clear;
  i := 0;
  {$I-}
  sFileName := ExtractFilePath( Application.ExeName ) + 'data\dri\dri.txt';
  AssignFile( fahrerliste, sFileName );
  try
    if FileExists( sFileName ) then
      Reset( fahrerliste )
    else
      ReWrite( fahrerliste );
    {$I+}
    ShowMessage( SysErrorMessage( IOREsult ) );
    try
      while not EOF( fahrerliste ) do
        begin
          ReadLn( fahrerliste, s );
          i := i + 1;
        end;
    finally
      CloseFile( fahrerliste );
    end;

[Sir Rufo]

Zitat:

Zitat von dersunny (Beitrag 1075940)

Ich muss mich wohl korrigieren, hatte vorhin mal aus Versehen XP als OS geschrieben...gemeint war eigentlich Vista...wie spätestens beim Lesen der folgenden Datei klar wird :oops:

Na denn

Delphi-Quellcode:

begin
  ComboBox1.Items.Clear;
  i := 0;
  {$I-}
  sFileName := ExtractFilePath( Application.ExeName ) + 'data\dri\dri.txt.txt'; // <-- so heißt die Datei :o)
  AssignFile( fahrerliste, sFileName );
  try
    Reset( fahrerliste );
    {$I+}
    ShowMessage( SysErrorMessage( IOREsult ) );
    try
      while not EOF( fahrerliste ) do
        begin
          ReadLn( fahrerliste, s );
          i := i + 1;
        end;
    finally
      CloseFile( fahrerliste );
    end;

[alfold]

Warum er die nicht finden kann, Datei nennt sich 'dri.txt.txt'

Gruss alfold

[Aphton]

dri.txt.txt :cry: :wall:

[Sir Rufo]

Zitat:

Zitat von alfold (Beitrag 1075944)

Warum er die nicht finden kann, Datei nennt sich 'dri.txt.txt'

Gruss alfold

Darum sollte er ja auch die Fingerübung mit dem dir Befehl machen ;)
(Obwohl er ja nicht wirklich das macht, was man ihm sagt)

[Klaus01]

.. das ist dann wohl wieder einer der Fehler die hätten vermieden werden können
wenn "hide known file extensions" nicht aktiv wäre.

Grüße
Klaus

[alfold]

Oder wen man weiss, was man macht :wink:

Gruss alfold