SVG to IMG ohne externe Komponente

dive26 · 29. Oktober 2021, 11:05

Hallo Leute,

ich hatte letztes Jahr bei der Erstellung einer Windows APP die Herausforderung Vektrografiken im SVG Format in ein Grafikformat zu bringen oder am Bildschirm anzeigen zu lassen.
Gestern hatte sich mein Knoten gelöst und durch einen Tipp im Netz habe ich nun endlich eine Lösung gefunden für die keine externe Komponente erforderlich ist.

Man benötigt lediglich ein Webbrowser-Control WebBrowser_SVG und eine Picturebox PictureBox_SVG.
Grob erklärt wird die SVG-Datei im Webbrowser-Control angezeigt und dann dort über eine Art Handle (iViewObject) als Grafik abgegriffen und in die Picturebox kopiert.
Genauer wird dies in den Microsoft-Docs beschrieben: docs.microsoft.com/en-us/windo…idl/nn-oleidl-iviewobject

Die Grafik in der Picturebox kann man dann beliebig weiterbearbeiten (z.B. speichern).
Bzw. könnte man die Picturebox auch ganz weglassen und bereits mit der erzeugten Bitmap bmp weiterarbeiten

Das Webbrowser-Control muss immer in die Größe der gewünschten Zielgrafik gebracht werden. Das sieht in einer Form nicht schön aus.
Man kann das Webbrowser-Control aber auch außerhalb der sichtbaren Form darstellen - der Grafikinhalt wird dennoch ausgelesen.

Hier mein Code einer Windows-Forms-Anwendung

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class FRM_Mainform
<ComImport()>
<Guid("0000010d-0000-0000-C000-000000000046")>
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
Public Interface IViewObject
<PreserveSig>
Function Draw(dwDrawAspect As UInteger, lindex As Integer, pvAspect As IntPtr, ptd As IntPtr, hdcTargetDev As IntPtr, hdcDraw As IntPtr, lprcBounds As Rectangle, lprcWBounds As IntPtr, pfnContinue As IntPtr, dwContinue As Integer) As Integer
End Interface
Private Sub FRM_Mainform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
WebBrowser_SVG.Width = 1000 'gewünschte Pixelbreite der zu erzeugenden Grafik
WebBrowser_SVG.Height = 2000 'gewünschte Pixelhöhe der zu erzeugenden Grafik
WebBrowser_SVG.ScrollBarsEnabled = False
WebBrowser_SVG.Url = New Uri(String.Format("c:\Testgrafik.svg"))
End Sub
Private Sub WebBrowserSVG_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser_SVG.DocumentCompleted
Dim nWidth = WebBrowser_SVG.Width
Dim nHeight = WebBrowser_SVG.Height
Dim bmp = New Bitmap(nWidth, nHeight)
Dim gr As Graphics = Graphics.FromImage(bmp)
Dim hDC = gr.GetHdc()
Dim rc = New Rectangle(0, 0, nWidth, nHeight)
Dim viewObject = CType(WebBrowser_SVG.Document.DomDocument, IViewObject)
viewObject.Draw(CUInt(DVASPECT.DVASPECT_CONTENT), -1, CType(0, IntPtr), CType(0, IntPtr), CType(0, IntPtr), hDC, rc, CType(0, IntPtr), CType(0, IntPtr), 0)
gr.ReleaseHdc(hDC)
'Optional die Bitmap in eine PictureBox kopieren oder direkt weiterverarbeiten
PictureBox_SVG.Image = bmp
PictureBox_SVG.Image.Save("c:/SVGAlsGrafik.jpg")
End Sub
End Class

Hier eine SVG Grafik und das daraus erstelle JPG Image.
Die SVG Grafik enthält neben Vektroinformationen zusätzlich auch eine BMP-Background-Image.

AKP · 29. Oktober 2021, 15:18

Das scheint soweit ganz gut zu klappen.
Wie siehts denn aus wenn ich z.B. dies hier:
bnj.blob.core.windows.net/asse…es/Theme/rfj/logo-rfj.svg
in einer Picturebox mit 75 x 75 Pixel haben will? Das Webbrowsersteuerelement würde hier Scrollbars anzeigen.

-Franky- · 29. Oktober 2021, 15:48

Hi

SVG-Bilder kann man auch per Direct2D über das Interface ID2D1DeviceContext5::CreateSvgDocument von einem IStream (von einer SVG-Datei zB.) laden und per ID2D1DeviceContext5::DrawSvgDocument in einen RenderTarget, zb von einm IWICBitmap, von einem DC oder HWND, zeichnen. Das IWICBitmap könnte man dann zb als JPG, PNG (bzw alle von WIC unterstützte Bildformate die gespeichert werden können) gespeichert werden. Alternativ kann man auch vom IWICBitmap sich die Pixeldaten holen (ähnlich LockBits/UnlockBits) und diese in ein GDI+-Bitmap übertragen. Erspart einem das WebBrowser-Control auf der Form.

dive26 · 29. Oktober 2021, 18:41

AKP schrieb:

Das scheint soweit ganz gut zu klappen.
Wie siehts denn aus wenn ich z.B. dies hier:
bnj.blob.core.windows.net/asse…es/Theme/rfj/logo-rfj.svg
in einer Picturebox mit 75 x 75 Pixel haben will? Das Webbrowsersteuerelement würde hier Scrollbars anzeigen.

Dann einfach vorher im. Webbrowser Control die Scrollnars disabeln

AKP · 29. Oktober 2021, 19:24

Naja. Ich kenne mich mit SVG nicht so richtig aus. Aber bei diesem wird eben nur ein Teil angezeigt. Kann es da eine Mindestgrösse geben? An deinem Code liegt es jedenfalls nicht.

-Franky- · 30. Oktober 2021, 09:29

