[TFileStream] Widestring Dateinamen

[Muetze1]

Zitat von himitsu:

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

Zitat aus der EnhancedStreams.pas aus meiner XMLLib, welche genau das hier gesuchte implementieren (mit Dank an Herrn Dobrushin):

Delphi-Quellcode:

uses
{$IFDEF COMPILER_6_UP}
  RTLConsts,
{$ELSE}
  Consts,
{$ENDIF}

[himitsu]

Zitat von Muetze1:

Zitat aus der EnhancedStreams.pas aus meiner XMLLib, welche genau das hier gesuchte implementieren (mit Dank an Herrn Dobrushin):
...

Bliebe jetzt nur noch die Frage, ob die Konstanten da genauso heißen und ob der Inhalt (Parameter) paßt.
> SFCreateErrorEx
> SFOpenErrorEx

[Muetze1]

Zitat von himitsu:

Zitat von Muetze1:

Zitat aus der EnhancedStreams.pas aus meiner XMLLib, welche genau das hier gesuchte implementieren (mit Dank an Herrn Dobrushin):
...

Bliebe jetzt nur noch die Frage, ob die Konstanten da genauso heißen und ob der Inhalt (Parameter) paßt.
> SFCreateErrorEx
> SFOpenErrorEx

Nein und nein, da die Ex Strings erst später definiert wurden. Die ohne Ex hingegen funktionieren auf allen Delphi Versionen. Alternativ nachdefinieren bei Delphi vor 6.

Delphi-Quellcode:

{ TUnicodeFileStream }

Constructor TUnicodeFileStream.Create(Const FileName: WideString; Const AMode: Word);
Var
  CreateHandle: Integer;
Begin
  If ( AMode = fmCreate ) Then
  Begin
    CreateHandle := WideFileCreate(FileName);

    If ( CreateHandle < 0 ) Then
      Raise EFCreateError.CreateResFmt(PResStringRec(@SFCreateError), [FileName]);
  End
  Else
  Begin
    CreateHandle := WideFileOpen(FileName, AMode);

    If ( CreateHandle < 0 ) Then
      Raise EFOpenError.CreateResFmt(PResStringRec(@SFOpenError), [FileName]);
  End;
  
  Inherited Create(CreateHandle);
End;

[himitsu]

OK, dann noch ohne die ...Ex-Strings

Delphi-Quellcode:

// UnicodeFileStream.pas

Unit UnicodeFileStream;

Interface
  Uses {$IF CompilerVersion >= 14.0}RTLConsts{$ELSE}Consts{$IFEND}, 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 < 0 Then
          Raise EFCreateError.CreateFmt(SFCreateError, [ExpandFileName(FileName)]);
      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 < 0 Then
          Raise EFOpenError.CreateFmt(SFOpenError, [ExpandFileName(FileName)]);
      end;
    End;

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

End.

falls des mit den CONDITIONALEXPRESSIONS ( {$IF ...} ) in der DelphiVersion noch nicht klappt, dann sag Bescheid.

bzw. hast du die JEDI's installiert?