and I tried this as well

var
  MyCurl:pCurl;
  dVal:double;
begin
  MyCurl:=curl_easy_init();
  curl_easy_setopt(MyCurl, CURLOPT_URL, '...');
  curl_easy_setopt(MyCurl, CURLOPT_VERBOSE, true);
  curl_easy_setopt(MyCurl, CURLOPT_NOPROGRESS, false);

  curl_easy_setopt(MyCurl, CURLOPT_MAX_RECV_SPEED_LARGE, 1024*10);
  curl_easy_setopt(MyCurl, CURLOPT_MAX_SEND_SPEED_LARGE, 1024*10);
  curl_easy_setopt(MyCurl, CURLOPT_PROGRESSFUNCTION, @DoProgress);
  curl_easy_setopt(MyCurl, CURLOPT_PROGRESSDATA, Self);

  curl_easy_perform(MyCurl);

  curl_easy_getinfo(MyCurl, CURLINFO_SPEED_UPLOAD, dVal );
  Memo3.Lines.Add(FloatToStr(((dVal))));

  curl_easy_cleanup(MyCurl);
end;

and nothing ...
Received on 2009-07-05