Bezeichnungen von SpecialFoldern?

[DeddyH]

Und die Abstraktion selbst müsste niemals mehr geändert werden, auch nicht, wenn Microsoft in Windows 10/11/12 alle bisherigen Funktionen als deprecated kennzeichnet und man stattdessen plötzlich SHGetVerySpecialFoldersWhichDidPossiblyNotExistInO lderWindows verwenden soll?

[Sir Rufo]

Zitat von DeddyH:

Und die Abstraktion selbst müsste niemals mehr geändert werden, auch nicht, wenn Microsoft in Windows 10/11/12 alle bisherigen Funktionen als deprecated kennzeichnet und man stattdessen plötzlich SHGetVerySpecialFoldersWhichDidPossiblyNotExistInO lderWindows verwenden soll?

Du hast den Sinn der Abstraktion beschrieben

Hier mal ein Beispiel

Delphi-Quellcode:

unit AppPath;

interface

  type
    IAppPath = interface
      ['{00EF3178-EB41-49A3-9385-B3CB61CD0012}']
      function DocumentRoot : string;
    end;

    TAppPath = class
    private
      class var FAppPath : IAppPath;
    public
      class procedure SetAppPathInstance( AAppPath : IAppPath );
      class function DocumentRoot : string;
    end;

implementation

  uses
{$IFDEF WIN32}WinapiAppPath{$ENDIF}
{$IFDEF WIN64}WinapiAppPath{$ENDIF}
{$IFDEF OSX32}MacapiAppPath{$ENDIF}
;
  { TAppPath }

  class function TAppPath.DocumentRoot : string;
    begin
      Result := FAppPath.DocumentRoot;
    end;

  class procedure TAppPath.SetAppPathInstance( AAppPath : IAppPath );
    begin
      FAppPath := AAppPath;
    end;

end.

Delphi-Quellcode:

unit WinapiAppPath;

interface

  uses
    AppPath;

implementation

  uses
    SysUtils,
    WinapiAppPathSpecialFolder,
    WinapiAppPathKnownFolder;

  function WinVersionMinVista : Boolean;
    begin
      Result := CheckWin32Version( 6, 0 );
    end;

initialization

  if WinVersionMinVista
  then
    TAppPath.SetAppPathInstance( TAppPathKnownFolder.Create )
  else
    TAppPath.SetAppPathInstance( TAppPathSpecialFolder.Create );

end.

Delphi-Quellcode:

unit WinapiAppPathSpecialFolder;

interface

  uses
    AppPath;

  type
    TAppPathSpecialFolder = class( TInterfacedObject, IAppPath )
    public
      function DocumentRoot : string;
    end;

implementation

  uses
    Windows,
    ShellApi,
    ShlObj;

  function GetSpecialFolder( FolderID : longint ) : string;
    var
      Path   : pchar;
      idList : PItemIDList;
    begin
      GetMem( Path, MAX_PATH );
      SHGetSpecialFolderLocation( 0, FolderID, idList );
      SHGetPathFromIDList( idList, Path );
      Result := string( Path );
      FreeMem( Path );
    end;

  { TAppPathSpecialFolder }

  function TAppPathSpecialFolder.DocumentRoot : string;
    begin
      Result := GetSpecialFolder( CSIDL_MYDOCUMENTS );
    end;

end.

Delphi-Quellcode:

unit WinapiAppPathKnownFolder;

interface

  uses
    AppPath;

  type
    TAppPathKnownFolder = class( TInterfacedObject, IAppPath )
    public
      function DocumentRoot : string;
    end;

implementation

  uses
    SysUtils,
    Windows,
    ShlObj;

  function GetKnownFolder( const FolderID : TGUID ) : string;
    var
      LPath : PChar;
    begin
      if SHGetKnownFolderPath( FolderID, 0, 0, LPath ) >= 0
      then
        Result := LPath
      else
        Result := #0;
    end;

  { TAppPathKnownFolder }

  function TAppPathKnownFolder.DocumentRoot : string;
    begin
      Result := GetKnownFolder( StringToGUID( '{FDD39AD0-238F-46AF-ADB4-6C85480369C7}' ) );
    end;

end.

[DeddyH]

So, nochmal zum Mitschreiben: wenn sich die API ändert und plötzlich alle bislang benutzten Funktionen deprecated sind, muss man doch eine neue OS-Abfrage einbauen und dann die Funktion benutzen, die Microsoft vorgibt, ob abstrahiert oder nicht. Sonst läuft man möglicherweise Gefahr, dass das ganze Gezumpel entweder gar nicht mehr funktioniert oder aber falsche Ergebnisse liefert. Und nur darauf wollte ich hinaus.

[Sir Rufo]

Ja, genauso wie jedes Auto nicht mehr fährt, wenn der Betriebsstoff alle ist.

Ein heute geschriebenes Programm wird nur so lange laufen, wie alle heute geltenden und benutzten Schnittstellen noch vorhanden sind.

Mit einer Abstraktion erreiche ich aber eine schnelle und einfache Apassung an neue Gegebenheiten.

[DeddyH]

Zitat von Sir Rufo:

schnelle und einfache Apassung an neue Gegebenheiten.

Und um nichts anderes ging es. Ist dann denn so schwer?

[Sir Rufo]

Zitat von DeddyH:

Zitat von Sir Rufo:

schnelle und einfache Apassung an neue Gegebenheiten.

Und um nichts anderes ging es. Ist dann denn so schwer?

Nein, weder das Verstehen noch eben diese Anpassung, wenn man dies bei der Programmierung berücksichtigt, dass sich da was ändern kann (und APIs können sich nun mal ändern).

[Catbytes]

Wenn Microsoft das nicht so machen würde, hätten wir Heute vielleicht so einen Salat wie bei PHP.