I got this error message also when I ran the app some time ago.
The problem is probably caused by the fact that your WDDX packet has
Debugging info at the end of it.
By coincidence I was just looking at the app yesterday. I wanted to demo
WDDX to someone who doesn't have
any web experience. I modifedd the app so that if an Internet error occurs,
your given the option of loading
the data usually returned by the server from two XML files. I also added
error checking for the Debug problem.
Contact me (and any me too's) off list if you'd like the source.
Regards
Michael O'Reilly
Analyst Programmer
TransAer
-----Original Message-----
From: Kris Marwood [mailto:[EMAIL PROTECTED]]
Sent: 04 July 2000 11:28
To: [EMAIL PROTECTED]
Subject: Bug in VB example provided with Forta's advanced book?
Has anyone had any trouble running the A2Z bookstore WDDX / Visual Basic
demonstration app from Ben Forta's advanced CF book? (page 380 - the code I
used was not included on the CD and was downloaded from forta.com) I've just
installed Visual Basic Pro yesterday and I'm trying to run the VB file Ben
provides (A2Z Client.vbp), but I keep getting the following error when I
start the program:
"run-time error 5 - Invalid procedure or call in argument" which points to
the following code:
For Count = 1 To StoresRS.getRowCount
cboStores.AddItem (StoresRS.getField(Count, "NAME")) ' this is the
line in question
Next Count
I can get the WDDX packet from the bookrobot.cfm robot into VB without a
problem, but the above code is giving me trouble. I have set up the
MSinet.ocx && allaire WDDX COM objects etc but I still get the error. Does
anyone know what could be going wrong with Forta's code? The following is
the function where the code is that is generating the runtime error.
' This executes when the application first starts up.
' It fetches current list of stores from CFM-based Store Robot.
Private Sub GetStores()
Dim strURL As String, Count As Integer
' Fetch WDDX Packet of data from Store Robot
MyXML = Inet1.OpenURL("http://127.0.0.1/robots/BookRobot.cfm")
' Deserialize the packet into a recordset
Set StoresRS = MyDeser.deserialize(MyXML)
storesList.Text = MyXML
If MyXML <> "" Then
MsgBox ("WDDX Packet Successfully retrieved from " & RobotServer & "!")
End If
' Clear the current entries from ListBox
cboStores.Clear
' Loop through the rows of the recordset
' For each row, add an item to the ListBox
For Count = 1 To StoresRS.getRowCount
cboStores.AddItem (StoresRS.getField(Count, "NAME"))
Next Count
' Select the first item in the ListBox
cboStores.ListIndex = 0
End Sub
Any help would be much appreciated....
Kris Marwood
Technical Manager
Reaction Media Group
[EMAIL PROTECTED]
www.reactionmedia.com.au
Web Development + e-Commerce + Multimedia
----------------------------------------------------------------------------
--
Archives: http://www.eGroups.com/list/cf-talk
To Unsubscribe visit
http://www.houseoffusion.com/index.cfm?sidebar=lists&body=lists/cf_talk or
send a message to [EMAIL PROTECTED] with 'unsubscribe' in
the body.
------------------------------------------------------------------------------
Archives: http://www.eGroups.com/list/cf-talk
To Unsubscribe visit
http://www.houseoffusion.com/index.cfm?sidebar=lists&body=lists/cf_talk or send a
message to [EMAIL PROTECTED] with 'unsubscribe' in the body.
