Richard,
below you'll find a VBA code that uses the component AspTear to post a WDDX packet.
You cand find AspTear here: http://www.alphasierrapapa.com/ComponentCenter/AspTear
Hope this helps!
Regards,
Marcello Frutig.
-- Astrolabio
------
Option Explicit
Const Request_POST = 1
Const URL = "http://.../index.cfm"
Const ApplicationName = "Application name"
Sub HTTPPost()
On Error GoTo ErrorHandler
Dim MyPacket, PostParam, strResult As String
Dim MySerializer, MyRS, MyHTTP As Object
Set MyRS = CreateObject("WDDX.Recordset.1")
Set MySerializer = CreateObject("WDDX.Serializer.1")
Set MyHTTP = CreateObject("SOFTWING.ASPtear")
' here you build the record set
MyPacket = MySerializer.serialize(MyRS)
PostParam = "param=" & MyPacket
strResult = MyHTTP.Retrieve(URL, Request_POST, PostParam, "", "")
MsgBox strResult, , ApplicationName
Set MyRS = Nothing
Set MySerializer = Nothing
Set MyHTTP = Nothing
Exit Sub
ErrorHandler:
If Err.Number >= 400 Then
MsgBox "Server error " & Err.Number, , ApplicationName
Else
MsgBox "WinInet error: " & Err.Description, , ApplicationName
End If
End Sub
>Progress.... I can now serialize data in excel 2000
>
>next step.... to send the packet to the server
>
>I've trawled around vb-world.net and some other vb sites and found lots
>of download scripts, I've even got one of them to work, but no upload
>ones apart from FTP stuff which is not really what I want to do, (ie
>post a wddx packet to a .cfm script on the server by http which will
>then deal with the packet directly). I simply don't know enough about
>vba to write one myself from scratch.
>
>If anyone happens to have a vba snippett lying around which will do this
>I would be most grateful....
>
>
>
>"Scott, Andrew" wrote:
>>
>> With these objects you need to include these in the VBasic compiler....
>> project->components will give you a list of components to include, I don't
>> recall the exact name for the wddx stuff. However I think this information
>> is in the Advanced Ben Forta Book....
>>
>> -----Original Message-----
>> From: Richard Meredith-Hardy [mailto:[EMAIL PROTECTED]]
>> Sent: 01 March 2001 05:53
>> To: CF-Talk
>> Subject: com & wddx
>>
>> Dear all
>>
>> (Its been a while since I was on the list)
>>
>> It occurred to me that it might be a clever thing to be able to send
>> data in wddx packets directly from excel 2000 (win 95) up to the server
>> (if you were online)... BUT
>>
>> In my experimentations I have done as asked in the wddx.org SDK which
>> comes with CF 4.5 ref installing & registering wddx_com.dll but when I
>> run the VBA code (code taken verbatim from Forta) it fails on the first
>> line!
>>
>> Set MyDeser = CreateObject("WDDX.Deserializer.1")
>>
>> Run-time error '438':
>> Object doesn't support this property or method
>>
>> wddx_com.dll seems OK in the OLE/COM OBject viewer (No idea what I'm
>> looking for though!)
>> There does seem to be some sort of problem with xmlparse.dll and
>> xmltok.dll in as much that I get the message xmltok.dll was loaded but
>> the DLLRegisterServer entry point was not found etc. when I run regsvr32
>> xmltok.dll I've tried deleting & Reinstalling these files but no diff.
>>
>> ANY Ideas Please!
>>
>> --
>> Regards;
>>
>> Richard Meredith-Hardy
>> -------------------------------------------------------------
>> [EMAIL PROTECTED]
>> Tel: + 44 (0)1462 834776 FAX: + 44 (0)1462 732668
>>
>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Structure your ColdFusion code with Fusebox. Get the official book at
http://www.fusionauthority.com/bkinfo.cfm
Archives: http://www.mail-archive.com/[email protected]/
Unsubscribe: http://www.houseoffusion.com/index.cfm?sidebar=lists
