How to program ActiveX control to be used in InfoPath form

[Sheila]

Hi,

I created an ActiveX control and added it into an infopath form, the control
property value can be saved, but each time when opening the form from SPS
form library, the property value was lost. I used InfoPathControl and
InfoPathControlSite objects to retrieve the form data.

Does anybody know what went wrong. I can not find any sample code on
Infopath Activex control programming. Thanks in advance.

 

[dbsearch04]

Check out this webcast..

http://msevents.microsoft.com/CUI/W...lture=en-US&EventID=1032259547&CountryCode=US

I have not watched this yet, but I do know that the presenter is good!
HTH.

Regards..

 

[Matthew Blain \(Serriform\)]

There's also some info (and a sample) in the book mentioned below.

It sounds like your control isn't writing any data to the XML. Can you see
your output in the text of the XML file?

--Matthew Blain
http://tips.serriform.com/
http://www.developingsolutionswithinfopath.com/

 

[Caduceus Coil]

Sheila,

I've been recently dealing with this same issue and here's the resolution
I've come to:

1. You can ONLY use Integers, Longs and Strings to represent your data in
InfoPath. I tried stdOLE.Picture, Variant, Byte() and they all won't bind by
default (or at all after many hours of recompiling to test). Why you ask?,
InfoPath is storing the data in an XML document file as node data
(<node>datadatadatadata</node>). Most types of data are using illegal
characters in this context and utf-8 or iso-8859-1 encoding won't solve the
problem, and I'm not quite sure why.

The simple resolution to storing ANY form of binary data is to Base64 encode
the data and return it as a String. Just to be fair here, after talking with
Microsoft about this using Visual Studio .NET and creating a
custom InfoPath form with the SDK should allow for binary data, however the
reason some of us are using ActiveX controls for data representation is
because not everyone working with InfoPath is a programmer, which is what is
expected when using .NET. This process is futher complicated by having to
create custom data schemas for InfoPath in VS .NET. Again, the simple
resolution to storing ANY form of binary data is to Base64 encode the data
and return it as a String.

2. Even though some of the examples lead you to believe that you can have
your own Public Property names, InfoPath's default schema only recognizes
ENABLED and VALUE (just as the examples show, but don't clearly state this as
a condition), so you may have to adjust your code to expose those names, or
use the InfoPath SDK and extend the default schema to accomodate your public
properties, for which I haven't seen any faq's or examples.

Hope this helps,
Cliff.

 

[Caduceus Coil]

Sheila,


One more thing I forgot to mention, you must use the StrConv() function to
convert to and from Unicode data for your string value. Again the reason for
this is you're dealing with XML node data. See example below.

Public Property Get Value() As String 'Needs to be called Value, data needs
to be String

'Ignore all Errors or InfoPath will die an Automation Exception death
On Error Resume Next

Set m_oSig = New cSigControl

If m_Signature.Handle Then
'Convert our STDOLE Picture to Base64 encoded string.
'Then convert the Base64 string to UniCode and return the value.
Value = StrConv(m_oSig.SetStreamPicture(m_Signature), vbUnicode)
End If

Set m_oSig = Nothing
End Property

Public Property Let Value(vData As String) 'Needs to be called Value, data
needs to be string

'Ignore all Errors or InfoPath will die an Automation Exception death
On Error Resume Next

Set m_oSig = New cSigControl

'Convert the incoming string from Unicode, then decode the Base64 encoding
'Stream the Base64 encoding back to STDOLE Picture.
'GetStreamPricture will return true if succussfully converted Base64
stream to IPicture.
If m_oSig.GetStreamPicture(StrConv(vData, vbFromUnicode)) Then
Set m_Signature = m_oSig.UserSignature
'Double checking for validity
If Not m_Signature Is Nothing Then
Set UserControl.Picture = m_Signature
Me.SignDocument = False
PropertyChanged "Value"
End If
End If
UserControl_Paint
UserControl.Refresh
Set m_oSig = Nothing
End Property