Hi

Hier mal ein einfaches Sample das zeigt, wie man grundsätzlich ein SVG per Direct2D lädt, das auf ein hWnd gerendert wird. Ja, ist viel Code, ich weis.

Spoiler anzeigen

Quellcode

Option Strict On
Option Explicit On
Imports System.IO
Imports System.Runtime.InteropServices
Module modSVG
#Region "Const"
Private Const S_OK As Integer = 0
Private Const D3D_FEATURE_LEVEL_9_1 As Integer = 37120
Private Const D3D_FEATURE_LEVEL_10_0 As Integer = 40960
Private Const IID_ID2D1Factory As String = "06152247-6f50-465a-9245-118bfd3b6007"
Private Const IID_ID2D1DeviceContext5 As String = "7836d248-68cc-4df6-b9e8-de991bf62eb7"
#End Region
#Region "Enums"
Private Enum VTable_Interfaces As Integer
'----==== ID2D1Factory ====----
CreateHwndRenderTarget = 14
'----==== ID2D1RenderTarget ====----
Clear = 47
BeginDraw = 48
EndDraw = 49
'----==== ID2D1HwndRenderTarget ====----
Resize = 58
'----==== ID2D1DeviceContext5 ====----
CreateSvgDocument = 115
DrawSvgDocument = 116
End Enum
Private Enum STGM As Integer
STGM_FAILIFTHERE = &H0
STGM_DIRECT = &H0
STGM_READ = &H0
STGM_WRITE = &H1
STGM_READWRITE = &H2
STGM_SHARE_EXCLUSIVE = &H10
STGM_SHARE_DENY_WRITE = &H20
STGM_SHARE_DENY_READ = &H30
STGM_SHARE_DENY_NONE = &H40
STGM_CREATE = &H1000
STGM_TRANSACTED = &H10000
STGM_CONVERT = &H20000
STGM_PRIORITY = &H40000
STGM_NOSCRATCH = &H100000
STGM_NOSNAPSHOT = &H200000
STGM_DIRECT_SWMR = &H400000
STGM_SIMPLE = &H8000000
STGM_DELETEONRELEASE = &H4000000
End Enum
Private Enum D2D1_FACTORY_TYPE As Integer
D2D1_FACTORY_TYPE_SINGLE_THREADED = 0
D2D1_FACTORY_TYPE_MULTI_THREADED = 1
End Enum
Private Enum D2D1_DEBUG_LEVEL As Integer
D2D1_DEBUG_LEVEL_NONE = 0
D2D1_DEBUG_LEVEL_ERROR = 1
D2D1_DEBUG_LEVEL_WARNING = 2
D2D1_DEBUG_LEVEL_INFORMATION = 3
End Enum
Private Enum D2D1_RENDER_TARGET_TYPE As Integer
D2D1_RENDER_TARGET_TYPE_DEFAULT = 0
D2D1_RENDER_TARGET_TYPE_SOFTWARE = 1
D2D1_RENDER_TARGET_TYPE_HARDWARE = 2
End Enum
Private Enum D2D1_RENDER_TARGET_USAGE As Integer
D2D1_RENDER_TARGET_USAGE_NONE = 0
D2D1_RENDER_TARGET_USAGE_FORCE_BITMAP_REMOTING = 1
D2D1_RENDER_TARGET_USAGE_GDI_COMPATIBLE = 2
End Enum
Private Enum D2D1_FEATURE_LEVEL As Integer
D2D1_FEATURE_LEVEL_DEFAULT = 0
D2D1_FEATURE_LEVEL_9 = D3D_FEATURE_LEVEL_9_1
D2D1_FEATURE_LEVEL_10 = D3D_FEATURE_LEVEL_10_0
End Enum
Private Enum D2D1_ALPHA_MODE As Integer
D2D1_ALPHA_MODE_UNKNOWN = 0
D2D1_ALPHA_MODE_PREMULTIPLIED = 1
D2D1_ALPHA_MODE_STRAIGHT = 2
D2D1_ALPHA_MODE_IGNORE = 3
End Enum
Private Enum D2D1_PRESENT_OPTIONS As Integer
D2D1_PRESENT_OPTIONS_NONE = 0
D2D1_PRESENT_OPTIONS_RETAIN_CONTENTS = 1
D2D1_PRESENT_OPTIONS_IMMEDIATELY = 2
End Enum
Private Enum D2D1_SVG_ATTRIBUTE_STRING_TYPE As Integer
D2D1_SVG_ATTRIBUTE_STRING_TYPE_SVG = 0
D2D1_SVG_ATTRIBUTE_STRING_TYPE_ID = 1
End Enum
Private Enum D2D1_SVG_ATTRIBUTE_POD_TYPE As Integer
D2D1_SVG_ATTRIBUTE_POD_TYPE_FLOAT = 0
D2D1_SVG_ATTRIBUTE_POD_TYPE_COLOR = 1
D2D1_SVG_ATTRIBUTE_POD_TYPE_FILL_MODE = 2
D2D1_SVG_ATTRIBUTE_POD_TYPE_DISPLAY = 3
D2D1_SVG_ATTRIBUTE_POD_TYPE_OVERFLOW = 4
D2D1_SVG_ATTRIBUTE_POD_TYPE_LINE_CAP = 5
D2D1_SVG_ATTRIBUTE_POD_TYPE_LINE_JOIN = 6
D2D1_SVG_ATTRIBUTE_POD_TYPE_VISIBILITY = 7
D2D1_SVG_ATTRIBUTE_POD_TYPE_MATRIX = 8
D2D1_SVG_ATTRIBUTE_POD_TYPE_UNIT_TYPE = 9
D2D1_SVG_ATTRIBUTE_POD_TYPE_EXTEND_MODE = 10
D2D1_SVG_ATTRIBUTE_POD_TYPE_PRESERVE_ASPECT_RATIO = 11
D2D1_SVG_ATTRIBUTE_POD_TYPE_VIEWBOX = 12
D2D1_SVG_ATTRIBUTE_POD_TYPE_LENGTH = 13
End Enum
Private Enum DXGI_FORMAT As Integer
DXGI_FORMAT_UNKNOWN = 0
DXGI_FORMAT_R32G32B32A32_TYPELESS = 1
DXGI_FORMAT_R32G32B32A32_FLOAT = 2
DXGI_FORMAT_R32G32B32A32_UINT = 3
DXGI_FORMAT_R32G32B32A32_SINT = 4
DXGI_FORMAT_R32G32B32_TYPELESS = 5
DXGI_FORMAT_R32G32B32_FLOAT = 6
DXGI_FORMAT_R32G32B32_UINT = 7
DXGI_FORMAT_R32G32B32_SINT = 8
DXGI_FORMAT_R16G16B16A16_TYPELESS = 9
DXGI_FORMAT_R16G16B16A16_FLOAT = 10
DXGI_FORMAT_R16G16B16A16_UNORM = 11
DXGI_FORMAT_R16G16B16A16_UINT = 12
DXGI_FORMAT_R16G16B16A16_SNORM = 13
DXGI_FORMAT_R16G16B16A16_SINT = 14
DXGI_FORMAT_R32G32_TYPELESS = 15
DXGI_FORMAT_R32G32_FLOAT = 16
DXGI_FORMAT_R32G32_UINT = 17
DXGI_FORMAT_R32G32_SINT = 18
DXGI_FORMAT_R32G8X24_TYPELESS = 19
DXGI_FORMAT_D32_FLOAT_S8X24_UINT = 20
DXGI_FORMAT_R32_FLOAT_X8X24_TYPELESS = 21
DXGI_FORMAT_X32_TYPELESS_G8X24_UINT = 22
DXGI_FORMAT_R10G10B10A2_TYPELESS = 23
DXGI_FORMAT_R10G10B10A2_UNORM = 24
DXGI_FORMAT_R10G10B10A2_UINT = 25
DXGI_FORMAT_R11G11B10_FLOAT = 26
DXGI_FORMAT_R8G8B8A8_TYPELESS = 27
DXGI_FORMAT_R8G8B8A8_UNORM = 28
DXGI_FORMAT_R8G8B8A8_UNORM_SRGB = 29
DXGI_FORMAT_R8G8B8A8_UINT = 30
DXGI_FORMAT_R8G8B8A8_SNORM = 31
DXGI_FORMAT_R8G8B8A8_SINT = 32
DXGI_FORMAT_R16G16_TYPELESS = 33
DXGI_FORMAT_R16G16_FLOAT = 34
DXGI_FORMAT_R16G16_UNORM = 35
DXGI_FORMAT_R16G16_UINT = 36
DXGI_FORMAT_R16G16_SNORM = 37
DXGI_FORMAT_R16G16_SINT = 38
DXGI_FORMAT_R32_TYPELESS = 39
DXGI_FORMAT_D32_FLOAT = 40
DXGI_FORMAT_R32_FLOAT = 41
DXGI_FORMAT_R32_UINT = 42
DXGI_FORMAT_R32_SINT = 43
DXGI_FORMAT_R24G8_TYPELESS = 44
DXGI_FORMAT_D24_UNORM_S8_UINT = 45
DXGI_FORMAT_R24_UNORM_X8_TYPELESS = 46
DXGI_FORMAT_X24_TYPELESS_G8_UINT = 47
DXGI_FORMAT_R8G8_TYPELESS = 48
DXGI_FORMAT_R8G8_UNORM = 49
DXGI_FORMAT_R8G8_UINT = 50
DXGI_FORMAT_R8G8_SNORM = 51
DXGI_FORMAT_R8G8_SINT = 52
DXGI_FORMAT_R16_TYPELESS = 53
DXGI_FORMAT_R16_FLOAT = 54
DXGI_FORMAT_D16_UNORM = 55
DXGI_FORMAT_R16_UNORM = 56
DXGI_FORMAT_R16_UINT = 57
DXGI_FORMAT_R16_SNORM = 58
DXGI_FORMAT_R16_SINT = 59
DXGI_FORMAT_R8_TYPELESS = 60
DXGI_FORMAT_R8_UNORM = 61
DXGI_FORMAT_R8_UINT = 62
DXGI_FORMAT_R8_SNORM = 63
DXGI_FORMAT_R8_SINT = 64
DXGI_FORMAT_A8_UNORM = 65
DXGI_FORMAT_R1_UNORM = 66
DXGI_FORMAT_R9G9B9E5_SHAREDEXP = 67
DXGI_FORMAT_R8G8_B8G8_UNORM = 68
DXGI_FORMAT_G8R8_G8B8_UNORM = 69
DXGI_FORMAT_BC1_TYPELESS = 70
DXGI_FORMAT_BC1_UNORM = 71
DXGI_FORMAT_BC1_UNORM_SRGB = 72
DXGI_FORMAT_BC2_TYPELESS = 73
DXGI_FORMAT_BC2_UNORM = 74
DXGI_FORMAT_BC2_UNORM_SRGB = 75
DXGI_FORMAT_BC3_TYPELESS = 76
DXGI_FORMAT_BC3_UNORM = 77
DXGI_FORMAT_BC3_UNORM_SRGB = 78
DXGI_FORMAT_BC4_TYPELESS = 79
DXGI_FORMAT_BC4_UNORM = 80
DXGI_FORMAT_BC4_SNORM = 81
DXGI_FORMAT_BC5_TYPELESS = 82
DXGI_FORMAT_BC5_UNORM = 83
DXGI_FORMAT_BC5_SNORM = 84
DXGI_FORMAT_B5G6R5_UNORM = 85
DXGI_FORMAT_B5G5R5A1_UNORM = 86
DXGI_FORMAT_B8G8R8A8_UNORM = 87
DXGI_FORMAT_B8G8R8X8_UNORM = 88
DXGI_FORMAT_R10G10B10_XR_BIAS_A2_UNORM = 89
DXGI_FORMAT_B8G8R8A8_TYPELESS = 90
DXGI_FORMAT_B8G8R8A8_UNORM_SRGB = 91
DXGI_FORMAT_B8G8R8X8_TYPELESS = 92
DXGI_FORMAT_B8G8R8X8_UNORM_SRGB = 93
DXGI_FORMAT_BC6H_TYPELESS = 94
DXGI_FORMAT_BC6H_UF16 = 95
DXGI_FORMAT_BC6H_SF16 = 96
DXGI_FORMAT_BC7_TYPELESS = 97
DXGI_FORMAT_BC7_UNORM = 98
DXGI_FORMAT_BC7_UNORM_SRGB = 99
DXGI_FORMAT_AYUV = 100
DXGI_FORMAT_Y410 = 101
DXGI_FORMAT_Y416 = 102
DXGI_FORMAT_NV12 = 103
DXGI_FORMAT_P010 = 104
DXGI_FORMAT_P016 = 105
DXGI_FORMAT_420_OPAQUE = 106
DXGI_FORMAT_YUY2 = 107
DXGI_FORMAT_Y210 = 108
DXGI_FORMAT_Y216 = 109
DXGI_FORMAT_NV11 = 110
DXGI_FORMAT_AI44 = 111
DXGI_FORMAT_IA44 = 112
DXGI_FORMAT_P8 = 113
DXGI_FORMAT_A8P8 = 114
DXGI_FORMAT_B4G4R4A4_UNORM = 115
DXGI_FORMAT_P208 = 130
DXGI_FORMAT_V208 = 131
DXGI_FORMAT_V408 = 132
End Enum
#End Region
#Region "Structures"
Private Structure D2D1_FACTORY_OPTIONS
Dim debugLevel As D2D1_DEBUG_LEVEL
Sub New(Optional eDebugLevel As D2D1_DEBUG_LEVEL = D2D1_DEBUG_LEVEL.D2D1_DEBUG_LEVEL_NONE)
debugLevel = eDebugLevel
End Sub
End Structure
Private Structure D2D1_PIXEL_FORMAT
Dim dFormat As DXGI_FORMAT
Dim AlphaMode As D2D1_ALPHA_MODE
Sub New(eAlphaMode As D2D1_ALPHA_MODE, eDXGIFormat As DXGI_FORMAT)
AlphaMode = eAlphaMode
dFormat = eDXGIFormat
End Sub
End Structure
Private Structure D2D1_RENDER_TARGET_PROPERTIES
Dim etype As D2D1_RENDER_TARGET_TYPE
Dim PixelFormat As D2D1_PIXEL_FORMAT
Dim DpiX As Single
Dim DpiY As Single
Dim Usage As D2D1_RENDER_TARGET_USAGE
Dim minLevel As D2D1_FEATURE_LEVEL
Sub New(tPixelFormat As D2D1_PIXEL_FORMAT)
PixelFormat = tPixelFormat
End Sub
End Structure
Private Structure D2D1_HWND_RENDER_TARGET_PROPERTIES
Dim hwnd As IntPtr
Dim pixelSize As D2D1_SIZE_U
Dim presentOptions As D2D1_PRESENT_OPTIONS
Sub New(pHwnd As IntPtr)
hwnd = pHwnd
End Sub
End Structure
Private Structure D2D1_SIZE_F
Dim Width As Single
Dim Height As Single
Sub New(sngWidth As Single,
sngHeight As Single)
Width = sngWidth
Height = sngHeight
End Sub
End Structure
Public Structure D2D1_SIZE_U
Dim Width As Integer
Dim Height As Integer
Sub New(intWidth As Integer,
intHeight As Integer)
Width = intWidth
Height = intHeight
End Sub
End Structure
Private Structure D2D1_COLOR_F
Dim r As Single
Dim g As Single
Dim b As Single
Dim a As Single
Sub New(Optional sngA As Single = 1,
Optional sngR As Single = 0,
Optional sngG As Single = 0,
Optional sngB As Single = 0)
r = sngR
g = sngG
b = sngB
a = sngA
End Sub
End Structure
Private Structure D2D1_TAG
Dim value As ULong
End Structure
#End Region
#Region "APIs"
<DllImport("shlwapi.dll", EntryPoint:="SHCreateStreamOnFileW")>
<PreserveSig> Private Function SHCreateStreamOnFile(<[In]> <MarshalAs(UnmanagedType.LPWStr)> pszFile As String,
<[In]> grfMode As STGM,
<Out> ByRef ppIStm As IntPtr) As Integer
End Function
<DllImport("D2d1.dll", EntryPoint:="D2D1CreateFactory")>
<PreserveSig> Private Function D2D1CreateFactory(<[In]> factoryType As D2D1_FACTORY_TYPE,
<[In]> ByRef riid As Guid,
<[In]> ByRef pFactoryOptions As D2D1_FACTORY_OPTIONS,
<Out> ByRef ppIFactory As IntPtr) As Integer
End Function
#End Region
#Region "Delegates"
'----==== ID2D1Factory ====----
Private Delegate Function ID2D1Factory_CreateHwndRenderTarget(<[In]> this As IntPtr,
<[In]> ByRef renderTargetProperties As D2D1_RENDER_TARGET_PROPERTIES,
<[In]> ByRef hwndRenderTargetProperties As D2D1_HWND_RENDER_TARGET_PROPERTIES,
<Out> ByRef ppID2D1HwndRenderTarget As IntPtr) As Integer
'----==== ID2D1RenderTarget ====----
Private Delegate Sub ID2D1RenderTarget_Clear(<[In]> this As IntPtr,
<[In]> ByRef color As D2D1_COLOR_F)
Private Delegate Sub ID2D1RenderTarget_BeginDraw(<[In]> this As IntPtr)
Private Delegate Function ID2D1RenderTarget_EndDraw(<[In]> this As IntPtr,
<Out> ByRef tag1 As D2D1_TAG,
<Out> ByRef tag2 As D2D1_TAG) As Integer
'----==== ID2D1HwndRenderTarget ====----
Private Delegate Function ID2D1HwndRenderTarget_Resize(<[In]> this As IntPtr,
<[In]> ByRef pixelSize As D2D1_SIZE_U) As Integer
'----==== ID2D1DeviceContext5 ====----
Private Delegate Function ID2D1DeviceContext5_CreateSvgDocument(<[In]> this As IntPtr,
<[In]> inputXmlStream As IntPtr,
<[In]> viewportSize As D2D1_SIZE_F,
<Out> ByRef svgDocument As IntPtr) As Integer
Private Delegate Sub ID2D1DeviceContext5_DrawSvgDocument(<[In]> this As IntPtr,
<[In]> svgDocument As IntPtr)
#End Region
#Region "Public Functions"
Public Function LoadSVG(strSvgPath As String, oControl As Control) As Boolean
Dim bolRet As Boolean = False
Dim pIStream As IntPtr = IntPtr.Zero
Dim pID2D1Factory As IntPtr = IntPtr.Zero
Dim pID2D1RenderTarget As IntPtr = IntPtr.Zero
Dim pID2D1DeviceContext5 As IntPtr = IntPtr.Zero
Dim pID2D1SvgDocument As IntPtr = IntPtr.Zero
' existiert die Datei?
If File.Exists(strSvgPath) Then
' Direct2D initialisieren
If D2D1CreateFactory(D2D1_FACTORY_TYPE.D2D1_FACTORY_TYPE_SINGLE_THREADED, New Guid(IID_ID2D1Factory),
New D2D1_FACTORY_OPTIONS(D2D1_DEBUG_LEVEL.D2D1_DEBUG_LEVEL_NONE),
pID2D1Factory) = S_OK Then
' ein ID2D1HwndRenderTarget (ID2D1RenderTarget) erstellen <- Control.Handle
If D2D1Factory_CreateHwndRenderTarget(pID2D1Factory,
New D2D1_RENDER_TARGET_PROPERTIES(
New D2D1_PIXEL_FORMAT(D2D1_ALPHA_MODE.D2D1_ALPHA_MODE_PREMULTIPLIED,
DXGI_FORMAT.DXGI_FORMAT_B8G8R8A8_UNORM)),
New D2D1_HWND_RENDER_TARGET_PROPERTIES(oControl.Handle),
pID2D1RenderTarget) Then
' ein ID2D1DeviceContext5 vom ID2D1HwndRenderTarget erstellen
If Marshal.QueryInterface(pID2D1RenderTarget, New Guid(IID_ID2D1DeviceContext5), pID2D1DeviceContext5) = S_OK Then
' SVG in einen IStream laden
If SHCreateStreamOnFile(strSvgPath, STGM.STGM_READ Or STGM.STGM_SHARE_DENY_WRITE, pIStream) = S_OK Then
' vom IStream ein ID2D1SvgDocument erstellen
If D2D1DeviceContext5_CreateSvgDocument(pID2D1DeviceContext5, pIStream, New D2D1_SIZE_F(1, 1), pID2D1SvgDocument) Then
' mit dem ID2D1SvgDocument hätte man Zugriff auf die komplette SVG
' und könnte diese darüber manipulieren / verändern / bearbeiten usw.
' Größe des ID2D1HwndRenderTarget festlegen
If D2D1HwndRenderTarget_Resize(pID2D1RenderTarget, New D2D1_SIZE_U(oControl.Width, oControl.Height)) Then
' mit dem zeichnen in den ID2D1HwndRenderTarget beginnen
D2D1RenderTarget_BeginDraw(pID2D1RenderTarget)
' Hintergrundfarbe für den ID2D1HwndRenderTarget festlegen
D2D1RenderTarget_Clear(pID2D1RenderTarget, New D2D1_COLOR_F(Convert.ToSingle(oControl.BackColor.A / 255),
Convert.ToSingle(oControl.BackColor.R / 255),
Convert.ToSingle(oControl.BackColor.G / 255),
Convert.ToSingle(oControl.BackColor.B / 255)))
' zeichnet das ID2D1SvgDocument in den ID2D1DeviceContext5 (ID2D1HwndRenderTarget)
D2D1DeviceContext5_DrawSvgDocument(pID2D1DeviceContext5, pID2D1SvgDocument)
' zeichnen in das ID2D1HwndRenderTarget beenden
bolRet = D2D1RenderTarget_EndDraw(pID2D1RenderTarget)
End If
Release(pID2D1SvgDocument)
End If
Release(pIStream)
End If
Release(pID2D1DeviceContext5)
End If
Release(pID2D1RenderTarget)
End If
Release(pID2D1Factory)
End If
End If
Return bolRet
End Function
#End Region
#Region "Private Functions"
'----==== ID2D1Factory Functions ====----
Private Function D2D1Factory_CreateHwndRenderTarget(pID2D1Factory As IntPtr,
renderTargetProperties As D2D1_RENDER_TARGET_PROPERTIES,
hwndRenderTargetProperties As D2D1_HWND_RENDER_TARGET_PROPERTIES,
ByRef pID2D1HwndRenderTarget As IntPtr) As Boolean
Dim bolRet As Boolean = False
Dim pVTablePtr As IntPtr = IntPtr.Zero
If pID2D1Factory <> IntPtr.Zero AndAlso GetVTablePtr(pID2D1Factory, VTable_Interfaces.CreateHwndRenderTarget, pVTablePtr) Then
Dim Method As ID2D1Factory_CreateHwndRenderTarget = DirectCast(Marshal.GetDelegateForFunctionPointer(pVTablePtr,
GetType(ID2D1Factory_CreateHwndRenderTarget)),
ID2D1Factory_CreateHwndRenderTarget)
If Method.Invoke(pID2D1Factory, renderTargetProperties, hwndRenderTargetProperties, pID2D1HwndRenderTarget) = S_OK Then
bolRet = True
End If
End If
Return bolRet
End Function
'----==== ID2D1RenderTarget Functions ====----
Private Sub D2D1RenderTarget_Clear(pID2D1RenderTarget As IntPtr,
Optional color As D2D1_COLOR_F? = Nothing)
Dim tColor As D2D1_COLOR_F = If(color.HasValue, CType(color, D2D1_COLOR_F), New D2D1_COLOR_F(1, 0, 0, 0))
Dim pVTablePtr As IntPtr = IntPtr.Zero
If pID2D1RenderTarget <> IntPtr.Zero AndAlso GetVTablePtr(pID2D1RenderTarget, VTable_Interfaces.Clear, pVTablePtr) Then
Dim Method As ID2D1RenderTarget_Clear = DirectCast(Marshal.GetDelegateForFunctionPointer(pVTablePtr,
GetType(ID2D1RenderTarget_Clear)),
ID2D1RenderTarget_Clear)
Method.Invoke(pID2D1RenderTarget, tColor)
End If
End Sub
Private Sub D2D1RenderTarget_BeginDraw(pID2D1RenderTarget As IntPtr)
Dim pVTablePtr As IntPtr = IntPtr.Zero
If pID2D1RenderTarget <> IntPtr.Zero AndAlso GetVTablePtr(pID2D1RenderTarget, VTable_Interfaces.BeginDraw, pVTablePtr) Then
Dim Method As ID2D1RenderTarget_BeginDraw = DirectCast(Marshal.GetDelegateForFunctionPointer(pVTablePtr,
GetType(ID2D1RenderTarget_BeginDraw)),
ID2D1RenderTarget_BeginDraw)
Method.Invoke(pID2D1RenderTarget)
End If
End Sub
Private Function D2D1RenderTarget_EndDraw(pID2D1RenderTarget As IntPtr,
Optional ByRef tag1 As D2D1_TAG = Nothing,
Optional ByRef tag2 As D2D1_TAG = Nothing) As Boolean
Dim bolRet As Boolean = False
Dim pVTablePtr As IntPtr = IntPtr.Zero
If pID2D1RenderTarget <> IntPtr.Zero AndAlso GetVTablePtr(pID2D1RenderTarget, VTable_Interfaces.EndDraw, pVTablePtr) Then
Dim Method As ID2D1RenderTarget_EndDraw = DirectCast(Marshal.GetDelegateForFunctionPointer(pVTablePtr,
GetType(ID2D1RenderTarget_EndDraw)),
ID2D1RenderTarget_EndDraw)
If Method.Invoke(pID2D1RenderTarget, tag1, tag2) = S_OK Then bolRet = True
End If
Return bolRet
End Function
'----==== ID2D1HwndRenderTarget Functions ====----
Public Function D2D1HwndRenderTarget_Resize(pID2D1HwndRenderTarget As IntPtr,
pixelSize As D2D1_SIZE_U) As Boolean
Dim bolRet As Boolean = False
Dim pVTablePtr As IntPtr = IntPtr.Zero
If pID2D1HwndRenderTarget <> IntPtr.Zero AndAlso GetVTablePtr(pID2D1HwndRenderTarget, VTable_Interfaces.Resize, pVTablePtr) Then
Dim Method As ID2D1HwndRenderTarget_Resize = DirectCast(Marshal.GetDelegateForFunctionPointer(pVTablePtr,
GetType(ID2D1HwndRenderTarget_Resize)),
ID2D1HwndRenderTarget_Resize)
If Method.Invoke(pID2D1HwndRenderTarget, pixelSize) = S_OK Then bolRet = True
End If
Return bolRet
End Function
'----==== ID2D1DeviceContext5 Functions ====----
Private Function D2D1DeviceContext5_CreateSvgDocument(pID2D1DeviceContext5 As IntPtr,
inputXmlStream As IntPtr,
viewportSize As D2D1_SIZE_F,
ByRef pID2D1SvgDocument As IntPtr) As Boolean
Dim bolRet As Boolean = False
Dim pVTablePtr As IntPtr = IntPtr.Zero
If pID2D1DeviceContext5 <> IntPtr.Zero AndAlso GetVTablePtr(pID2D1DeviceContext5, VTable_Interfaces.CreateSvgDocument, pVTablePtr) Then
Dim Method As ID2D1DeviceContext5_CreateSvgDocument = DirectCast(Marshal.GetDelegateForFunctionPointer(pVTablePtr,
GetType(ID2D1DeviceContext5_CreateSvgDocument)),
ID2D1DeviceContext5_CreateSvgDocument)
If Method.Invoke(pID2D1DeviceContext5, inputXmlStream, viewportSize, pID2D1SvgDocument) = S_OK Then bolRet = True
End If
Return bolRet
End Function
Private Sub D2D1DeviceContext5_DrawSvgDocument(pID2D1DeviceContext5 As IntPtr,
pID2D1SvgDocument As IntPtr)
Dim pVTablePtr As IntPtr = IntPtr.Zero
If pID2D1DeviceContext5 <> IntPtr.Zero AndAlso GetVTablePtr(pID2D1DeviceContext5, VTable_Interfaces.DrawSvgDocument, pVTablePtr) Then
Dim Method As ID2D1DeviceContext5_DrawSvgDocument = DirectCast(Marshal.GetDelegateForFunctionPointer(pVTablePtr,
GetType(ID2D1DeviceContext5_DrawSvgDocument)),
ID2D1DeviceContext5_DrawSvgDocument)
Method.Invoke(pID2D1DeviceContext5, pID2D1SvgDocument)
End If
End Sub
'----==== Release Interface ====----
Public Sub Release(ByRef pInterface As IntPtr)
If pInterface <> IntPtr.Zero Then
If Marshal.Release(pInterface) = 0 Then
pInterface = IntPtr.Zero
End If
End If
End Sub
'----==== Fetches the function pointer of the function from the vtable ====----
Private Function GetVTablePtr(pInterface As IntPtr,
intMethodNumber As Integer,
ByRef pVTablePtr As IntPtr) As Boolean
Dim bolRet As Boolean = False
If pInterface <> IntPtr.Zero AndAlso intMethodNumber >= 0 Then
Dim pVTablePtrs As IntPtr() = New IntPtr(0) {}
Marshal.Copy(IntPtr.Add(Marshal.ReadIntPtr(pInterface),
IntPtr.Size * intMethodNumber), pVTablePtrs, 0, 1)
pVTablePtr = pVTablePtrs(0)
bolRet = True
End If
Return bolRet
End Function
#End Region
End Module

