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

Question

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

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

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

有没有办法循环写一个writebytes调用，所以我可以在中间停留一些睡眠并减慢速度？我不关心请求的回复。

Answer 1

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