[VB] Mehrere Dateien einem Process übergeben?

hassowuff · 18. März 2021, 00:47

Hallo Ihr lieben!

Wenn ich im Explorer mehrere Bilddateien auswähle, rechtsklick mache und Drucken wähle, öffnet sich ein Foto-Druckdialog von Windows. In diesem sind nun alle ausgewählten Bilder vorhanden.

Mit einer einzelnen Datei erreiche ich gleiches auch aus meinem Programm heraus:

VB.NET-Quellcode

Dim pr As Process = New Process
pr.StartInfo.FileName = filepathOfMyImage
pr.StartInfo.UseShellExecute = True
pr.StartInfo.Verb = "print"
pr.Start()

Nur mit mehreren bekomme ich es nicht hin Daher habe ich mir gerade so beholfen:

VB.NET-Quellcode

For Each file As String In pathArrayOfMyImageFiles
Dim fileType As String = file.Substring(file.LastIndexOf(".") + 1).Trim().ToUpper()
Select Case fileType
Case "PNG", "JPG", "GIF", "JPEG", "BMP"
Dim pr As Process = New Process
pr.StartInfo.FileName = file
pr.StartInfo.UseShellExecute = True
pr.StartInfo.Verb = "print"
pr.Start()
Case Else
End Select
Next

Ist es möglich irgendwie dem Druckdialog gleich alle Dateien mitzugeben - Wenn ja wie könnte ich vorgehen?

Lg. Hassowuff

ErfinderDesRades · 18. März 2021, 03:38

vermutlich musst du den Pfad der .exe aufrufen, und die Files gequoted und Semikolon-separiert übergeben.
Weiss grad nicht, wie das im einzelnen.
oder vlt. googlen: ".net Process print multiple files"

Joshi · 18. März 2021, 05:14

Moinsen @hassowuff

'Zitat aus der MS Dokumentation'
Quelle: docs.microsoft.com/en-us/windo…hellapi-shellexecuteinfoa

lpFile

Type: LPCTSTR

The address of a null-terminated string that specifies the name of the file or object on which ShellExecuteEx will perform the action specified by the lpVerb parameter. The system registry verbs that are supported by the ShellExecuteEx
function include "open" for executable files and document files and
"print" for document files for which a print handler has been
registered. Other applications might have added Shell verbs through the
system registry, such as "play" for .avi and .wav files. To specify a
Shell namespace object, pass the fully qualified parse name and set the SEE_MASK_INVOKEIDLIST flag in the fMask parameter.

Note: If the SEE_MASK_INVOKEIDLIST flag is set, you can use either lpFile or lpIDList to identify the item by its file system path or its PIDL respectively. One of the two values—lpFile or lpIDList—must be set.

Note: If the path is not included with the name, the current directory is assumed.

So wie ich das lese werden nur die Dateinamen übergeben, und zusätzlich ein "Referenz-Ordner" als Parameter angegeben.

Zudem, versuche einmal die "Cases" mit Kleinbuchstaben bei der Dateiendung!?!?!

Mehr fällt mir, vor dem ersten Kaffee, nicht ein AndAlso auf AndAlso ab.

Wie sieht denn der String-Array aus (pathArrayOfMyImageFiles) ?
Vielleicht reicht es dann nur die "Vollständigen"-Pfade pro Datei von der Dateibenennung abzutrennen,
oder wenn nur Dateibenennung vorhanden, dann irgendwie den Ordnerpfad reinpröpeln...

c.u Joshi aus HaHa-Land , mit zweiter Staatsbürgeschaft dem LaLa-Land.

-Franky- · 18. März 2021, 13:22

Hi

@hassowuff
Du kannst Dir von den Dateien eine PIDL (ITEMIDLIST) (SHGetDesktopFolder -> Interface IShellFolder, IShellFolder.ParseDisplayName(Deine Datei) -> PIDL ) holen und packst diese in ein ITEMIDLIST-Array. Per SHCreateShellItemArrayFromIDLists erstellst aus dem ITEMIDLIST-Array ein Interface IShellItemArray. Vom IShellItemArray holst Du Dir mit BindToHandler(BHID_SFUIObject) ein Interface IContextMenu. Per IContextMenu.InvokeCommand führst halt den "print" Befehl aus.

Alternativ kannst auch das Interface IFileOpenDialog (Flag FOS_ALLOWMULTISELECT) verwenden um die Dateien auszuwählen. IFileOpenDialog.GetResults liefert Dir dann ein Interface IShellItemArray von den selektierten Dateien zurück. Der Rest ist dann wie oben beschrieben über das Interface IContextMenu.

hassowuff · 18. März 2021, 18:36

Hallo Ihr lieben!

Ich habe mal eure Antworten studiert und selbst noch weiter recherchiert^^
Also Google hat zu diesem Thema zahlreiche offen gebliebene Fragen gefunden, jedoch keine richtige Antwort..

Was habe ich bereits?

Selektiere ich mehrere Bilder -> Rechtsklick -> Drucken, so kommt der Fotodruckdialog, der wiederum aber keinen Eintrag im Taskmanager erzeugt, so konnte ich keine ".exe"-Datei ausfindig machen.

Das Verb "Print" bzw. "PrintTo" führt in diesem Fall scheinbar folgenden Befehl aus: "C:\WINDOWS\system32\rundll32.exe c:\windows\system32\shimgvw.dll,ImageView_PrintTo /pt %1 %2 %3 %4"
%1 steht hier für den Pfad und Dateinamen einer einzelnen Datei, %2 und %3 wird wohl seit WinME oder so nicht mehr genutzt und mit %4 kann man einen Drucker definieren.
Ein kurzer Test über die PowerShell bestätigte das auch. Kann es sein, dass der Bilder-Druck-Dialog ein Dialog innerhalb des Explorers ist? Ich bin schon dazu geneigt, einfach einen eigenen Dialog zu Entwickeln.

Die DLL selbst ist schlecht Dokumentiert, jedoch habe ich mir diese einmal angesehen und kann dort auch keinen Hinweis auf die Übergabe mehrerer Dateien finden, nur dann Frage ich mich wie es der Explorer macht.
Unschlüssig bin ich auch noch, ob ich mit der DLL-Datei nicht auf einem Irrweg bin, finde allerdings auch in der Windows-Registry "HKEY_CLASSES_ROOT" keine anderen Hinweise außer diesen:

Spoiler anzeigen

PS noch @-Franky-: Deine Vorgehensweise habe ich verstanden, finde ich auch gar nicht schlecht nur die Umsetzung nach deiner Beschreibung übersteigt meine Fähigkeiten^^

Aber ich konnte eine ähnliche Vorgehensweise in einem anderen Forum auch finden:

Spoiler anzeigen

Hat noch jemand eine Idee, oder: Wie kann kann ich prüfen ob ich mit der DLL am richtigen Ende suche?

Lg. Hassowuff

-Franky- · 18. März 2021, 19:24

@hassowuff

Deine Vorgehensweise habe ich verstanden, finde ich auch gar nicht schlecht nur die Umsetzung nach deiner Beschreibung übersteigt meine Fähigkeiten

Das ist zwar nicht ganz der Weg den der Explorer nimmt, aber so ähnlich. Am Ende kommt ja der Rechtsklick auf die selektierten Dateien und das Kontextmenü wo Du dann halt Drucken auswählst und der dazugehörende registrierte Handler für Bilder (die shimgvw.dll offensichtlich) aufgerufen wird. Bei meiner Idee zeigen wir zwar nicht das Kontextmenü an, sondern führen den Befehl direkt aus.

Wenn ich wirklich viel Zeit hätte, was bei mir kaum vorkommt, könnte ich ein .NET Bsp basteln. Um sich da viel Arbeit mit den ganzen Interfaces zu sparen, würde ich nur mit den Pointern, der VTable und Delegates arbeiten (nur die benötigten Funktionen eines Interfaces) anstatt die Interfaces komplett, mit allen Funktionen, im Code einzubauen. Mal schauen, vllt am Wochenende. Versprechen kann ich da aber nichts das ich dazu komme. Vllt hat ja ein anderer hier mehr Zeit als ich und bastelt was zusammen.

hassowuff · 18. März 2021, 20:06

@-Franky- Vielen vielen Dank für deine Mühen! Ich versuche dennoch, mir den Weg den du beschrieben hast zu erarbeiten!

-Franky- · 20. März 2021, 18:12

Hi

@hassowuff