@RodFromGermany Ich hänge hier mal zwei SVGs in einer ZIP mit dran.

Hi
Was ich vergessen hatte zu schreiben war, das das laden und rendern einer SVG per Direct2D erst ab dem Windows 10 Creators Update funktioniert und das gab es glaub 2017.

dive26 · 30. Oktober 2021, 10:12

AKP schrieb:

Naja. Ich kenne mich mit SVG nicht so richtig aus. Aber bei diesem wird eben nur ein Teil angezeigt. Kann es da eine Mindestgrösse geben? An deinem Code liegt es jedenfalls nicht.

Vielleicht hat das Webbrowser Control nicht die richtige Grösse und ist einfach zu klein.

RodFromGermany · 30. Oktober 2021, 10:59

@dive26 OK, angekommen, ich hatte die ZIP übersehen.
Beim Einladen in meine Bildverarbeitung sagt er mir:

"Es wurde keine passende Imagingkomponente zum Abschließen dieses Vorgangs gefunden."

Ich werde da mal gezielt "forschen".
Ist das SVG für Dich "göttlich gegeben" oder genügt irgend ein Vektor-Format?
In einem älteren Projekt hatte ich WMF- und später EMF-Vektor-Bilder.

@dive26 @-Franky- Danke für die Bilder, sie sind in in ihrer inneren Struktur alle etwas verschieden, das ist in diesem Sinne gut so.
Wenn ich sie im Norepad++ öffne, sehe ich XML-Dateien:

Mit einem XDocument geöffnet und dann durchiteriert sollte es möglich sein, einen einfachen SVG-Viewer zu schreiben.
Ich probiere mich mal daran.

AKP · 30. Oktober 2021, 15:18

Ich habe gesehen, dass mein erwähntes Bild eine feste Größe hat, warum auch immer. Wenn ich die Grössenangabe aus dem SVG lösche, klappt es.

-Franky- · 30. Oktober 2021, 18:15

Hi

Eine SVG ist ja ein ganz normales XML Dokument das über entsprechende Schnittstellen geparst und bearbeitet werden kann. Die Angaben im Root der SVG (x, y, width, height, viewBox <- falls vorhanden), kann man daher entsprechend per Code bearbeiten/hinzufügen/löschen. Per Direct2D wäre es über ID2D1SvgDocument::GetRoot-> ID2D1SvgElement und darüber lassen sich entsprechende Eigenschaften lesen und schreiben und das ganze per ID2D1SvgDocument::SetRoot zurück in die SVG schreiben bevor diese gerendert wird.

dive26 · 31. Oktober 2021, 10:10

@-Franky-

Vielen Dank für Deinen Code.
Das Zeichnen auf das Control klappt damit einwandfrei.
Nun möchte ich aber den dort gezeichneten Inhalt als Bitmap übergeben und/oder als Datei speichern.
Das klappt auch, aber nur, wenn das Control auch vollständig sichtbar ist.
Befindet sich das Control außerhalb des sichtbaren Bereiches, dann gehts nicht.
Gerade bei größeren SVG-Dateien (meine sind z.B. immer 1404*1872 Pixel) geht sich das sogar am Bildschirm nicht aus, auch wenn man möchte.

Hier meine beiden Versuche, beide ergeben das selbe Problem (bei verdecktem Kontrol).
Zur Info: ich habe die Funktion so umgeschrieben, dass Sie eine BMP Return bmals Ergebnis übergibt und gleichzeitig das Bild in strDestImgPaht speichert

VB.NET-Quellcode

'Ergibt leider nur den sichtbaren Teil eines Controls
'##################################################
Dim myBmp As New Bitmap(ocontrol.Width, ocontrol.Height)
Dim g As Graphics = Graphics.FromImage(myBmp)
Dim pOffset As New Point(ocontrol.Parent.Width - ocontrol.Parent.ClientRectangle.Width - 4, ocontrol.Parent.Height - ocontrol.Parent.ClientRectangle.Height - 4)
pOffset.X += ocontrol.Location.X + ocontrol.Parent.Location.X
pOffset.Y += ocontrol.Location.Y + ocontrol.Parent.Location.Y
g.CopyFromScreen(pOffset, Point.Empty, myBmp.Size)
Return myBmp
g.Dispose()
'Ergibt leider auch nur den sichtbaren Teil eines Controls
'############################################################
Using bm As New Bitmap(ocontrol.Width, ocontrol.Height, Imaging.PixelFormat.Format24bppRgb)
ocontrol.DrawToBitmap(bm, New Rectangle(0, 0, bm.Width, bm.Height))
bm.Save(strDestImgPaht)
Return bm
End Using

-Franky- · 31. Oktober 2021, 19:55

Hi @dive26

Um das zu machen, was Du möchtest, bedarf es noch ein wenig mehr. Dazu müsstest Du zusätzlich die Windows Imaging Component (WIC) APIs/Interfaces einsetzten. Du müsstest zusätzlich zu Direct2D, WIC initialisieren (ein IWICImagingFactory erstellen), dann per IWICImagingFactory::CreateBitmap ein IWICBitmap in entsprechender Größe Deiner SVG und Farbtiefe (32Bit/ARGB/BGRA/PARGB) erstellen. Per ID2D1Factory::CreateWicBitmapRenderTarget erstellst Du vom IWICBitmap ein ID2D1RenderTarget und von diesem ein ID2D1DeviceContext5 und zeichnest das ID2D1SvgDocument in den ID2D1DeviceContext5. Nach dem zeichnen (ID2D1RenderTarget::EndDraw) kannst Du entweder über IWICBitmap::Lock -> IWICBitmapLock -> IWICBitmapLock::GetDataPointer verwenden (Pointer auf die Pixeldaten), oder IWICBitmapSource (IWICBitmap)::CopyPixels um die Pixeldaten in ein ByteArray zu kopieren. Aus dem ByteArray/Pointer auf das ByteArray/Pixeldaten kann man dann ein GDI+ (.NET)-Bitmap erstellen.

Wenn es Dir erst einmal nur darum geht, ein SVG zB. als PNG/JPG oder oder zu speichern, dann brauchst Du noch nicht einmal ein Control (PictureBox zB.) dafür weil Breite und Höhe legst Du ja für das IWICBitmap fest. Man kann das IWICBitmap (das ja dann die reingezeichnete SVG enthält) direkt per WIC speichern. Also da kommt nochmal etwas Code dazu. Das schöne an WIC ist das es neben den WIC-Interfaces auch meist entsprechende APIs für diverse WIC-Interfaces und deren Funktionen gibt.

Dann besteht ja noch das Problem die Bildgröße der SVG auszulesen/festzulegen bzw. diese entsprechend zu skalieren. Wie bereits angedeutet kommst Du per ID2D1SvgDocument::GetRoot an den Root der SVG -> ID2D1SvgElement. Der Root (beginnt ja in der SVG-Datei mit <svg) enthält, falls vorhanden, die entsprechenden Attribute x, y, width, height und/oder viewBox die man über ID2D1SvgElement auslesen/ändern/löschen/anlegen kann. Wenn ich mich recht erinnere, ist schon ein paar Jahre her das ich mich mit SVGs beschäftigt habe, reicht das Attribut viewBox um die Größe der SVG festzulegen, in der die SVG gerendert werden soll. Kannst ja leicht selbst testen. Lösche, falls vorhanden die Attribute x, y, width und height aus dem Root einer SVG-Datei (es wird dann für x=0, y=0, width=100%, height=100% angenommen). Lege das Attribut viewBox="0 0 800 800" (Achtung! Attribute sind Case Sensitive) im Root an. Dann sollte die SVG 800x800 Pixel groß gerendert werden. Nach dem löschen/anlegen/ändern entsprechender Attribute, speichert man das veränderte ID2D1SvgElement per ID2D1SvgDocument::SetRoot wieder zurück. Danach kann das SVG in ein RenderTarget gezeichnet werden. Vllt hilft Dir ja auch das hier weiter in Bezug auf Größe und Skalieren: mediaevent.de/tutorial/svg-viewbox-koordinaten.html

dive26 · 31. Oktober 2021, 23:34

Oh, bin technisch schon im dritten Satz ausgestiegen .

SVG manuell erstellen hab ich kein Problem. Die SVG Datei oben hab ich manuell ja bereits aus Stifteingabedaten und einer Hintergrundvorlage bereits erstellt.

Da bleib ich dann beim Webbrowser Control.
Die 1000 Zeilen mehr an Code schiessen dann übers Ziel hinaus . Zumindest für meine Anwendung.

-Franky- · 1. November 2021, 08:45

dive26 schrieb:

Oh, bin technisch schon im dritten Satz ausgestiegen .

Ok das Thema SVG ist auch nicht ganz einfach und wenn man mit Direct2D und WIC noch nie was gemacht hat, dann hört sich meine Beschreibung doch sehr abstrakt und kompliziert an.

dive26 schrieb:

Die 1000 Zeilen mehr an Code schiessen dann übers Ziel hinaus

Es dürften, mal grob überschlagen, bedeutend weniger als 1000 Zeilen Code sein die da noch hinzukommen würden.

Nofear23m · 1. November 2021, 10:20

Wenn es hier spezieller wird würde ich empfehlen einen Thread mit Verweis auf diesen Thread aufzumachen @dive26.
Dann müsst ihr nicht immer auf die "Freischaltung" warten.

Grüße

Ist nun hier: Diskussionsthread zu SVG to IMG (Tipps & Tricks)

SVG to IMG ohne externe Komponente

SVG to IMG ohne externe Komponente

VB.NET-Quellcode

AKP schrieb:

Quellcode

AKP schrieb:

VB.NET-Quellcode

dive26 schrieb:

dive26 schrieb:

Benutzer online 1

Ähnliche Themen

5 Benutzer haben hier geschrieben