Написал приложение для передачи фалов по сети с помощью TServerSocket и TClientSocket. Всё работает, но есть одно НО... Во время передачи среднего размера фалов (5 и более Mb) клиент зависает до окончания передачи. Я уверен, что это из-за того, что для передачи и принятия файла в оперативной памяти выделяется размер = размеру передаваемого файла. Помогите решить проблему, либо подскажите другой надёжный способ передачи.
 
P.S. Написал я это приложение на основе этой статьи. 

1. Используй не TMemoryStream, а TFileStream.
2. Очень смущает 
В реальных условиях не будет такого, чтобы 5 и более мегабайт отправились сразу за 1 send. Значит, нужно будет использовать "досылку" данных в сокет, когда он передаст первую часть данных. А в примере не используется событие OnClientWrite (буфер сокета свободен и в него можно добавить данные).
2. Статья  не освещает некоторые вопросы. Прочитай эту статью, по крайней мере раздел "Почему несколько блоков при передаче могут обьединяться в один" - обязательно.

kami, спасибо большое советы.

Это сообщение отредактировал(а) cmL - 28.3.2009, 20:29

Статья не бред, а вот насчет кода - соглашусь, есть такое. Но с другой стороны это заставляет подумать головой, чтобы заставить всё хозяйство работать 

Самое главное, что оттуда можно подчерпнуть (ну, по крайней мере я подчерпнул  ) - это принцип работы с TCP - нужно буферизировать данные и на передающем и на приемном конце, иначе ничего хорошего не выйдет.



Это очень хорошо, что всего с пол-часа, большая удача для изучения чужого кода . Зато разобрался, что к чему.

Да всё в порядке  . Я конкретно лоханулся со своей статьей: передавать файлы с помощью MemoryStream, гг это ж надо.