Dateivorschau

[oakley]

Hallo zusammen,

gibt es eventuell eine Möglichkeit die Windows Explorer Dateivorschau im eigenen Programm zu nutzen?

Oder eine ähnliche Komponente?

LG

Mirko

[sh17]

https://www.jam-software.de/shellbrowser_delphi

[mmw]

https://theroadtodelphi.com/category/com/

[oakley]

Danke mmw,

das funktioniert sehr gut mit Text- und Excel-Dateien. Ich habe meine Monitor Einstellung auf 150% zoom und da schiebt er in der Word-Datei Vorschau die Buchstaben in einander okay das wird bei 100% Zoom nicht passieren.
JPG und PNG ist eigentlich mit der Photo App verbunden und da erhalte ich, dass keine Vorschau verfügbar ist.

Das gleiche bei PDFs, die ich mit einem Portable PDF Viewer öffnen lasse.#

LG

Mirko

[mmw]

hallo,

hier noch weitere links

https://stackoverflow.com/questions/...-for-windows-7

oder

https://www.uweraabe.de/Blog/2011/06...he-delphi-way/

Gruß

[sh17]

Zitat von oakley:

Danke mmw,

Das gleiche bei PDFs, die ich mit einem Portable PDF Viewer öffnen lasse.#

Funktioniert denn die Vorschau im Windows-Explorer mit dem portablen Viewer?

[mmw]

hallo,

vielleicht liegts u.a daran

https://helpx.adobe.com/de/acrobat/u...-explorer.html

https://answers.microsoft.com/de-de/...2-44052dede1e2

https://www.heise.de/tipps-tricks/Wi...n-4128875.html

https://www.terveilm.net/miniaturans...ezeigt-werden/

bei mir hat der Tip von Adobe und die Standard-Einstellung bei den Ordner Optionen geholfen. zumindest im Win-Explorer, den Code habe ich jetzt nicht getestet.

Gruß

[oakley]

Ich hab Word und Excel mit einem TOleContainer gemacht, was auch soweit funktioniert.
Einfach OleContainer1.CreateObjectFromFile('dateiname', false);
Bei .doc oder .docx Dateien wird Word im Hintergrund gestartet aber nicht mehr beendet, wenn ich das Programm schließe.
Bei Excel das gleiche.

Kann man im OnClose Word bzw. Excel die Instanz, die erzeugt wurde, wieder beenden?

LG

Mirko

[mmw]

hallo,


bei Word und Excel kann man's so machen. (Einfache Lösung)

Delphi-Quellcode:

procedure Office_OLE_Object_Clear(ClassName: string);

 var
    ole_obj: OleVariant;
  begin
    ole_obj := Unassigned;

    try
      ole_obj := GetActiveOleObject(ClassName);
      ole_obj.quit;
      ole_obj := Unassigned;

    except
      ole_obj := CreateOleObject(ClassName);

      ole_obj.quit;
      ole_obj := Unassigned;
    end;
  end;

Aufruf für EXCEL mit

Office_OLE_Object_Clear('Excel.Application');




https://stackoverflow.com/questions/...n-olecontainer

Gruß

[oakley]

Danke für den Code.
Er macht erst noch eine Instanz Excel auf und schließt dann beide?
Wenn ich Excel übrigens noch nebenher laufen habe schließt er die Instanz gleich mit.

LG

Mirko