AGK for Pascal
TAgkHttpConnection.SendFileASync Method (TAgkHttpResponseEvent, String, String, String)

Send a file asynchronously to the server connected to using Connect and fires an event when the server response is received.

procedure SendFileASync(const OnResponse: TAgkHttpResponseEvent; const ServerFile: String; const LocalFile: String; const PostData: String = ''); overload;
const OnResponse: TAgkHttpResponseEvent 
The event that is fired when the response is available. 
const ServerFile: String 
The file to request from the server, include everything after the domain part of the URL. 
const LocalFile: String 
The filename of the file you want to send to the server. 
const PostData: String = '' 
(optional) The raw post data to send to the server. Note that & and = are special characters that separate variables. 

For example if requesting, ServerFile should be 'index.php. Also allows you to send POST data to the server which can include variables or file data, e.g. 'myvar=5&var2=test'. This method returns immediately and waits for the server to reply in the background. 

When the response is available, the OnResponse event is fired. The Connection parameter of the event will be this connection. The Response paramter is the server reply. 

You can also check the upload progress using FileProgress

There is also a version of SendFileASync that does not use an event, but requires you to poll for the response instead.

Copyright (c) 2012. All rights reserved.