|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.12.2012, 18:06 | #1 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
Delphi7:TServerSocket - скорость передачи
Доброго времени суток.
На базе TServerSocket и TClientSocket создано простейшее приложение Клиент-Сервер. Передаём файл в 200Мб одним потоком. Клиент и Сервер находятся на одном компьютере. Через Файрвол смотрю скорость; она с 20Мб/с плавно падает до 200Кб/с Почему? Как управлять скоростью? (если это возможно) Или как удерживать скорость на каком-то одном значении?
Всё гениальное - просто!
|
19.12.2012, 19:25 | #2 |
Участник клуба
Регистрация: 07.12.2011
Сообщений: 1,025
|
без кода никак... может у тебя processmessages после каждого чиха
Не стесняемся, плюсуем!
|
20.12.2012, 02:52 | #3 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
Server
Код:
Client Код:
Код:
Всё гениальное - просто!
Последний раз редактировалось Air; 20.12.2012 в 02:56. |
20.12.2012, 09:03 | #4 |
Участник клуба
Регистрация: 07.12.2011
Сообщений: 1,025
|
Забудь ReceiveText!
клиент и сервер в блоке, качается 3 сек Код:
Не стесняемся, плюсуем!
|
21.12.2012, 06:06 | #5 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
Slym
Ух ты) Стабильно на 9-12 Мб/с в три прихода передал 209Мб. Благодарю за предоставленный метод. Никогда не задумывался о типе ctBlocking в чём отличие? _ ThreadCacheSize установил в 512, так скорость вообще 32Мб/с была))
Всё гениальное - просто!
Последний раз редактировалось Air; 21.12.2012 в 06:13. |
29.12.2012, 20:03 | #6 | |
Участник клуба
Регистрация: 07.12.2011
Сообщений: 1,025
|
Цитата:
ThreadCacheSize оставь в покое... это кеш созданных TMySocketThread (чтоб не пересоздавать постоянно) и должно примерно равняться среднему количеству одновременных подключений по дефолту 10 что достаточно, а зачастую даже избыточно
Не стесняемся, плюсуем!
|
|
29.12.2012, 23:04 | #7 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
Slym
Ммм, ясно, значит случайное совпадение.
Всё гениальное - просто!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
TServerSocket, TClientSocket. Создание сокета для передачи файлов. | Denutrror | Работа с сетью в Delphi | 5 | 03.06.2012 11:08 |
Ошибки передачи файлов (TServerSocket -> TClientSocket) | Cold_Night | Работа с сетью в Delphi | 2 | 26.11.2009 17:43 |
Органичить скорость передачи | Denager | Работа с сетью в Delphi | 22 | 05.03.2008 09:08 |
Скорость передачи приема | Лубышев | Работа с сетью в Delphi | 1 | 05.02.2008 10:14 |