Help with sending binary file instead of text
Can some help me with what needs to be changed here to do a binary send
instead of a text.
I'm thinking MyData needs to be set to a file like c:\temp\image.jpg and the
header content has to be changed...thanks
Dim MyData As String
Dim header As String
MyData = "hello"
With Inet1
.Protocol = icHTTP
.RemotePort = 80
.Document = "temp/test_put.txt"
.URL = "http://localhost/" & .Document
header = "Content-type: text/plain" & vbCrLf
.Execute Inet1.URL, "PUT", MyData, header
If Inet1.StillExecuting = True Then
Do While Inet1.StillExecuting = True
DoEvents
Loop
Else
.Execute , "Close"
End If
End With
End Sub