Работа с большим объёмом данных - Delphi - Ответ 5547527

23.12.2013, 22:34. **Показов** 1613. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Приветствую всех! На днях столкнулся с такой проблемой: необходимо отправить на сервер файл большого размера (для теста взял 37 МБ) из программы на дельфи.
Написал код, потестировал на малых файлах, до 655 КБ - всё ок, работает, файл отправляется на сервер как надо, даже контрольные суммы проверял. Пытаюсь отправить файл 37 МБ - процесс начинает занимать всё больше и больше памяти, потом долго использованная память остаётся на уровне 200-230 МБ, и на 369 МБ вылезает ошибка "Project raised exception class EIdSocketError with message 'Socket Error # 10054 Connection reset by peer.' " При этом оперативная память на компе не заканчивается. Отладчик дельфи выделяет строку на которой выскочило исключение, я её отметил комментарием. Если проигнорировать исключение и продолжить выполнение программы, история повторяется, только теперь уже использовано где то 544 МБ памяти и тот же эксепшн вылезает. И при всём этом процесс полностью нагружает одно ядро.
Цифры от раза к разу несколько колебляться, поэтому просьба не воспринимать их как точные

Не пойму, что я делаю неправильно и почему выделяется так много памяти, можно ли это как то оптимизировать?

Вот код:

Delphi

   //читаю файл
   repeat
     Esheraz:=false;
     try
       FS := TFileStream.Create('\file.dat', fmOpenRead or fmShareExclusive);
     except
       Esheraz:=true;
       sleep(1000);
     end;
   until Esheraz=false;
 
   //записываю FileStream в переменную типа string
   SetLength(buf, FS.Size);
   FS.Read(pointer(buf)^,FS.Size);
   FS.Free;
 
 
   //ОТПРАВКА ФАЙЛА
   IdHTTP1:=TIdHTTP.Create(nil);
   IdHTTP1.HandleRedirects:=true;
   IdHTTP1.ReadTimeout:=6000;
 
   IdHTTP1.Port:=80;
   
   //формирую параметры POST-запроса
   Data := TStringList.Create;
   Data.Add('f=file.dat');
   Data.Add('data='+buf);
 
 
   repeat
   If Esheraz=true then sleep(1000);
   Esheraz:=false;
   try
     read := IdHTTP1.Post('http://address.ru/s.php', Data); //ЗДЕСЬ ВЫЛЕЗАЕТ ИСКЛЮЧЕНИЕ
   except
        Esheraz:=true;
   end;
   until Esheraz=false;
 
   Data.Clear;
   Data.Free;
   IdHTTP1.Free;

Вернуться к обсуждению:
Работа с большим объёмом данных Delphi

Следующий ответ

Другие темы раздела
Delphi Пересечение финиша Скажите как сделать чтоб когда одна из трех картинок пересекала shape(финиш) выдавалось сообщение что именно эта пересекла procedure TForm1.N2Click(Sender: TObject); begin // загружаем картинки Image1.Picture.LoadFromFile('1.jpg'); Image2.Picture.LoadFromFile('2.jpg'); Image3.Picture.LoadFromFile('3.jpg'); end; procedure TForm1.N3Click(Sender: TObject); begin // загружаем... https://www.cyberforum.ru/ delphi-beginners/ thread1054036.html	Delphi Сбивание настроек Время от времени почему-то сбиваются пути последнего открытия файла, если обычно всегда открывается последний проект, то после сбития пути вот эта ненужная мне папка- C:\Program Files\Borland\Delphi7\Projects Я имею ввиду при запуске делфи- чтоб открывалась та папка где я был последний раз. Как, этого можно достич?
Delphi Изменить цвет и шрифт текста! https://www.cyberforum.ru/ delphi-beginners/ thread1054023.html Создайте приложение, в котором при активизации переключателей цвет надписи изменяется, а при выборе соответствующего флажка изменяются различные атрибуты шрифта. В исходнике готовая форма,пропишите пожалуйста код	Delphi Создайте приложение позволяющее построить гистограмму по введенным данным https://www.cyberforum.ru/ delphi-beginners/ thread1053997.html Создайте приложение позволяющее построить гистограмму по введенным данным.
Загрузить картинку вместе в очередным вопросом в программе тестирования Delphi в общем такая проблемка: я делаю тест, который подгружает вопросы из ini файла, как мне подгрузить картинку к соответствующему вопросу???	Delphi Создать программу для определения дня недели Помогите пожалуйста решить задачу Создать программу для определения дня недели и его формы. Данные считают из входа а результат записывает выход файла https://www.cyberforum.ru/ delphi-beginners/ thread1053966.html
Delphi Написать программу, определяющую размер предоставляемой скидки https://www.cyberforum.ru/ delphi-beginners/ thread1053947.html Программа должна быть спроектирована таким образом, что при запуске кнопка Показать размер скидки недоступна. Она становится доступной после ввода стоимости покупки и нажатия клавиши Enter. Скидка 1% предоставляется, если сумма покупки больше 300 тенге, 2% - если сумма больше 500 тенге, 3% - если сумма больше 1000. Если стоимость покупки меньше 300 тенге, то в поле Edit выводится сообщение о том,...	Вычислить значение выражения Delphi Ребята подскажите пожалуйста написал программу, все работает но когда начал сдавать ее препод сказал что не правильно решает. я не нашел ошибку, то ли он тупит то ли я. помогите найти это ошибку. может там ответ не правильно считает может еще что
Delphi Работа с типизированным файлом вещественных чисел https://www.cyberforum.ru/ delphi-beginners/ thread1053931.html Помогите с прогой в делфи, пожалуйста. Буду искренне благодарен. ---------------------------- Создать типизированный файл вещественных чисел. Найти сумму компонентов файла, расположенных между максимальным и минимальным элементами файла (включая эти элементы). Исходный файл и найденную сумму выдать на экран. Записать ее в конец файла. Для обработки файла использовать процедуру создания,...	Delphi Как нажать кнопку, нажатием другой? У меня такая проблема у меня имеются 2 кнопки speedbutton. При нажатии первой, вторая принимает значение visible=false, и наоборот при нажатии второй первая принимает значение visible=true. Теперь мне необходимо чтобы при нажатии третьей кнопки bitbtn одновременно с ней нажималась speedbutton2, и выполнились все ее процедуры, как будто я на нее нажал. Вот вопрос как мне это сделать, я пробовал... https://www.cyberforum.ru/ delphi-beginners/ thread1053930.html
Delphi Перейти по ссылке не открывая браузер и найти там текст Мне нужно чтобы например я в исходном коде ввёл какую то ссылку и программа нашла там текст например "Выход" или "Online" ну любой.И чтобы если был найден текст то в Label написать что то. Пожалуйста прошу помогите буду очень благодарен.:cry:	Delphi Как в обработчике связать три таблицы? https://www.cyberforum.ru/ delphi-beginners/ thread1053921.html рабочую, справочную,промежуточную

	23.12.2013, 22:34