Synapse.HTTPSend послать 100 запросов на сервер

Posted by maloy under Delphi

Nugrom

Я работаю с синапсом и никогда такой проблемы не возникало раньше.
Мне нужно на сервер сделать огромное(100-150) количество запросов с интервалом к примеру в 10 секунд.
В коде я писал

Код:


if FSend.HTTPMethod('GET', AUrl) then
    begin
        ...
    end else raise Exception.Create(GetError);

Код:


function TDHttp.GetError: string;
begin
  Result:='';
  if FSend.ResultCode>0 then
    Result:=Result+IntToStr(FSend.ResultCode);
  if FSend.ResultString<>'' then
    Result:=Result+': '+FSend.ResultString;
end;

Как только включаю, все работает, запросы отправляются, но через N-ное количество запросов строка if FSend.HTTPMethod(‘GET’, AUrl) выдает просто False. Тогда программа пытается получить код ошибкиException.Create(GetError); но там пусто.. Выходит просто напросто вот такое сообщение как на скрине. Так же само и с Post запросами..
Вопросы:
1)Может ли это быть связанно с защитой сервера? Сервер просто закрывает доступ программе?
2)Может ли это быть связанно с Synapse каким-то образом?
3)Подскажите еще какие-то способы (кроме Indy, потому как запросы делать нужно на HTTPS, а в инди у меня это не выходит) делать запросы на https кроме synapse.

bakanaev

Код:


uses
 IdSSLOpenSSL;

...
var
  IdHTTP: TIdHTTP;
  IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
begin
  IdHTTP := TidHTTP.Create;
  IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create;
  IdHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;

...

тема на форуме

Последние записи

made in programmersforum 5

Synapse.HTTPSend послать 100 запросов на сервер

Похожие статьи