Hab heute ein bissel Zeit gefunden meine Idee umzusetzen. Ist jetzt alles auf die schnelle zusammen gebaut und ein wenig anders geworden wie ich es ursprünglich geplant hatte. What ever. Hauptsache es läuft. Das Prinzip dürfte klar sein. Wer möchte, darf das ganze natürlich gern verbessern, erweitern usw.

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.Runtime.InteropServices
Public Class Form1
Private Const S_OK As Integer = 0
Private Const CMDSTR_PRINT As String = "Print"
Private Const BHID_SFUIObject As String = "3981E225-f559-11d3-8E3a-00c04f6837d5"
Private Const IID_IShellItemArray As String = "b63ea76d-1f85-456f-a19c-48159efa858b"
Private Const IID_IContextMenu As String = "000214e4-0000-0000-c000-000000000046"
<StructLayout(LayoutKind.Sequential)>
Private Structure CMINVOKECOMMANDINFOEX
Dim cbSize As Integer
Dim fMask As Integer
Dim hwnd As IntPtr
<MarshalAs(UnmanagedType.LPStr)> Dim lpVerb As String
<MarshalAs(UnmanagedType.LPStr)> Dim lpParameters As String
<MarshalAs(UnmanagedType.LPStr)> Dim lpDirectory As String
Dim nShow As Integer
Dim dwHotKey As Integer
Dim hIcon As IntPtr
<MarshalAs(UnmanagedType.LPStr)> Dim lpTitle As String
<MarshalAs(UnmanagedType.LPWStr)> Dim lpVerbW As String
<MarshalAs(UnmanagedType.LPWStr)> Dim lpParametersW As String
<MarshalAs(UnmanagedType.LPWStr)> Dim lpDirectoryW As String
<MarshalAs(UnmanagedType.LPWStr)> Dim lpTitleW As String
Dim ptInvokeX As Integer
Dim ptInvokeY As Integer
End Structure
<DllImport("Shell32.dll", EntryPoint:="SHParseDisplayName")>
<PreserveSig> Private Shared Function SHParseDisplayName(<[In], MarshalAs(UnmanagedType.LPWStr)> ByVal pszName As String,
<[In]> ByVal pbc As IntPtr,
<Out> ByRef ppidl As IntPtr,
<[In]> ByVal sfgaoIn As IntPtr,
<Out> ByRef psfgaoOut As IntPtr) As Integer
End Function
<DllImport("Shell32.dll", EntryPoint:="SHCreateShellItemArrayFromIDLists")>
<PreserveSig> Private Shared Function SHCreateShellItemArrayFromIDLists(<[In]> ByVal cidl As Integer,
<[In]> ByVal rgpidl As IntPtr(),
<Out, MarshalAs(UnmanagedType.Interface)> ByRef ppsiItemArray As IShellItemArray) As Integer
End Function
<DllImport("User32.dll", EntryPoint:="CreateMenu")>
Private Shared Function CreateMenu() As IntPtr
End Function
<DllImport("User32.dll", EntryPoint:="DestroyMenu")>
Private Shared Function DestroyMenu(<[In]> ByVal hMenu As IntPtr) As Boolean
End Function
<ComImport>
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
<Guid(IID_IShellItemArray)>
Private Interface IShellItemArray
<PreserveSig> Function BindToHandler(<[In]> ByVal pbc As IntPtr,
<[In], MarshalAs(UnmanagedType.LPStruct)> ByVal bhid As Guid,
<[In], MarshalAs(UnmanagedType.LPStruct)> ByVal riid As Guid,
<Out, MarshalAs(UnmanagedType.IUnknown)> ByRef ppvOut As Object) As Integer
'GetPropertyStore
'GetPropertyDescriptionList
'GetAttributes
'GetCount
'GetItemAt
'EnumItems
End Interface
<ComImport>
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
<Guid(IID_IContextMenu)>
Private Interface IContextMenu
<PreserveSig> Function QueryContextMenu(<[In]> ByVal hMenu As IntPtr,
<[In]> ByVal indexMenu As Integer,
<[In]> ByVal idCmdFirst As Integer,
<[In]> ByVal idCmdLast As Integer,
<[In]> ByVal uFlags As Integer) As Integer
<PreserveSig> Function InvokeCommand(<[In], MarshalAs(UnmanagedType.Struct)> ByRef pici As CMINVOKECOMMANDINFOEX) As Integer
'GetCommandString
End Interface
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sFiles As String() = New String(3) {}
Dim pPidlArr As IntPtr() = New IntPtr(sFiles.Length - 1) {}
' Bilder
sFiles(0) = "d:\test01.jpg"
sFiles(1) = "d:\test02.jpg"
sFiles(2) = "d:\test03.jpg"
sFiles(3) = "d:\test04.jpg"
' von allen Bilder die PIDL ermitteln und in einem Array speichern
For intItem As Integer = 0 To sFiles.Length - 1
Dim pPIDL As IntPtr = IntPtr.Zero
If SHParseDisplayName(sFiles(intItem), IntPtr.Zero, pPIDL,
IntPtr.Zero, IntPtr.Zero) = S_OK Then
pPidlArr(intItem) = pPIDL
End If
Next
Dim IIShellItemArray As IShellItemArray = Nothing
' vom PIDL-Array ein IShellItemArray erstellen
If SHCreateShellItemArrayFromIDLists(pPidlArr.Length, pPidlArr,
IIShellItemArray) = S_OK Then
Dim oIContextMenu As Object = Nothing
' vom IShellItemArray ein IContextMenu erstellen
If IIShellItemArray.BindToHandler(IntPtr.Zero, New Guid(BHID_SFUIObject),
New Guid(IID_IContextMenu), oIContextMenu) = S_OK Then
Dim IIContextMenu As IContextMenu = DirectCast(oIContextMenu, IContextMenu)
' ein Menü erstellen
Dim hMenu As IntPtr = CreateMenu()
If hMenu <> IntPtr.Zero Then
' Menü zuweisen (alle Kontextmenüeinträge werden hier geladen)
If IIContextMenu.QueryContextMenu(hMenu, 0, 0, &H7FFF, 0) > 0 Then
' ab hier könnte man das Kontextmenü z.B. anzeigen, Anzahl der
' Kontextmenüeintrage ermitteln, ID eines Kontextmenüeintrages
' ermitteln, Verb (open, print usw.) eines Kontextmenüeintrages
' ermitteln usw.
Dim tCMICI As New CMINVOKECOMMANDINFOEX
' Befehl (Verb) der aus dem Kontextmenü ausgeführt werden soll
With tCMICI
.cbSize = Marshal.SizeOf(tCMICI)
.lpVerb = CMDSTR_PRINT
End With
' Befehl ausführen
If IIContextMenu.InvokeCommand(tCMICI) = S_OK Then
Debug.Print("OK")
End If
End If
' Menü löschen
DestroyMenu(hMenu)
End If
' IContextMenu löschen
Marshal.FinalReleaseComObject(IIContextMenu)
End If
' IShellItemArray löschen
Marshal.FinalReleaseComObject(IIShellItemArray)
End If
For intItem As Integer = 0 To pPidlArr.Length - 1
' alle PIDLs freigeben
Marshal.FreeCoTaskMem(pPidlArr(intItem))
Next
End Sub
End Class

