Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

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