TCPClient виснет при чтении ответа

@juninhonvp · Регистрация: 02.07.2013

Author24 — интернет-сервис помощи студентам

Приветствую. Есть что-то непонятное мне в работе программы, суть такая, программа шлет команду по TCP-IP и по идее должна получить ответ, но почему то виснет наглухо. Думаю что-то неверно написал:

Delphi

    
tcp.RemoteHost := '192.168.231.18';
tcp.RemotePort := '4001';
tcp.Active := true;
if tcp.Connect then
begin
  tcp.Sendln('$016');
  s := tcp.Receiveln;
  tcp.Disconnect;
end;
tcp.Active := false;

Хотя вот скрин путти, через нее все ок.

Буду признателен за помощь.
З.Ы. Так же писались программы на C# & Qt, тоже самое программа виснет.

@mss · 05.08.2014, 15:00

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

@juninhonvp · 05.08.2014, 16:25 **[ТС]**

Я сделал это устройство как COM порт, используя библиотеку COM порта написал код:

Delphi

COMPORT.Active := true;
  COMPORT.WriteAnsiChar(AnsiChar('$'));
  COMPORT.WriteAnsiChar(AnsiChar('0'));
  COMPORT.WriteAnsiChar(AnsiChar('1'));
  COMPORT.WriteAnsiChar(AnsiChar('6'));
  COMPORT.WriteAnsiChar(AnsiChar(#$D));
  Text := COMPORT.ReadAnsiString;

и он работает, возможно ли модифицировать как-то код в первом сообщении, чтобы он заработал?

quwy · 05.08.2014, 16:37

Сообщение от juninhonvp

возможно ли модифицировать как-то код в первом сообщении, чтобы он заработал?

Перенести чтение данных в обработчик TTcpClient.OnReceive

@mss · 05.08.2014, 16:43

Если работает, нужно заглянуть в реализацию ReadAnsiString и убедиться что она не ожидает CR

@juninhonvp · 05.08.2014, 17:13 **[ТС]**

Сообщение от mss

Если работает, нужно заглянуть в реализацию ReadAnsiString и убедиться что она не ожидает CR

CR - это #$D

@mss · 05.08.2014, 17:28

Не суть как важно
Важно что если ReadAnsiString не ожидает ни CR, ни LF, ни CRLF, то метод ReceiveLn заведомо не годится, и значит вместо него придется использовать ReceiveBuf

@juninhonvp · 05.08.2014, 17:53 **[ТС]**

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

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	05.08.2014, 15:00	2
	Вероятно ответ сервера на данный запрос по протоколу не подразумевает терминирующую строку ответа CRLF-последовательнолсть, в то время как метод ReceiveLn ожидает ее получение, прежде чем вернуть управление. 1

quwy Native x86 5514 / 3273 / 934 Регистрация: 13.02.2013 Сообщений: 10,424
	05.08.2014, 16:37	4
	Сообщение от juninhonvp возможно ли модифицировать как-то код в первом сообщении, чтобы он заработал? Перенести чтение данных в обработчик TTcpClient.OnReceive 1

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	05.08.2014, 16:43	5
	Если работает, нужно заглянуть в реализацию ReadAnsiString и убедиться что она не ожидает CR 0

@juninhonvp 3 / 3 / 2 Регистрация: 02.07.2013 Сообщений: 31
	05.08.2014, 17:13 [ТС]	6
	Сообщение от mss Если работает, нужно заглянуть в реализацию ReadAnsiString и убедиться что она не ожидает CR CR - это #$D 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	05.08.2014, 17:28	7
	Не суть как важно Важно что если ReadAnsiString не ожидает ни CR, ни LF, ни CRLF, то метод ReceiveLn заведомо не годится, и значит вместо него придется использовать ReceiveBuf 1

@juninhonvp 3 / 3 / 2 Регистрация: 02.07.2013 Сообщений: 31
	05.08.2014, 17:53 [ТС]	8
	Спасибо за ответы, завтра продолжим, прогоню дебагером эту функцию, глянул, она там прилично всего вызывает, и есть что-то похожее на ожидание CR. 0