WebBrowser-Modul - How can I open a pdf-file which is not called *.pdf?

すべての返信

• 

  

  0

  サインインして投票

  Read thru this post for associating a file extension.

  https://social.msdn.microsoft.com/Forums/vstudio/en-US/630ed1d9-73f1-4cc0-bc84-04f29cffc13b/what-registry-keys-are-responsible-for-file-extension-association?forum=netfxbcl

  ---

  Please remember to mark the replies as answers if they help and unmarked them if they provide no help, this will help others who are looking for solutions to the same or similar problem. Contact via my Twitter (Karen Payne) or Facebook (Karen Payne) via my MSDN profile but will not answer coding question on either.

  NuGet BaseConnectionLibrary for database connections.

  StackOverFlow
  

  2020年6月11日 17:11
• 

  

  0

  サインインして投票

  I don´t want to register this extension in the registry...

  2020年6月11日 18:14
• 

  

  0

  サインインして投票

  Did you consider a simple approach as well: copying the file to Windows’ temporary folder programmatically with extension changed to “.pdf”, then navigating to this temporary file? Later you can delete the file programmatically.  

  2020年6月11日 18:17
• 

  

  0

  サインインして投票

  You can use IAcroAXDocShim.LoadFile

  (I just tested after having renamed the extension with .xyz, it loads the .pdf correctly)

  2020年6月11日 18:31
• 

  

  0

  サインインして投票

  this sounds great. where can I get "IAcroAXDocShim"?

  2020年6月11日 19:05
• 

  

  0

  サインインして投票

  You can use "Adobe Acrobat 7.0 Browser Control Type Library 1.0" for less code
  
  Otherwise, by defining it manually and by using "AtlAxWin" =>
  
  (change the string sPDFFile)

  Public Class Form1
      Public Enum HRESULT As Integer
          S_OK = 0
          S_FALSE = 1
          E_NOINTERFACE = &H80004002
          E_NOTIMPL = &H80004001
          E_FAIL = &H80004005
          E_UNEXPECTED = &H8000FFFF
          E_OUTOFMEMORY = &H8007000E
      End Enum
  
      <DllImport("Atl.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
      Public Shared Function AtlAxWinInit() As Boolean
      End Function
  
      <DllImport("Atl.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
      Public Shared Function AtlAxGetControl(ByVal h As IntPtr, <Out> <MarshalAs(UnmanagedType.IUnknown)> ByRef pp As Object) As Integer
      End Function
  
      <DllImport("Atl.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
      Public Shared Function AtlAxGetHost(ByVal h As IntPtr, <Out> <MarshalAs(UnmanagedType.IUnknown)> ByRef pp As Object) As Integer
      End Function
  
      <DllImport("User32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)>
      Public Shared Function CreateWindowEx(ByVal dwExStyle As Integer, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hWndParent As IntPtr, ByVal hMenu As IntPtr, ByVal hInstance As IntPtr, ByVal lpParam As IntPtr) As IntPtr
      End Function
  
      Public Const WS_OVERLAPPED = &H0
      Public Const WS_BORDER = &H800000
      Public Const WS_POPUP = &H80000000
      Public Const WS_CHILD = &H40000000
      Public Const WS_MINIMIZE = &H20000000
      Public Const WS_VISIBLE = &H10000000
      Public Const WS_DISABLED = &H8000000
  
      Public Shared Function GetWindowLong(hWnd As IntPtr, nIndex As Integer) As Integer
          If IntPtr.Size = 4 Then
              Return GetWindowLong32(hWnd, nIndex)
          End If
          Return GetWindowLongPtr64(hWnd, nIndex)
      End Function
  
      <DllImport("User32.dll", EntryPoint:="GetWindowLong", CharSet:=CharSet.Auto)>
      Private Shared Function GetWindowLong32(hWnd As IntPtr, nIndex As Integer) As Integer
      End Function
  
      <DllImport("User32.dll", EntryPoint:="GetWindowLongPtr", CharSet:=CharSet.Auto)>
      Private Shared Function GetWindowLongPtr64(hWnd As IntPtr, nIndex As Integer) As Integer
      End Function
  
      Public Const GWL_HINSTANCE = -6
  
      <ComImport()>
      <Guid("3b813ce7-7c10-4f84-ad06-9df76d97a9aa")>
      <InterfaceType(ComInterfaceType.InterfaceIsIDispatch)>
      Public Interface IAcroAXDocShim
          <DispId(1)>
          Property src() As String
  
          <DispId(30)>
          Property messageHandler() As Object
  
          <DispId(2)>
          Function LoadFile(<MarshalAs(UnmanagedType.BStr)> <[In]()> fileName As String) As Boolean
  
          <DispId(3)>
          Sub setShowToolbar(<[In]()> [On] As Boolean)
  
          <DispId(4)>
          Sub gotoFirstPage()
  
          <DispId(5)>
          Sub gotoLastPage()
  
          <DispId(6)>
          Sub gotoNextPage()
  
          <DispId(7)>
          Sub gotoPreviousPage()
  
          <DispId(8)>
          Sub setCurrentPage(<[In]()> n As Integer)
  
          <DispId(9)>
          Sub goForwardStack()
  
          <DispId(10)>
          Sub goBackwardStack()
  
          <DispId(11)>
          Sub setPageMode(<MarshalAs(UnmanagedType.BStr)> <[In]()> pageMode As String)
  
          <DispId(12)>
          Sub setLayoutMode(<MarshalAs(UnmanagedType.BStr)> <[In]()> layoutMode As String)
  
          <DispId(13)>
          Sub setNamedDest(<MarshalAs(UnmanagedType.BStr)> <[In]()> namedDest As String)
  
          <DispId(14)>
          Sub Print()
  
          <DispId(15)>
          Sub printWithDialog()
  
          <DispId(16)>
          Sub setZoom(<[In]()> percent As Single)
  
          <DispId(17)>
          Sub setZoomScroll(<[In]()> percent As Single, <[In]()> left As Single, <[In]()> top As Single)
  
          <DispId(18)>
          Sub setView(<MarshalAs(UnmanagedType.BStr)> <[In]()> viewMode As String)
  
          <DispId(19)>
          Sub setViewScroll(<MarshalAs(UnmanagedType.BStr)> <[In]()> viewMode As String, <[In]()> offset As Single)
  
          <DispId(20)>
          Sub setViewRect(<[In]()> left As Single, <[In]()> top As Single, <[In]()> width As Single, <[In]()> height As Single)
  
          <DispId(21)>
          Sub printPages(<[In]()> from As Integer, <[In]()> [to] As Integer)
  
          <DispId(22)>
          Sub printPagesFit(<[In]()> from As Integer, <[In]()> [to] As Integer, <[In]()> shrinkToFit As Boolean)
  
          <DispId(23)>
          Sub printAll()
  
          <DispId(24)>
          Sub printAllFit(<[In]()> shrinkToFit As Boolean)
  
          <DispId(25)>
          Sub setShowScrollbars(<[In]()> [On] As Boolean)
  
          <DispId(26)>
          Function GetVersions() As <MarshalAs(UnmanagedType.Struct)>
          Object
  
          <DispId(27)>
          Sub setCurrentHightlight(<[In]()> a As Integer, <[In]()> b As Integer, <[In]()> c As Integer, <[In]()> d As Integer)
  
          <DispId(28)>
          Sub setCurrentHighlight(<[In]()> a As Integer, <[In]()> b As Integer, <[In]()> c As Integer, <[In]()> d As Integer)
  
          <DispId(29)>
          Sub postMessage(<MarshalAs(UnmanagedType.Struct)> <[In]()> strArray As Object)
  
          <DispId(31)>
          Sub execCommand(<MarshalAs(UnmanagedType.Struct)> <[In]()> strArray As Object)
      End Interface
  
      Private hWndContainer As IntPtr = IntPtr.Zero
      Friend WithEvents Button1 As Button
  
      Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
          If (AtlAxWinInit()) Then
              hWndContainer = CreateWindowEx(0, "AtlAxWin", "AcroPDF.PDF.1", WS_VISIBLE Or WS_CHILD Or WS_BORDER, 10, 10, 600, 400, Handle, CType(10, IntPtr), CType(GetWindowLong(Me.Handle, GWL_HINSTANCE), IntPtr), IntPtr.Zero)
          End If
          Me.Button1 = New System.Windows.Forms.Button()
          Me.Button1.Location = New System.Drawing.Point(264, 430)
          Me.Button1.Name = "Button1"
          Me.Button1.Size = New System.Drawing.Size(75, 23)
          Me.Button1.Text = "Load PDF"
          Me.Button1.UseVisualStyleBackColor = True
          Me.Controls.Add(Me.Button1)
          Me.ClientSize = New System.Drawing.Size(620, 475)
          CenterToScreen()
      End Sub
  
      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
          Dim sPDFFile As String = "E:\Sources\AcroPDF\Welcome.xyz"
          Dim pUnknown As Object = Nothing
          Dim nRet As Integer = AtlAxGetControl(hWndContainer, pUnknown)
          If (nRet = 0) Then
              Dim pAcroAXDocShim As IAcroAXDocShim = Nothing
              pAcroAXDocShim = CType(pUnknown, IAcroAXDocShim)
              Dim sSrc As String
              Dim bRet As Boolean = False
              bRet = pAcroAXDocShim.LoadFile(sPDFFile)
              sSrc = pAcroAXDocShim.src
              pAcroAXDocShim.setShowToolbar(True)
              Marshal.ReleaseComObject(pAcroAXDocShim)
          End If
      End Sub
  End Class

  
  

  • 回答としてマーク witcher7 2020年6月14日 20:38

  2020年6月11日 20:15
• 

  

  0

  サインインして投票

  Yes, it works with "Adobe Acrobat 7.0 Browser Control Type Library 1.0" , but there is one problem...

  I tried to turn off all things, like toolbar, scrollbar and bookmarks. But the floating toolbar with printing next page and so on, is still there.

  AxAcroPDF1.setShowToolbar(False)
          AxAcroPDF1.setShowScrollbars(False)
          AxAcroPDF1.setPageMode("none")
          AxAcroPDF1.LoadFile(Application.StartupPath & "\" & "data.zyx")

  Thats why I am asking to find a free simple PDF-viewer without help from adobe.

  2020年6月12日 21:57
• 

  

  0

  サインインして投票

  If you just want to display PDF pages, you can extract them and convert them to bitmaps with

  PdfPage.RenderToStreamAsync

  (

      Add reference to : C\Program Files (x86)\Windows Kits\10\UnionMetadata\Windows.winmd
      Add reference to : C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETCore\v4.5\System.Runtime.WindowsRuntime.dll

  )

  2020年6月13日 9:18
• 

  

  0

  サインインして投票

  You mean you want a solution to open a PDF file without that people see that it is an Adobe property?

  Create simple a program that creates document files with the same features as the Adobe Portable format. 

  ---

  Success
  Cor

  2020年6月13日 12:17