не отрабатывает IdTCPClient3->Disconnect(); / Delphi

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Delphi [игнор отключен] [закрыт для гостей] / не отрабатывает IdTCPClient3->Disconnect();

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

не отрабатывает IdTCPClient3->Disconnect();

#40033972

Mizer73

Гость

Код:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

IdTCPClient3->Disconnect();
				InW11->Lines->Add("разорвал соединение");
				return;
			}
			catch(...)
			{
				InW11->Lines->Add("......");
			}
			if (IdTCPClient3->Connected())
				InW11->Lines->Add("ДА подключен");
			else
				InW11->Lines->Add("НЕ подключен");

при проверке после дисконекта, сообщает, что подключен.
что не так?

...

Рейтинг:

0 / 0

07.01.2021, 01:16:57

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

не отрабатывает IdTCPClient3->Disconnect();

#40034041

makhaon

Участник

Откуда: A galaxy far far away

Сообщения: 3 972

Рейтинг: 0 / 0

Mizer73

Код:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

IdTCPClient3->Disconnect();
				InW11->Lines->Add("разорвал соединение");
				return;
			}
			catch(...)
			{
				InW11->Lines->Add("......");
			}
			if (IdTCPClient3->Connected())
				InW11->Lines->Add("ДА подключен");
			else
				InW11->Lines->Add("НЕ подключен");

при проверке после дисконекта, сообщает, что подключен.
что не так?

инди вся в исходниках. код относительно простой, сам с десяток мест успешно правил. отладка в помощь.

...

Рейтинг:

0 / 0

07.01.2021, 15:11:27

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

не отрабатывает IdTCPClient3->Disconnect();

#40034150

wadman

Участник

Откуда: Санкт-Петербург

Сообщения: 26 163

Рейтинг: 0 / 0

Mizer73

что не так?

Например, асинхронный вызов. Подожди немного и еще раз проверь. Или проверь по нажатию кнопки.

...

Рейтинг:

0 / 0

08.01.2021, 14:34:57

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

не отрабатывает IdTCPClient3->Disconnect();

#40034509

Mizer73

Гость

wadman,

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

...

Рейтинг:

0 / 0

09.01.2021, 23:16:13

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

не отрабатывает IdTCPClient3->Disconnect();

#40034514

DmSer

Участник

Откуда: Пенза

Сообщения: 1 490

Рейтинг: 0 / 0

Mizer73

при проверке после дисконекта, сообщает, что подключен.
что не так?

Значит в буфере InputBuffer остались необработанные байты и необходимо их сперва считать и обработать.
Ну или хотя бы считать:

Код: pascal

1.
2.

while IdTCPClient3.Socket.InputBuffer.Size > 0 do
  IdTCPClient3.Socket.ReadByte();

...

Рейтинг:

0 / 0

09.01.2021, 23:23:04

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

не отрабатывает IdTCPClient3->Disconnect();

#40034540

northener

Гость

Mizer73

wadman,

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

Ну и где код, которым получилось?

...

Рейтинг:

0 / 0

10.01.2021, 02:46:41

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

не отрабатывает IdTCPClient3->Disconnect();

#40034572

Kast2K

Участник

Откуда: Санкт-Петербург

Сообщения: 522

Рейтинг: 0 / 0

Код: pascal

1.
2.
3.
4.

IdTCPClient3.Disconnect(False);

if Assigned(IdTCPClient3.IOHandler) then
  IdTCPClient3.IOHandler.InputBuffer.Clear;

...

Рейтинг:

0 / 0

10.01.2021, 12:07:50

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

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

Форумы / Delphi [игнор отключен] [закрыт для гостей] / не отрабатывает IdTCPClient3->Disconnect();

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

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

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

start [/forum/topic.php?fid=58&msg=40034572&tid=2037722]:	0ms
get settings:	10ms
get forum list:	21ms
check forum access:	5ms
check topic access:	5ms
track hit:	59ms
get topic data:	24ms
get forum data:	4ms
get page messages:	73ms
get tp. blocked users:	4ms
others:	318ms

total:	523ms

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