VB6 WinHttp not working

[XardozCom]

                Dim HTTP
                Set HTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
                HTTP.setTimeouts 50000, 50000, 50000, 50000
                HTTP.Open "POST", sAddress, True
                HTTP.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & ""
                'On Local Error Resume Next
                HTTP.send Data
                resp = HTTP.responseText

We have an old VB6 Project that we are updating.

After a client asked for changes, the above code stopped working

On the HTTP.send, we get "the data necessary to complete this operation is not yet available"

Been searching Google but can not find a good solution.

[LaVolpe]

This isn't the correct part of the forum for posting questions. It is used for posting sample code/projects that can be used as-is.

I've notified the moderators so that they can move this to the proper forum section for you

[Schmidt]

                Dim HTTP
                Set HTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
                HTTP.setTimeouts 50000, 50000, 50000, 50000
                HTTP.Open "POST", sAddress, True
                HTTP.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & ""
                'On Local Error Resume Next
                HTTP.send Data
                resp = HTTP.responseText

We have an old VB6 Project that we are updating.

After a client asked for changes, the above code stopped working

On the HTTP.send, we get "the data necessary to complete this operation is not yet available"

Been searching Google but can not find a good solution.

The first mistake I see, is that you are using the HTTP-Object in async-mode (last Param in the Open-method).
So don't expect to get anything useful returned in your last line:
resp = HTTP.responseText
shortly after sending the request (asynchronously).

Though since you apparently get the error already when you call the Send-method,
I'd suspect that what you've passed in your Data-Variable was not valid multipart/form-data
content - or (more likely) 'Data' even being "completely emtpy yet".

Olaf

[XardozCom]

Sorry for the mis-post.

Thank you Olaf, I found the solution as you posted

Issue solved.
Below causes the issue, ASYNC=True

HTTP.Open "POST", sAddress, True

This works! ASYNC=False

HTTP.Open "POST", sAddress, False