Verzeichnisstruktur

[medirar]

Wie meinst Du das? Ich kenne das nicht:shock:

Ich habe mal ein Screenshot von der Struktur gemacht!

[DeddyH]

Also wohl eher so:

Delphi-Quellcode:

function GetDirFromFilename(const Filename, IncludingDir: string;
  BackslashPositions: array of integer): string;
var
  i, RealPosition: integer;
  SubDir: string;
begin
  RealPosition := 0;
  SubDir := Filename;
  for i := Low(BackslashPositions) to High(BackslashPositions) do
    begin
      Insert('\', SubDir, BackslashPositions[i] + RealPosition);
      inc(RealPosition);
    end;
  SubDir := ExtractFilePath(IncludeTrailingPathDelimiter(IncludingDir) + SubDir);
  Result := SubDir + Filename;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetDirFromFilename('9R223000L5.jpg', 'G:\PICS', [2,3,5,6]))
end;

[medirar]

Das ist es! Super Genial Ich werde das mal heute abend ausprobieren. Nur ist mir nicht klar wie ich das jetzt mit IrfanView direkt öffnen kann.:shock:

[Prototypjack]

Zitat:

Zitat von medirar (Beitrag 1120145)

Nur ist mir nicht klar wie ich das jetzt mit IrfanView direkt öffnen kann.:shock:

Kommt darauf an. Wenn IrfanView das Standardprogramm für Bildbetrachtung ist, dann reicht ShellExecute des Bildes, sonst ShellExecute der IrfanView-Exe mit Dateinamen im Parameter.

Grüße,
Max

[medirar]

So? :shock:

Delphi-Quellcode:

ShellExecute(0,'open','i_view32.exe',Pchar (edit1.Text),'C:\Software\irfanview\',SW_SHOW)

Ich habs mit Edit1.Text gemacht zur direkten eingabe!

[DeddyH]

Versuch mal

Delphi-Quellcode:

ShellExecute(0,
             'open',
             'C:\Software\irfanview\i_view32.exe',
             Pchar(GetDirFromFilename(edit1.Text, 'G:\PICS', [2,3,5,6])),
             nil,
             SW_SHOW)

[medirar]

Hi! ich bin gerade eben nach hause gekommen und habs ausprobiert alles funktioniert wunderbar....echt geil! Vielen herzlichen Dank!

nur eine Fehlerroutine funktioniert nicht. Wird hier komplizierter? :shock:

[DeddyH]

Wie meinen?

[medirar]

Sorry!:-D

Das Bild öffnet nur wenn es vorhanden ist...wenn nicht kommt eine Fehlermeldung!....

[DeddyH]

Dann musst Du vorher prüfen, ob es die Datei auch gibt (FileExists).