Datei laden un Zeilen zählen

[Nugi89]

der Dateipfad ist genau der denn ich ausgewählt habe.
Aber es klappt ja soweit alles bis auf das Zählen der Dateizeilen im eigenen Programmordner.

@Michl
deins funktioniert nicht. Kommt immer die Meldung das die Datei nicht geöffnet werden kann.

[mse]

der Dateipfad ist genau der denn ich ausgewählt habe.

Wo ausgewählt?

[Nugi89]

ich wähle den Pfad mit OpenDialog aus.
Und dieser steht auch dann bei FileExists(path) drin.

[mse]

Das ist ja auch zu erwarten. Es geht um etwas anderes. Du sagst, dass du die entsprechende Datei mit einem "anderen Programm" öffnen kannst, mit deinem eigenen aber nicht. Die Frage ist, hast du beim "anderen Programm" den exakt gleichen Dateipfad angegeben?

[Nugi89]

achso nee hatte das so verstanden das ich es mit dem was Windows mitbringt öffnen kann
ein anderes Programm hab ich nicht.

[mse]

Das "was Windows mitbringt" ist ja auch ein Programm.
Was hast du zum Test verwendet?

[Nugi89]

ich hab das jetzt so:

Code: Alles auswählen

procedure TForm1.Bt_CountClick(Sender: TObject);
var
  anzahl : integer;
  path: string;
  datei: TStringList;
begin
  datei:= TStringList.Create;
  path:= Edit_Path.Text;
 
  if FileExists(path) = true then
  begin
    datei.LoadFromFile(path);  
    Edit_Anzahl.Text:= IntToStr(datei.Count);
  end:
  else
  begin
    showMessage('nicht vorhanden!')
  end;
end;
 
 
procedure TForm1.Edit_PathClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Edit_Path.Text:= OpenDialog1.FileName;
  end;
end;

Aber jetzt funktioniert etwas mit dem OpenDialog nicht.
bekomme gleich beim start des OpenDialogs eine Exception.
External: SIGSEGV

[Nugi89]

Zum Testen hab ich eine Textdatei benutzt.
hab den Dateipfad geladen und mit dem debugger geprüft ob er bei FileExists(path) auch vorhanden war.

[mse]

Zum Testen hab ich eine Textdatei benutzt.
hab den Dateipfad geladen und mit dem debugger geprüft ob er bei FileExists(path) auch vorhanden war.

Dann probiere einmal diese Textdatei mit dem Windows Programm "Notepad" zu öffnen.
Zur Erinnerung:

Kannst Du diese Datei mit einem anderen Programm (z.B Editor) öffnen?

Und ja ich kann die Datei mit einem anderen Programm öffnen.

[Patito]

Im Konkreten Fall hier kann ich gerade nicht weiterhelfen, (sieht aus als wäre da am System etwas kaputt...).

Falls aber sonst jemand ein Test-File haben will, bei dem auch ich Probleme
mit OpenFileDialog bekomme, hätte ich folgenden anzubieten:

Code: Alles auswählen

 
procedure ProblematischesFileErstellen;
var Handle: Integer;
  FileName: String;
  Buffer: array [0..1024] of Byte;
  FileNameWide_Start: PWideChar;
  Dest: PWideChar;
  i: Integer;
  Cursor: PByte;
begin
  FileName := '\\?\C:\Test\Test1.txt';   // <--- Gewünschtes Ausgabeverzeichnis hier einstellen
 
  for i := Low(Buffer) to High(Buffer) do
    Buffer[i] := 0;
 
  FileNameWide_Start := PWideChar(WideString(FileName));
  Dest := @Buffer;
 
  Move(FileNameWide_Start^, Dest^, Length(FileName) * 2);
 
  FileNameWide_Start := @Buffer[0];
 
  Cursor := PByte(FileNameWide_Start);
  Inc(Cursor, Length(FileName) * 2);
  Cursor^ := $D8;
  Inc(Cursor);
  Cursor^ := $00;
  Inc(Cursor);
  Cursor^ := $FF;
  Inc(Cursor);
  Cursor^ := $FF;
 
  //Cursor^ := $D8;  // falls man noch mehr testen will...
  //Inc(Cursor);
  //Cursor^ := $01;
  //Inc(Cursor);
  //Cursor^ := $CC;
  //Inc(Cursor);
  //Cursor^ := $CC;
  //
  //Inc(Cursor);
  //Cursor^ := $DB;
  //Inc(Cursor);
  //Cursor^ := $FF;
  //Inc(Cursor);
  //Cursor^ := $01;
  //Inc(Cursor);
  //Cursor^ := $02;
  //
  //Inc(Cursor);
  //Cursor^ := $DF;
  //Inc(Cursor);
  //Cursor^ := $FF;
  //Inc(Cursor);
  //Cursor^ := $22;
  //Inc(Cursor);
  //Cursor^ := $FF;
 
  Handle := Windows.CreateFileW(FileNameWide_Start, GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ, nil, CREATE_NEW, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_SEQUENTIAL_SCAN, 0);
 
  if (Handle >= 0) then
    FileClose(Handle)
  else
    ShowMessage(IntToStr(GetLastError));
end;
 
 

[mse]

Code: Alles auswählen

 
procedure ProblematischesFileErstellen;
var Handle: Integer;
  FileName: String;
  Buffer: array [0..1024] of Byte;
  FileNameWide_Start: PWideChar;
  Dest: PWideChar;
  i: Integer;
  Cursor: PByte;
begin
  FileName := '\\?\C:\Test\Test1.txt';   // <--- Gewünschtes Ausgabeverzeichnis hier einstellen
 
  for i := Low(Buffer) to High(Buffer) do
    Buffer[i] := 0;
 
  FileNameWide_Start := PWideChar(WideString(FileName));
 

Das ist gefährlich, da WideString(FileName) einen transienten Wert liefert dessen Lebensdauer unbestimmt ist.

[Warf]

Nun wie groß ist die Datei, wenn du versuchst in eine StringList bei einem 32 Bit Programm mehr als 3 GB zu lesen wird es krachen.

Ich würde Prinzipiell wenn es nur um das Zählen der Zeilen geht die Datei nicht komplett einlesen, versuch mal so etwas, hier hast du auch besser in überblick wo es kracht:

Code: Alles auswählen

function CountLines(FileName: String): SizeInt;
var f: TextFile;
  s: String;
begin
  result:=0;
  AssignFile(f, FileName);
  try
    reset(f);
    while not EOF(f) do
    begin
      ReadLn(f, s);
      inc(result);
    end; 
  finally
    CloseFile(f);
  end;
end;

[TBug]

@Nugi89

Probiere einmal den Code bzw. die Exe im Anhang aus und berichte ob dies bei Dir funktioniert.

Im Anhang:
komplettes Projekt mit Projektdateien und SourcCode
Kompilierte Exe mit Lazarus 1.4.2
2 Textdateien zum aufrufen

[kralle]

Moin,

mal nur so in den Raum gefragt: Könnte es sein das das Dateisystem eine andere Zeichencodierung nutzt als in Lazarus?

Gruß HEiko

[Patito]

Das ist gefährlich, da WideString(FileName) einen transienten Wert liefert dessen Lebensdauer unbestimmt ist.

Ok. Wenn man sicher gehen will, kann man ja für den WideString irgendwo eine Variable anlegen.
Im Debugger sehe ich erst am Ende der Prozedur ein fpc_widestr_decr_ref, daher ist das zumindest bei mir mit dem 2.6.4 Compiler ok.

Da der Code problematische Bytes in den Filenamen schreiben soll, habe ich auf sowas gar nicht erst geachtet.