ENetHTTPClientException

[Вольдемар]

Приветствую всех!

Когда использую TNetHTTPClient в синхронном режиме и вызываю Post, то всё работает как надо и без ошибок. Когда включаю Asynchronous, то после аналогичных действий получаю:

Project raised exception class ENetHTTPClientException with message 'Error sending data: (12017) Операция отменена'.

Как лечится? Спасибо

[Вольдемар]

Вот код

Function SampleSendFile(Const Url, FileName: String): String;
var
  lHttp: TNetHTTPClient;
  lSendData: TMultipartFormData;
  lResponse: IHTTPResponse;
Begin
  lHttp := TNetHTTPClient.Create(nil);
  lSendData := TMultipartFormData.Create;
  try
    lHttp.Asynchronous := True;
    lSendData.AddFile('FileField', FileName);

    if not lHttp.Asynchronous then
    begin
      lResponse := lHttp.Post(Url, lSendData);
      Result := lResponse.ContentAsString;
    end
    else
    begin
      lHttp.Post(Url, lSendData);
      Result := '';
    end;
    // Result := lResponse.StatusCode = 200;
  finally
    lSendData.Free;
    lHttp.Free;
  end;
end;

 

[Fedor K]

Мне кажется вся проблема в том, что идет удаление объекты до окончания операций. Учитывайте, что процесс выполняется асинхронно:

    begin
      //тут лишь создается поток, в котором выполняется запрос
      lHttp.Post(Url, lSendData);
      Result := '';
    end;
    // Result := lResponse.StatusCode = 200;
  finally
    //вот здесь ошибка. Нельзя удалять объекты, если действие еще не завершилось. Вы можете узнать об завершении прцоессса в событии OnRequestCompleted
    lSendData.Free;
    lHttp.Free;
  end;

 

 

[Вольдемар]

7 часов назад, Fedor K сказал:

Мне кажется вся проблема в том, что идет удаление объекты до окончания операций. Учитывайте, что процесс выполняется асинхронно:

 

 

 

Спасибо, а как тогда удалять lSendData, чтобы память не расходовать?