POST binary file to HTTP with inet

[Kasper]

I am trying to POST a binary file to a web form

<FORM ENCTYPE=&quot;multipart/form-data&quot; method=&quot;POST&quot; action=&quot;act_upfile&quot;>
<INPUT TYPE=FILE NAME=&quot;filename&quot;>
<INPUT TYPE=SUBMIT NAME=&quot;Upload&quot;>
</FORM>

I am using the following routine to do the POST:

Private Sub cmdUpload_Click()
Dim TempArray() As Byte
Dim Encoded() As Byte
Dim Message As String

If FileExists(txtFile.text) = False Then
MsgBox "The file you have selected does not exist"
End If

cmdUpload.Enabled = False
cmdBrowse.Enabled = False
txtFile.Enabled = False
lblStatus.Caption = "Uploading file..."
strHead = "Content-Type: multipart/form-data; boundary=913114112" & vbCrLf

LoadFile txtFile.text, pbBuffer1

ByteArrayToString pbBuffer1, ptContent
Base64.Str2ByteArray ptContent, TempArray
Base64.EncodeB64 TempArray, Encoded
Base64.Span 74, Encoded, TempArray

ByteArrayToString TempArray, ptContent

strFormData = "-----------------------------913114112" & vbNewLine
strFormData = strFormData & "Content-Disposition: form-data; name=""Bcmd""" & vbNewLine & vbNewLine & "0" & vbNewLine
strFormData = strFormData & "-----------------------------913114112" & vbNewLine
strFormData = strFormData & "Content-Disposition: form-data; name=""SUBMIT""" & vbNewLine & vbNewLine
strFormData = strFormData & "Upload" & vbNewLine
strFormData = strFormData & "-----------------------------913114112" & vbNewLine
strFormData = strFormData & "Content-Disposition: form-data; "
strFormData = strFormData & "name=""filename""; filename=""" & txtFile.text & """" & vbNewLine
strFormData = strFormData & "Content-Transfer-Encoding: BASE64" & vbNewLine
strFormData = strFormData & "Content-Type: multipart/form-data" & vbNewLine & vbNewLine & ptContent & vbNewLine
strFormData = strFormData & "-----------------------------913114112--"
strLen = Len(strFormData)
MsgBox strFormData

Inet.Execute txtIP.text & ":" & txtPort.text & "/act_upfile", "POST", strFormData, strHead

While Inet.StillExecuting
DoEvents
Wend
MsgBox "The file was successfully uploaded", vbInformation, "File Uploaded"
cmdUpload.Enabled = True
cmdBrowse.Enabled = True
txtFile.Enabled = True
End Sub

right at the inet.Execute command, it dies with the following error:
Run-time error '35760'
Cannot coerce type

Please help!

 

[mattKnight]

Kasper

having looked at MSDN it says
>The URL property must contain at least a protocol and remote host name.

are you setting prefixing TCPIP.text with "FTP//" anywhere

just a thought

Take Care

Matt
If at first you don't succeed, skydiving is not for you.

 

[Kasper]

Thanks for responding mattKnight, but no.
This particular project HAS to use HTTP in a web form with the form tag being what i posted above:
(< FORM ENCTYPE=&quot;multipart/form-data&quot; method=&quot;POST&quot; action=&quot;act_upfile >)
No other access methods are available.
The file(s) must be uploaded through the existing form.

the variable txtIP.text is &quot;

http://www.server.com&quot;

the variable txtPort.text is &quot;10000&quot;
so the full URL being posted to is
&quot;

http://www.server.com:10000/act_upfile&quot;