Dateien aus Datei-Suche anzeigen

[Ykcim]

Hallo Zusammen,

ich arbeite mit Turbo-Delphi (kann also keine Komponenten hinzufügen).

Ich habe in einem StringGrid die Liste meiner Artikel. In der Artikelbezeichnung ist auch der Name der Zeichnung enthalten. Von diesem Artikel gibt es aber gerne auch mal mehrere Zeichnungen auf dem Server (Revisionsstände).

Ich würde jetzt gerne eine Möglichkeit haben, dass wenn ich auf einen Artikel klicke, er mir in einem Feld (Tabelle, Treeview, etc.) alle Zeichnungen anzeigt, die den Zeichnungnamen enthalten. Mit einem Doppelklick soll die Zeichnung dann geöffnet werden.

Hier mal der Versuch eines Beispiels, wie ich mir das vorstelle:
Serverinhalt:
Z4711-01.pdf
Z4711-02.pdf
Z9999-01.pdf
Z9999-02.pdf
Z1111-01.pdf
Z1111-02.pdf
Z1111-03.pdf
und so weiter

Wenn ich jetzt auf den Artikel mit der Zeichnung 4711 klicke soll folgendes zu Auswahl stehen
Z4711-01.pdf
Z4711-02.pdf

Hat jemand eine Idee, wie ich das realisieren kann?

Vielen Dank

Ykcim

[DeddyH]

Lustigerweise bastle ich zufällig gerade an einer Suchkomponente. Auch wenn Du sie nicht installieren kannst, kannst Du sie ja trotzdem per Code einbinden. Bei Interesse sag einfach Bescheid, dann hänge ich den aktuellen Stand mal an (ist aber noch im Beta-Status).

[Gustav.R]

Was habt ihr eigentlich alle gegen findfirst/findnext?

GG

Frollein Edith meint, daß sie beim Suchen etwas finden will, was möglicherweisen noch nicht vom System "indiziert" wurde...

[Ykcim]

Ich weiß nicht, wie ich es anstellen muss, wenn ich nur einen Teil des Dateinamen kenne.

Also, ich weiß, dass der Dateiname "4711" beinhaltet. Die Suche soll jetzt alle Dateien auflisten, die "4711" als Teilstring enthalten:
Z4711-01.pdf
z4711-02.pdf
DIN4711.pdf
und so weiter...

Vielen Dank

Ykcim

[DeddyH]

Dann such doch einfach nach *4711*.pdf

[edit]@Gustav: ich benutze auch FindFirst/FindNext [/edit]

[CreativeMD]

Soll er die Dateien aus dem Server auslesen?
Oder etwas auf dem PC?

[Ykcim]

Die Zeichnungen befinden sich in einem Ordner auf dem Server. Er soll die Dateien, die den Teilstring "4711" im Dateinamen haben, finden und dann in einer Liste die vollständigen Namen anzeigen.

Das Ziel ist, dass der User die Dateien dann mit einem Doppelklick öffnen kann.

Vielen Dank

Ykcim

[neo4a]

Zitat von Ykcim:

Hat jemand eine Idee, wie ich das realisieren kann?

Vielleicht suchst Du ja nur soetwas:

Delphi-Quellcode:

var
  aMask : string;
  aSearchRec : TSearchRec;
begin
    aMask := '4711*.pdf';
    if FindFirst(aMask, faAnyFile, aSearchRec) = 0 then
    try
      repeat
// Keine Verzeichnis-Rekursion
        if not (aSearchRec.Attr and faDirectory = faDirectory) then
        begin
          aMenuItem := TMenuItem.Create(Self);
          aMenuItem.Caption := ChangeFileExt(aSearchRec.Name, '');
          aMenuItem.ImageIndex := actItem.ImageIndex;
          aMenuItem.OnClick    := actItemExecute;
          FPopupMenu.Items.Add(aMenuItem);
        end;
      until FindNext(aSearchRec) <> 0;
    finally
      FindClose(aSearchRec);
    end;

Ansonsten hätte ich noch einen anderen Vorschlag: Everything. Dieses Minitool kommt u.a. auch portabel daher und ich benutze es seit langem als s**schnelle Dateisuche im gesamten Dateisystem.

Nun hat das Programm auch einen Http-Server eingebaut. Den spricht man zur Dateisuche z.B. so an: http://localhost:801/?s=4711*.pdf

Wenn Du also die Dateien gleich noch anzeigen willst und die ggf. sogar auch einem anderen Server liegen, brauchst Du eigentlich nur noch einen Webbrowser (intern oder extern) anzusteuern.

[Ykcim]

@ neo4a
Genau das habe ich gesucht.
@all
Vielen Dank für die Unterstützung. Ich habe es angepasst und eingebaut und es läuft prima

DANKE!

Ykcim

[RWarnecke]

Schaue Dir mal dieses Beispiel an.