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:

Zitat von oakley (Beitrag 1468991)

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

[mmw]

Hallo,

Mit getAtiveOleObject erhält man die IDispatch -Schnittstelle des aktuellen OLE-Objects.

Falls das OLE-Object existiert (hier Excel/Word) kann man das OLE-Object mit Quit schließen.
(Quit muss natürlich vom OLE-Object bereitgestellt werden).

Wenn das OLE-Object nicht existiert wird es im EXCEPT-Block erzeugt und dann geschlossen
(setzt vorraus das Excel/Word installiert).

Der Code ist jetzt einfach gehalten.

Wenn man mit getActiveOleObject arbeitet schließt er die aktuelle Instanz. (Excel/Word mehrfach starten, dann im Taskmanager beobachten).

http://docwiki.embarcadero.com/Libra...ctiveOleObject

https://docs.microsoft.com/de-de/vis...w?view=vs-2019

Gruß