Pfadangaben bei Image-Dateien

[HolgerX]

Hmm..

Wenn Du nur willst, das die Bilder aus einem Unterordner deines Programmverzeichnisses geladen werden, dann nutze
ExtractFilePath(ParamStr(0)) + 'Spielkarten\Spielkarte_1.jpg'
Somit ist es egal, wo dein Programmverzeichnis ist und was aktuell unter 'Arbeitsverzeichnis' eingetragen wird.

[p80286]

Zitat von XardasLP:

Hallo, wie kann ich dafür sorgen, dass er die Bilddatei findet, egal an in welchem Ordner der Ordner steckt?

Dann hilft nur Suchen.

Ansonsten solltest Du für die Speicherung die Standardverzeichnisse, bzw. deren Unterverzeichnisse nutzen.
z.B.
CSIDL_COMMON_APPDATA C:\ProgramData
CSIDL_COMMON_DOCUMENTS C:\Users\Public\Documents
CSIDL_LOCAL_APPDATA C:\Users\xxxxx\AppData\Local

Dann hast Du die Chance, daß dein Programm auf den meisten Windows-Rechnern problemlos läuft.

Gruß
K-H

[Sir Rufo]

Also egal in welchem Ordner ist es ja nun nicht, sondern die Dateien befinden sich ja immer relativ zum Anwendungsverzeichnis.

Code:

.\Anwendung.exe
.\Spielkarten\Spielkarte1.jpg
.\Spielkarten\Spielkarte2.jpg
...

Diese Dateien sind also ein fester Bestandteil der Anwendung und somit per Definition eine Ressource.

Ressourcen können sich direkt in der Anwendung befinden oder eben auch getrennt vorliegen.

Am sinnvollsten definiert man das auch so in seinem Programm

Delphi-Quellcode:

unit Unit1;

interface

type
  Resources = class sealed
  private const
    SpielkartenFolder                       = 'Spielkarten';
    Spielkarten: array [ 0 .. 7 ] of string = (
      {} 'Spielkarte1.jpg',
      {} 'Spielkarte2.jpg',
      {} 'Spielkarte3.jpg',
      {} 'Spielkarte4.jpg',
      {} 'Spielkarte5.jpg',
      {} 'Spielkarte6.jpg',
      {} 'Spielkarte7.jpg',
      {} 'Spielkarte8.jpg' );
  private
    class function GetAppFolder: string; static;
    class function PathCombine( const PartA, PartB: string ): string; overload;
    class function PathCombine( const Parts: array of string ): string; overload;
    class function GetSpielkarte( const Index: Integer ): string; static;

    class property AppFolder: string read GetAppFolder;
  public
    class property Spielkarte1: string index 0 read GetSpielkarte;
    class property Spielkarte2: string index 1 read GetSpielkarte;
    class property Spielkarte3: string index 2 read GetSpielkarte;
    class property Spielkarte4: string index 3 read GetSpielkarte;
    class property Spielkarte5: string index 4 read GetSpielkarte;
    class property Spielkarte6: string index 5 read GetSpielkarte;
    class property Spielkarte7: string index 6 read GetSpielkarte;
    class property Spielkarte8: string index 7 read GetSpielkarte;
  end;

implementation

uses
  SysUtils;

{ Resources }

class function Resources.GetAppFolder: string;
begin
  Result := ExtractFilePath( ParamStr( 0 ) );
end;

class function Resources.GetSpielkarte( const Index: Integer ): string;
begin
  Result := PathCombine( [ AppFolder, SpielkartenFolder, Spielkarten[ index ] ] );
end;

class function Resources.PathCombine( const PartA, PartB: string ): string;
begin
  Result := IncludeTrailingPathDelimiter( PartA ) + PartB;
end;

class function Resources.PathCombine( const Parts: array of string ): string;
var
  I: Integer;
begin
  Result := Parts[ 0 ];

  for I := 1 to high( Parts ) do
    begin
      Result := PathCombine( Result, Parts[ I ] );
    end;
end;

end.

und in der Anwendung brauche ich dann nur noch Image1.Picture.LoadFromFile( Resources.Spielkarte1 ); aufrufen.

(Ist schon lange her, aber class property kennt Delphi 7 wohl noch nicht )