[TFileStream] Widestring Dateinamen

[himitsu]

[add]
hab's mal geändert, aber wie gesagt, so wurde es halt in D7 gemacht
[/add]

RTLConst ist eigentlich von Delphi (zumindestens war die vorhin beim Delphi 7 dabei).
Eigentlich ist diese Datei nur drin, da ich die Konstanten bei den Exceptions so gelassen hatte.

Weiß zufällig wer, wo in D5 die nötigen Resourcestrings liegen?

Nja, erstmal ohne die RTLConsts, aber dafür mit direkt eingebauten Exception-Strings in deutsch.

Delphi-Quellcode:

Unit UnicodeFileStream;

Interface
  Uses Windows, SysUtils, Classes;

  Type TFileStreamX = Class(TFileStream)
    Public
      Constructor Create(Const FileName: WideString; Mode: Word);                   Overload;
      Constructor Create(Const FileName: WideString; Mode: Word; Rights: Cardinal); Overload;
      Destructor Destroy; Override;
    End;

Implementation
  Constructor TFileStreamX.Create(Const FileName: WideString; Mode: Word);
    Begin
      Create(Filename, Mode, 0);
    End;

  Constructor TFileStreamX.Create(Const FileName: WideString; Mode: Word; Rights: Cardinal);
    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);

    Begin
      If Mode = fmCreate Then Begin
        Inherited Create(CreateFileW(PWideChar(FileName), GENERIC_READ or GENERIC_WRITE,
          0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0));
        If FHandle = INVALID_HANDLE_VALUE Then
          Raise EFCreateError.CreateFmt('Datei "%s" kann nicht erstellt werden. %s',
            [ExpandFileName(FileName), SysErrorMessage(GetLastError)]);
      End Else Begin
        If ((Mode and 3) <= fmOpenReadWrite) and ((Mode and $F0) <= fmShareDenyNone) Then Begin
          Inherited Create(CreateFileW(PWideChar(FileName), AccessMode[Mode and 3],
            ShareMode[(Mode and $F0) shr 4], nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0));
        End Else Inherited Create(0);
        If FHandle = INVALID_HANDLE_VALUE Then
          Raise EFOpenError.CreateFmt('Datei %s kann nicht geöffnet werden. %s',
            [ExpandFileName(FileName), SysErrorMessage(GetLastError)]);
      end;
    End;

  Destructor TFileStreamX.Destroy;
    Begin
      If FHandle >= 0 Then FileClose(FHandle);
      Inherited Destroy;
    End;

End.