如何快速分析HTTP Post响应

我写了一个简单的程序，可以定期检查数据。问题在于检查过程随着时间的推移而减慢。首先它在一秒钟内发送2个帖子，在45秒之后发送一个帖子，最终完全停止。我不知道这里有什么问题。如何快速分析HTTP Post响应

procedure TForm2.CheckURLs; 
var 
    lHTTP: TIdHTTP; 
    IdSSL : TIdSSLIOHandlerSocketOpenSSL; 
    N: Integer; 
    Access: string; 
    Params, Reply: TStringList; 
    Cookie: TIdCookie; 
begin 
    lHTTP := TIdHTTP.Create(nil); 
    try 
    IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(lHTTP); 
    IdSSL.SSLOptions.Method := sslvTLSv1; 
    IdSSL.SSLOptions.Mode := sslmClient; 
    lHTTP.IOHandler := IdSSL; 
    lHTTP.ReadTimeout := 30000; 
    lHTTP.HandleRedirects := True; 
    lHTTP.Request.UserAgent := 'Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/46.0.2490.76 Mobile Safari/537.36'; 
    lHTTP.Get('https://www.mywebserver.com', TStream(nil)); 
    Cookie := lHTTP.CookieManager.CookieCollection.Cookie['id', 'www.mywebserver.com']; 
    if Cookie <> nil then 
     Access := Cookie.Value; 
    finally 
    end; 

    Params := TStringList.Create; 
    Reply := TStringList.Create; 

    TTask.Create(
    procedure 
    var 
     N, m, i : integer; 
    begin 
     Params.Add('IDs=' +B.Strings[i]); 
     try 
     lHTTP.Request.CustomHeaders.Values['id'] := Access; 
     lHTTP.Request.CustomHeaders.Values['X-Requested-With'] := 'XMLHttpRequest'; 
     lHTTP.Request.Referer := 'https://www.mywebserver.com/'; 
     lHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; 
     lHTTP.Request.UserAgent := 'Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/46.0.2490.76 Mobile Safari/537.36'; 
     lHTTP.ConnectTimeout := 0; 
     Reply.Text := lHTTP.Post('https://www.mywebserver.com/', Params); 

     if AnsiContainsStr(Reply.Text, 'nothing') then 
     begin 
      TThread.Synchronize(nil, 
      procedure 
      begin 
       Memo1.Lines.Add(B.Strings[i]); 
       Label2.Caption := Memo1.Lines.Count.ToString; 
      end 
     ); 
     end;   
     finally 
     Reply.Clear; 
     end; 
    end 
).Start; 
end;

来源

2016-07-31 Mark Cooper

除了所说的Technicolor，TTask德尔福10.1柏林已经知道时间的问题，如：

RSP-15233: TTask Stuck and take a very very long time to start

RSP-12557: TTask serialize parallel tasks without apparent reason

为了避免这些问题，，请尝试使用TThread.CreateAnonymousThread()而不是TTask。

来源

2016-07-31 19:34:17

我测试了RSP-15233，果然只有大约9个任务开始。经过一些测试后，我相信会发生什么是一个任务被发送到主线程，并且睡眠呼叫会阻止其他人在至少一段时间内启动。添加SyncObject解决了我的问题： x：= 0; 对于i：= 1到25做 TTask.Create（程序开始的OutputDebugString（PCHAR（ '开始::' + TInterlocked.Increment（X）的ToString））; 睡眠（MAXINT）; 端）。开始; – FredS

使用了AnonymousThreads，没有更多的缓慢。 –

你的缓慢可能来自你的PROGRAMM这两个部分：下载DATAS或对他们的工作。

根据经验，我怀疑网站会让你放慢速度，所以你可以尝试在下载程序后评论一切（当然要小心）。再次运行这个程序应该给出相同的结果，然后在网站上给我们确认“错误”。

为避免被防机器人保护引起的45秒阻塞，请尝试通过在每次请求后添加几秒暂停来预防性地减慢程序速度。即使没有保护措施，减慢我们的webbots也是一个很好的做法。我们不这样做的DoS :)

来源

2016-07-31 13:57:44 technico

如何快速分析HTTP Post响应

回答

相关问题