IdCmdTCP и передача zip архива

@_CyberHedgehog_ · Регистрация: 26.06.2010

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

Добрый день. Реализовываю передачу zip архива с клиента на сервер. Использую IdCmdTCPServer и IdCmdTCPClient. Примерно, что есть сейчас:

1) клиент получает уведомление от сервера и передаёт файл(аналогично работало бы и с button1.click):

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm2.IdCmdTCPClient1CommandHandlers1Command(ASender: TIdCommand);
var f:tfilestream;
begin
 showmessage('okcl1');   \\ проверка, это сообщение выводится
 f:=tfilestream.Create(zipforge1.FileName,fmcreate);
 asender.Context.Connection.SendCmd('iwriteit');
 asender.Context.Connection.IOHandler.WriteBufferOpen;  \\при принудительном завершении работы сервера, на клиенте эта строка загорается красным
 ASender.Context.Connection.IOHandler.write(f);
 showmessage('okcl2');   \\ это - нет
 asender.Context.connection.IOHandler.WriteBufferClose;
 f.free;
 showmessage('ok1cl3');  \\ и это - нет
end;

2) сервер же, получив команду iwriteit должен принять файл, однако зависает, при этом ни одно из showmessage не выполняется:

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.IdCmdTCPServer1CommandHandlers4Command(ASender: TIdCommand);
var f:tfilestream;
begin
 showmessage('ok2');
 f:=tfilestream.Create('e:\slanm\server\receive'+FormatDateTime('yyyy.mm.dd hh.nn.ss.zzz', Now)+'.zip',fmcreate);
 asender.Context.Connection.IOHandler.WriteBufferOpen;
 asender.Context.Connection.iohandler.ReadStream(f);
 asender.context.Connection.IOHandler.WriteBufferClose;
 f.Free;
 memo1.Lines.Add(datetostr(now)+' '+timetostr(now)+', были приняты данные от клиента.');
end;

В чем проблема?

Добавлено через 1 час 55 минут
Немного поэкспериментировав с telnet клиентом и моим сервером, удалось выяснить, что если оставить сервер повисеть на 30-60 секунд, то он очухается и продолжит работу. Однако, почему же он так тупит? Может дело в буферизации? Пойду попробую поэкспериментировать с транзакциями и AntiFreeze.

Добавлено через 1 час 44 минуты
Видимо, ошибка не здесь. Перед всем, что я описал, сервер шлёт клиенту команду 'yeswritefile':

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var i,l1:integer;
begin
 for i:=1 to stringgrid1.rowcount do
  if stringgrid1.Cells[1,i]=combobox1.Items[combobox1.itemindex] then l1:=i;
   tmplist:=idcmdtcpserver1.Contexts.LockList;
   showmessage('ok0');
    TIdContext(tmpList[strtoint(stringgrid1.cells[0,l1])]).Connection.SendCmd('yeswritefile');
 
  idcmdtcpserver1.Contexts.unlockList;  \\ вот тут всё и зависает! 
end;

При помощи некоторых проверок, удалось выяснить, что сервер зависает выполняя метод UnlockList. Попробую покопать тут.

Добавлено через 24 минуты
Или даже не UnlockList... Он отправляет клиенту команду Yeswritefile и всё. Сразу после отправки он зависает.

Добавлено через 8 минут
Случайно зашёл в папку, где должны были быть принятые архивы. Она была, отнюдь, не пуста. Значит, иногда, каким-то магическим образом сервер получает файл. Теперь осталось понять, отчего это зависит.

Добавлено через 1 минуту
Почти все принятые архивы весят 0 байт. Все, без исключения, повреждены.

Добавлено через 7 минут
Более того, сразу после нажатия кнопки "Принять" на стороне сервера(отправки yeswritefile) архив, который предназначен для передачи повреждается.

Добавлено через 19 часов 25 минут

Сообщение от _CyberHedgehog_

f:=tfilestream.Create('e:\slanm\server\r eceive'+FormatDateTime('yyyy.mm.dd hh.nn.ss.zzz', Now)+'.zip',fmcreate);

Тут изменил на fmopenread, потому что файл для отправки создаётся в другом месте. Теперь файл для передачи не повреждается.
Но! Проблема подвисания сервера осталась. Теперь он даже получает файл. Правда, весит он всего 0 байт. =(
Оставил сервер немного повисеть. Получил повреждённый архив, размером 1,55 Гб, хотя отправлял размеров 1 байт

Добавлено через 1 час 9 минут
После ещё некоторых экспериментов с telnet клиентом и секундомером, оказалось, что в большинстве случаев, сервер подвисает на 20 секунд и в это время не реагирует даже на replyes. Однако, если успеть отослать reply именно на 20 секунде, то сервер продолжит работу.
Почему именно 20 секунд? Это же бред, какой-то.

@_CyberHedgehog_ · 23.08.2013, 15:17 **[ТС]**

Всё, разобрался.
Во первых, то к чему я пришёл сам:

Delphi
1
TIdContext(tmpList[strtoint(stringgrid1.cells[0,l1])]).Connection.SendCmd('yeswritefile');

так делать нельзя, ибо sendcmd в tidcontex абсолютно неадекватен.
Надо так:

Delphi
1
tIdContext(tmpList[strtoint(stringgrid1.cells[0,l1])]).Connection.IOHandler.WriteLn('yeswritefile');

Во вторых, мне на другом форуме подсказали, что отправлять и принимать потоки лучше, указывая размер.
После этих двух поправок всё стало на свои места.
Так или иначе, но спасибо за 161 просмотр.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .