delphi - 以较慢的速率发送 TCP POST 请求

Question

我有一个使用 TIdHTTP Post 请求上传文件的函数。它对文件使用 TIdMultiPartFormDataStream，因此正在使用该函数

function TIdCustomHTTP.Post(AURL: string; ASource: TIdMultiPartFormDataStream): string;

这部分工作正常，但我想降低它发送的速率，以便使用更少的带宽。

有没有办法循环 writebytes 调用或其他东西，这样我就可以在中间进行一些 sleep 并减慢速度？我不关心请求的响应。

Answer 1

Indy 有一个 TIdInterceptThrottler 组件就是为了这个目的。您可以将其分配给 TIdHTTP.Intercept 属性，然后根据需要设置 TIdInterceptThrottler.SendBitsPerSec 属性。