Tail Funktionalität

[himitsu]

Zitat von Klaus01:

Ich denke mal das die "alten" Routinen die Datei exclusiv öffnen.

Jupp, damals hat man einfach vergessen die Sharing-Rechte zu vergeben und per Default ist alles blockiert.

Bei TFileStream kann man diese Rechte selber vergeben.

[gsh]

Zitat von himitsu:

Zitat von Klaus01:

Ich denke mal das die "alten" Routinen die Datei exclusiv öffnen.

Jupp, damals hat man einfach vergessen die Sharing-Rechte zu vergeben und per Default ist alles blockiert.

Bei TFileStream kann man diese Rechte selber vergeben.

Also ein fmShareExclusive sozusagen.
Aber warum können dann andere Anwendung das File öffnen?

[himitsu]

OK, hab grad nochmal nachgesehn, FILE_SHARE_READ wird doch gesetzt, also lesend kann man zugreifen.

eventuell ist ja was mit dem fmShareDenyNone nicht in Ordnung


OK, wenn man sich das (in D7) man ansieht, dann wird Rights einfach ignoriert, wenn man die Datei nicht selber ERSTELLT.

Delphi-Quellcode:

constructor TFileStream.Create(const FileName: string; Mode: Word; Rights: Cardinal);
begin
  if Mode = fmCreate then
  begin
    inherited Create(FileCreate(FileName, Rights));
    if FHandle < 0 then
      raise EFCreateError.CreateResFmt(@SFCreateErrorEx, [ExpandFileName(FileName), SysErrorMessage(GetLastError)]);
  end
  else
  begin
    inherited Create(FileOpen(FileName, Mode));
    if FHandle < 0 then
      raise EFOpenError.CreateResFmt(@SFOpenErrorEx, [ExpandFileName(FileName),    SysErrorMessage(GetLastError)]);
  end;
end;

[edit]
*weitersuch* gut, in FileOpen wird es aus Mode extrahiert, also eigentlich sollte es da klappen
fmCreate > Sharing in Rights angeben
ansonsten > Sharing mit Mode or-Verknüpfen

Wer ist nur auf diesen SCH*** gekommmen (OK, wenn man fmCreate ansieht, welches $FFFF ist, dann kann man damit nix verknüpfen, aber dennoch ... dann halt immer über Rights)

Delphi-Quellcode:

function FileOpen(const FileName: string; Mode: LongWord): Integer;
{$IFDEF MSWINDOWS}
const
  AccessMode: array[0..2] of LongWord = (
    GENERIC_READ,
    GENERIC_WRITE,
    GENERIC_READ or GENERIC_WRITE);
  ShareMode: array[0..4] of LongWord = (
    0,
    0,
    FILE_SHARE_READ,
    FILE_SHARE_WRITE,
    FILE_SHARE_READ or FILE_SHARE_WRITE);

zum Glück nutze ich diesen Stream nie und gehe fast immer direkt über die WinAPU und hatte da noch keine Probleme

[gsh]

Zitat von himitsu:

eventuell ist ja was mit dem fmShareDenyNone nicht in Ordnung

Hab jetzt testweiße eine Datei mit: FS := TFileStream.Create('C:\test.txt', fmOpenReadWrite or fmShareDenyWrite); blockiert.
In diesem Fall konnte ich sie mit S := TFileStream.Create('C:\test.txt', fmOpenRead or fmShareDenyNone); ohne Probleme auslesen.

[Klaus01]

.. dann könnte man eventuell noch

FileOpen:

Zitat:

Opens a specified file using a specified access mode.

Unit
SysUtils

Syntax
 function FileOpen(const FileName: string; Mode: Cardinal): Integer;

FileRead:

Zitat:

Reads a specified number of bytes from a file.
Unit
SysUtils
Syntax
 function FileRead(Handle: Integer; var Buffer: Type; Count: Cardinal): Integer;

ausprobieren.

Grüße
Klaus

[gsh]

Wenn ich das richtig verstanden habe dann wird aber FileOpen und FileReads doch eh von TFileStream aufgerufen oder?

[Klaus01]

Hiermit habe ich eine Datei erstellt und blockiert:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  assignFile(f,ExtractFilePath(ParamStr(0))+'test.txt');
  rewrite(f);
  while true do
    begin
      writeLn(f,'test test test test test test test test');
      application.processMessages;

    end;
end;

Hiermit kann ich aus der Datei lesen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fileHandle : Cardinal;
  buff: array[0..10] of char;
  i: Integer;
begin
  fileHandle := fileOpen(ExtractFilePath(ParamStr(0))+'test.txt',fmOpenRead or fmShareDenyNone);
  i:=fileRead(fileHandle,buff[0],length(buff));
  closeFile(fileHandle);
  edit1.Text:=buff+' '+IntToStr(i);
end;

Grüße
Klaus

[gsh]

Danke für deinen Test. Dein Beispiel funktioniert bei mir auch.
Aber eins verstehe ich nicht. Die "alte" Tail function (mit FileStream) funktioniert jetzt plötzlich auch Eigentlich hab ich ja nichts dran geändert.

Delphi-Quellcode:

function Tail(FileName:string; Position:Integer):string;
var
  S: TStream;
  L: Integer;
begin
  S := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
  try
    S.Seek(Position, soBeginning);
    L := S.Size-Position;
    SetLength(Result, L);
    S.Read(Result[1], L);
  finally
    S.Free;
  end;
end;

Aber gut wenn es jetzt funktioniert bin ich froh. Danke an Alle