Добрый день!
Есть десктопное приложение, которое обращается к файловому сервису через компонент TIdHttp и с помощью метода POST получает ответ в формате JSON.
JSON-параметр "file_data" содержит тело файла в кодировке BASE64.
В компании создали клон проекта, настроили отдельные сервера (в облаке).
СУТЬ ПРОБЛЕМЫ
При обращении к базовому сервису - все работает отлично.
При обращении к клону через TChromium.Browser.MainFrame.LoadRequest (компоненты CEF4) - срабатывает от 1 до 3 миллисекунд.
При обращении к клону через TIdHttp - наблюдается задержка получения ответа (до 15 секунд для файла размером 495 КБ)!
TIdHttp пробовал использовать как из кода, так и на форму бросал.
Эффект одинаково плохой. Никаких спец.настроек для компонента не произвожу.
Понимаю, что проблема вероятнее всего в окружении,
но админы крест на пузе рисуют и говорят, что единственное отличие это то,
что старые сервера распределенные (физически разные), а новые в одном дата-центре и одном облаке.
Знающие люди, подскажите пожалуйста, может быть есть какая-то настройка в самом Indy?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
procedure TMainForm.DwnlWithIndy;
var vURL : string;
vDataId : TIdMultiPartFormDataStream;
vResponse : string;
vJSON: TJSONObject;
vSS : TStringStream;
vIdHttp : TIdHTTP;
begin
vIdHttp := TIdHTTP.Create(Self);
try
// Параметры запроса;
vDataId := TIdMultiPartFormDataStream.Create;
vDataId.AddFormField('path', ePathSrv.Text).ContentTransfer := '8bit';
vDataId.AddFormField('compression_mode', 'BASE64');
vDataId.AddFormField('response_type', 'JSON');
// URL для отправки запроса;
vURL := cbbHost.Text + '?show_file';
memoRequest.Clear;
memoRequest.Lines.Add(DateTimeToStr(Now)+#13#10+'Request params added!');
// Отправка POST запроса;
memoResponse.Clear;
memoResponse.Lines.Add('Download START: '+#09+DateTimeToStr(Now));
vResponse := vIdHttp.Post(vURL, vDataId);
memoResponse.Lines.Add('Download END: '+#09+DateTimeToStr(Now));
// Сохранение результата выполнения запроса;
vSS := TStringStream.Create(vResponse);
try
vSS.SaveToFile('response.json');
// Сохранение файла на ПК;
vJSON := TJSONObject.ParseJSONValue(vResponse, False, True) as TJSONObject;
vSS := TStringStream.Create(vJSON.Values['file_data'].Value);
vSS.SaveToFile('vid.mp4');
finally
FreeAndNil(vSS);
end;
finally
FreeAndNil(vIdHttp);
end;
end;
