HTTP library v1.5 - Asynchronous calls

[Erel]

HTTP library v1.5 is attached.
The new version adds support for asynchronous calls.
You can now use Request.GetAsyncResponse to send a request to a server and get the response without blocking the main program.
When the response is available the Response event will be fired.

The response stream could also be asynchronously downloaded with Request.GetAsyncStream which downloads the stream to a temporary (or not temporary) file, or Request.GetAsyncString which builds a string out of the response. In both cases the Stream event will be fired when the process finishes retrieving the stream.
It is also possible to cancel the process and get the number of bytes downloaded (to show the progress).
The manual is available online: HTTP

Setup instructions:
- Download the zip file.
- Extract and copy HTTP.dll (library), HTTP.cs (code for merging) and HTTP.CHM (help file) to Basic4ppc folders library:
C:\Program Files\Anywhere Software\Basic4ppc Desktop\Libraries

Also replace existing copies of http.dll in the source code folder.

[Elrick]

Erel, can you show a simple example how can i POST data and get the response using asynchronous calls? I'm a bit stuck... Thanks

[Erel]

I'm using a simple php file that prints the POST variables.

Sub Globals

End Sub

Sub App_Start
    Form1.Show
End Sub

Sub Button1_Click
    request.New1("http://www.basic4ppc.com/print.php")
    request.Method = "POST"
    Request.ContentType = "application/x-www-form-urlencoded"
    stream.New1(Request.GetStream,True) 
    name = "First=Erel&Last=Uziel"
    stream.WriteBytes(stream.StringToBytes(name))
    response.New1
    request.GetAsyncResponse
End Sub

Sub request_Response
    If request.ResponseCode = 200 Then
        response.Value = request.AsyncResponse
        response.GetAsyncString
    Else
        Msgbox(request.ErrorMessage)
    End If
End Sub

Sub response_Stream
    TextBox1.Text = response.AsyncString
End Sub

[Elrick]

Thanks Erel, i've found where i made a mistake. There are many new methods in this lib, i've became puzzled a bit

[Aspire89]

Hello all. The task of the next.
We need to send to the server request to view: http://site.com/page.php?lat=56.565&lng=58.424
use the following code:

request.New1("<a href="http://www.basic4ppc.com/forum/print.php" target="_blank">http://site.com/page.php</a>")
request.Method = "POST"
Request.ContentType = "application/x-www-form-urlencoded"
stream.New1(Request.GetStream,True) 
name = "<a href="http://site.com/page.php?lat=56.565&lng=58.424" target="_blank">lat=56.565&lng=58.424</a> "
stream.WriteBytes(stream.StringToBytes(name))
response.New1
request.GetAsyncResponse

but the server does not receive the data lat=56.565&lng=58.424
script which is on the server:

PHP Code:

$data=file_get_contents('data.xml');
$data=str_replace("</markers>", "", $data);
$fd=fopen('data.xml', "w+");
fwrite($fd, $data);
fwrite($fd, '<marker lat="' . $_GET['lat'] . '" lng="' . $_GET['lng'] . '"/>');
fwrite($fd, "\n");
fwrite($fd, '</markers>');
fclose($fd); 


and a sample xml file:

<markers>
<marker lat="58.0057450" lng="56.2401117"/>
<marker lat="58.0064167" lng="56.2426733"/>
<marker lat=<b>""</b> lng=<b>""</b>/>
</markers>

if you send a request through the browser then everything is OK, but if the program is a string with empty values of lat and lng in the xml file, how can we solve this problem?

[Erel]

How do you send the data in the browser? As part of the URL?
If yes then you should use the default GET method instead of POST and just append the parameters to the URL.

[Aspire89]

Replaced POST to GET and it works, once again, thank you.

[Aspire89]

I use request.New3(url, User, Pass), and requires an additional change code page encoding. How can this be done? Tried through door.dll library, but fails.

Thanks.

[Erel]

The code page parameter is not used. It was used in the one of the previous versions but currently it has no effect at all.
You should set the encoding of the BinaryFile object to the required encoding.

[chanppc]

Can I request to have domain name in the SetProxy? I noted I need to customize the dll when connect from company network which used some sort of AD authentication. Thanks.

public void SetProxy3(string Host, int PortNumber, bool BypassOnLocal, string Username, string Password, string Domain)
{
WebProxy w = new WebProxy(Host, PortNumber);
w.Credentials = new NetworkCredential(Username, Password, Domain);
w.BypassProxyOnLocal = BypassOnLocal;
GlobalProxySelection.Select = w;
}