-Franky- · 22. März 2021, 10:14

Hi

Kleine Korrektur. Macht aber keinen Unterschied. Anstatt der API CreateMenu kannst auch die API CreatePopupMenu nehmen. Brauchst ja nur die Namen austauschen. Die API-Signatur ist ja die gleiche.

hassowuff · 24. März 2021, 17:11

WTF! Mit deinem Kopf wäre ich gern in einem Netzwerk^^ Vielen Dank dafür! Ich überarbeite gerade mein ganzes Programm und setze es von Grund auf nochmal auf ganz neue "Beine", denn meine Ansprüche daran sind recht hoch^^
Sobald das Grundgerüst steht werde ich das ganze mit aufgreifen und ausführlich testen! Ich melde mich wenn ich soweit bin! Aber wie gesagt vielen, vielen Dank!

PS: Ich erarbeite ein Programm zum massenhaften scannen und verwalten von Dokumenten und Unterlagen und das ganze so, dass sich Unterlagen auch zu Gruppen, Kategorien, Unternehmen und Personen sortieren lassen. Möglichst eine Hybridlösung aus physischer und virtueller Speicherung.. Das stressigste für mich dabei ist es, wenn 100te Dokumente gescannt sind sie auch Personen und Kategorien zuzuordnen und um zu benennen und mehrseitige Unterlagen zu einem zusammen zu fassen und ggf. in PDF's umzuwandeln. Daher soll mein Programm eine erweiterte Lösung der "Windows Fax und Scan"-App werden.

[VB] Mehrere Dateien einem Process übergeben?

[VB] Mehrere Dateien einem Process übergeben?

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben