03-17-2022
01:29 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-17-2022
01:29 PM
Hello
It is possible in iLogic too in a different way, looks a bit stranger. It's an adapt of the PictureDispConverter posted by Brian Ekins in his Blog
AddReference "System.Drawing"
AddReference "stdole"
AddReference "System.Windows.Forms"
Class ThisRule
Sub main
Dim oDoc As Document = ThisDoc.Document
Dim oThumb As stdole.IPictureDisp
Do
oThumb = oDoc.Thumbnail
Loop While oThumb.Handle<0
Dim myPict As New AxHostConverter
Dim oImage As System.Drawing.Image=myPict.GetImageFromIPictureDisp(oThumb)
oImage.Save("C:\TEMP\bmptest.bmp",System.Drawing.Imaging.ImageFormat.Bmp)
End Sub
End Class
Class AxHostConverter
Inherits System.Windows.Forms.AxHost
Public Sub New()
MyBase.New("{63109182-966B-4e3c-A8B2-8BC4A88D221C}")
End Sub
Public Function GetImageFromIPictureDisp(ByVal pictureDisp As stdole.IPictureDisp) As System.Drawing.Image
Return CType(MyBase.GetPictureFromIPicture(pictureDisp), System.Drawing.Image)
End Function
End Class
R. Krieg
RKW Solutions
www.rkw-solutions.com