Получить данные через IdTCPServer / Delphi

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Получить данные через IdTCPServer

9 сообщений из 9, страница 1 из 1

Получить данные через IdTCPServer

#40033681

Mizer73

Гость

по событию IdTCPServer1Execute
принимаю данные

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

TByteDynArray Data;
		Data.set_length(3);
		AContext->Connection->IOHandler->ReadBytes(Data, 3, false);
		int Comma = Data[0];
		int Comma2 = Data[1];
		int u = Data[2]; // длина сообщения
		Data.set_length(u);
                InW11->Lines->Add("Пришло на сервер " + IntToStr(Comma) + "/ длина " + IntToStr(u));
		AContext->Connection->IOHandler->ReadBytes(Data, u, false);

и тут - беда.
отправляю регламентированные пакеты. А приходят данные непонятные. Видимо, порт забит остатками мусора.
Как их вычистить?

...

Рейтинг:

0 / 0

05.01.2021, 19:25:58

| Ответить | Цитировать | Написать

Получить данные через IdTCPServer

#40033683

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

Mizer73

Видимо, порт забит остатками мусора.

Нет. Никакого мусора в порту нет. Что вы отправили, то и получили. Показывайте код отправки.

Ну и скорее всего, ReadBytes это функция. И возвращает она количество реально прочитанных байт. И если было прочитано меньше, чем нужно, то остаток нужно дочитать

...

Рейтинг:

0 / 0

05.01.2021, 19:42:47

| Ответить | Цитировать | Написать

Получить данные через IdTCPServer

#40033686

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

Mizer73А приходят данные непонятные. Видимо, порт забит остатками мусора.

Нет, просто ты читаешь данные не туда, куда думаешь.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

05.01.2021, 19:53:34

| Ответить | Цитировать | Написать

Получить данные через IdTCPServer

#40033708

Mizer73

Гость

Dimitry Sibiryakov

Mizer73А приходят данные непонятные. Видимо, порт забит остатками мусора.

Нет, просто ты читаешь данные не туда, куда думаешь.

в смысле?

...

Рейтинг:

0 / 0

05.01.2021, 22:15:01

| Ответить | Цитировать | Написать

Получить данные через IdTCPServer

#40033711

northener

Гость

Код: pascal

ReadBytes(Data[0],...);

...

Рейтинг:

0 / 0

05.01.2021, 22:21:27

| Ответить | Цитировать | Написать

Получить данные через IdTCPServer

#40033738

Mizer73

Гость

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

...

Рейтинг:

0 / 0

06.01.2021, 00:43:05

| Ответить | Цитировать | Написать

Получить данные через IdTCPServer

#40033739

Mizer73

Гость

Что такое ReuseSocket ?
и как влияет?

...

Рейтинг:

0 / 0

06.01.2021, 00:43:49

| Ответить | Цитировать | Написать

Получить данные через IdTCPServer

#40033746

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

http://www.e-iter.net/Knowledge/Indy9/007658.html
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

06.01.2021, 01:27:27

| Ответить | Цитировать | Написать

Получить данные через IdTCPServer

#40033886

Mizer73

Гость

Проблемно отрабатывает код

Код: plaintext

1.
2.
3.
4.
5.

if (IdTCPClient3->Connected();
{
     IdTCPClient3->Disconnect();
}
IdTCPClient3->Connect();

можно сказать - не работает совсем.
Если другой TCP отваливался и включился заново, то возникает проблема переподключить.
Отваливание отслеживается чётко через пингование.

...

Рейтинг:

0 / 0

06.01.2021, 17:15:58

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Получить данные через IdTCPServer

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=58&msg=40033708&tid=2037728]:	0ms
get settings:	14ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	51ms
get topic data:	13ms
get forum data:	3ms
get page messages:	50ms
get tp. blocked users:	2ms
others:	338ms

total:	493ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы