Hi. Have anyone encountered an error using the LoadFromString() function?

I am getting the following error on VB6 :
Run-Time error '-2147467259 (80004005)':
Method 'LoadFromString' of object 'IFlowChart' failed.

Here's a snipet of my code:

[code]
Set objFileSystem = New FileSystemObject
Set objTextStream = objFileSystem.CreateTextFile(sfilename, True, False)
For lindex = 0 To (FLOWCHART_ARRAY_SIZE - 1)
'generate text stream of each flowchart page
   sflowchart_datastream = FlowChart_Array(lindex).SaveToString(True)
   objTextStream.WriteLine sflowchart_datastream
   Call FlowChart_Array(lindex).LoadFromString(sflowchart_datastream)            
Next lindex
objTextStream.Close
Set objTextStream = Nothing
Set objFileSystem = Nothing
[/code]

Any help is much appreciated.

Hi. I have uploaded the binary file and created a ticket on your helpdesk. The ticket number is 3A4FF0.

I also discovered that even with the error, LoadFromString() will still load correctly if I enabled VB's "On Error Resume Next", but this will not be good programming practise.

Your help is much appreciated.

Thanks for looking into it for me. One other important piece of information I may have left out.

I am running the Demo version of FlowChartX Pro. I am still waiting for our company's Purchasing Department to complete the order for a licensed copy of FlowChartX Pro. Does running the Demo version be any different?

Yes. I am assigning objBox.VariantTag with a instance of a class (object). Is there a work-around for this besides not assigning objects to the VariantTag?


On a side note, I am impressed with the tech support responses I am getting from you. 

Ok, is that object created by you or a third party ? Can you paste here the serialization code for it ?

>>  On a side note, I am impressed with the tech support responses I am getting from you.

Thanks, it's my fourth year doing tech. support for this control so I know all its secrets   

The object is created by me under the same project defined as a Class module (not a ActiveX reference).

Here is my COM serialization code. It is done when a Box is created. I allow the users to create 2 type of boxes: Comment Boxes or TestBoxes. TestBoxes will use COM serialization.

The class ClassTestBoxContainer is a local Class module with Instancing set to Private. The entire project is to be compiled as an ActiveX Executable.

Public Sub Page_BoxCreated(ByVal box As FLOWCHARTLibCtl.IBoxItem)
 If (False = FormTestFlow.cmdbtnModeTestBox.Enabled) Then
  'TestBox Mode
   box.UserData = USERDATA_ID_TESTBOX
   'create object and assign handle to TestBox
   ReDim Preserve objTestBoxInfo(lTestBoxInfo_Count)
   Set objTestBoxInfo(lTestBoxInfo_Count) = New ClassTestBoxContainer
   objTestBoxInfo(lTestBoxInfo_Count).TestBoxIndex = lTestBoxInfo_Count
   box.VariantTag = objTestBoxInfo(lTestBoxInfo_Count) 'assign object handle
   lTestBoxInfo_Count = lTestBoxInfo_Count + 1 'increment counter
 ElseIf (False = FormTestFlow.cmdbtnModeComment.Enabled) Then
   'Comment Mode
   box.UserData = USERDATA_ID_COMMENT
 End If
End Sub

 

Here it is

http://mindfusion.org/cgi/Forum/YaBB.pl?board=fcx_disc;action=display;num=112480...