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

kbi*_*kar 5 delphi indy

我有一个上传带有TIdHTTP Post请求的文件的函数.它使用TIdMultiPartFormDataStream作为文件,因此使用该函数

function TIdCustomHTTP.Post(AURL: string; ASource: TIdMultiPartFormDataStream): string;
Run Code Online (Sandbox Code Playgroud)

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

有没有办法循环写一个writebytes调用,所以我可以在中间保持一些睡眠并减慢它的速度?我不关心请求的响应.

Rem*_*eau 8

Indy有TIdInterceptThrottler这个目的的组成部分.您可以将其分配给TIdHTTP.Intercept属性,然后TIdInterceptThrottler.SendBitsPerSec根据需要设置属性.