Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Определение размера отправленых данных через TSocket [WinXP]

Del © (2008-02-07 21:35:00)
Доброе время суток. Столкнулся со слдующей проблемой.
Есть программа, которая организовывает передачу фалов по сети. Собственно -чат, с доп. функцией передачи. Сама передача работает на ура, однако возникает проблема с отображением размера передаваемого файла.
На стороне клиента проресс принятого файла выводится через стандартный компонент ProgressBar, а также в поле Edit.
Возникает вопрос - как отобразить колличество отправленной на данный момент информации на стороне сервера.
Собственно попытался снять показания progressbar`a на стороне клиента и передать их на сервер (варварский способ, конечно, а что делать?:() следующим путём:
На первый принятый байт у клиента включается таймер (пережиток попытки отправлять прогресс по времени), далее следующий код:
procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled:=false; If ProgressBAr1.Position>1 Then begin ClientSocket3.Socket.SendText(IntToStr(ProgressBar1.Position)); end else ClientSocket3.Socket.SendText('0'); end; procedure TForm1.ServerSocket3ClientRead(Sender: TObject; Socket: TCustomWinSocket); begin Edit1.Text:=''; Edit1.Text:=Socket.ReceiveText; Socket.SendText('ok'); end; procedure TForm1.ClientSocket3Read(Sender: TObject; Socket: TCustomWinSocket); begin If Socket.ReceiveText='ok' Then Begin If ProgressBar1.Position<100 Then Socket.SendText(IntToStr(ProgressBar1.Position)); end; end;

Так вот. В поле Edit1 всё попадает путём... НО!
после второй посылочки начинает писать вместо 2, потом 3, потом 4 и т.д. 2, 23, 234, 345, 3445 и в таком духе.
Возникает впечатление, что Сокет не успевает очистить полученную информацию из своего буфера и шлёпает её подряд. Ставил паузы. Долгие. Не помогает.
Прошу помочь. Если не трудно.

DiamondShark (2008-02-19 16:17:00) [1]

> Del (13.02.08 20:51) [8]

А зачем тогда врал: "Да знаю я как работают сетевые протоколы"?

Вот из-за таких халявщиков, как ты, и пропадает желание отвечать на всякий чих.

Del (2008-02-13 20:51:00) [2]
Спасибо, теперь понятнее. Будем посмотреть, будем порешать.

Slym (2008-02-13 04:33:00) [3]
Del (13.02.08 0:49) [5]
Там немного другая проблема, есл ипочитать поподробней.
Проблема аналогичная твоей: нет правлильного протокола...
ориентация протокола (в твоем случае) на то что одинSendText вызовет одинReceiveText ошибочна!

протокол должен иметь заголовок:
1. быть с фиксированным по размеру заголовком
2. быть с динамическим размером, но с фиксированным по размеру предзаголовком с указанием длинны загаловка...
3. быть с динамическим размером, но со внятным разделителем в конце...
То же самое относится к "целевым" данным... либо указание длинны в заголовке, либо внятный разделитель - который не встретится в теле сообщения, а при наличии бинарных данных это имеет определенную сложность

Anatoly Podgoretsky (2008-02-13 00:52:00) [4]
> Del (13.02.2008 00:49:05) [5]

Вот когда не найдешь, вот тогда на форум.
Форум не является справочником.

Del (2008-02-13 00:49:00) [5]

> да это всё фигня, круто замешаная на непонимании работы
> TCP. смысл распинаться? автору читать надо. много и вдумчиво.
>

Да знаю я как работают сетевые протоколы. Я не знаю, как с ними в Дельфи работать. А если на все вопросы отсылать читать, то зачем форум тогда вообще? Если перерыть всю литературу, то найти можно всё.

> И вообще хотя бы по этому сайту поискал - примеры тут есть
> например http://www.delphimaster.ru/cgi-bin/forum.pl?id=1202118907&n=4

Там немного другая проблема, есл ипочитать поподробней.

Спасибо за содержательные ответы.

ketmar (2008-02-08 05:14:00) [6]
да это всё фигня, круто замешаная на непонимании работы TCP. смысл распинаться? автору читать надо. много и вдумчиво.

---
Understanding is not required. Only obedience.

Slym (2008-02-08 04:45:00) [7]
И вообще хотя бы по этому сайту поискал - примеры тут есть например http://www.delphimaster.ru/cgi-bin/forum.pl?id=1202118907&n=4

Slym (2008-02-08 04:43:00) [8]
и что тебе мешает сделать на сервере тоже самое что и на клиенте?
принципиальной разницы нет...

Slym (2008-02-08 04:41:00) [9]
пакеты слепляет это нормально...
никаких "пауз"! Протокол на таймаутах работать нормально не может... Вводи в протокол разделитель - например перевод строки...
и вообще протокал в студию... и если его нет - горе тебе т.к. ReceiveText работает до поры до времени, а патом огребешь

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »