Как получить AReadLinesCount IdTCPClient

Question

Существует определенный удаленный сервер. Я хочу, чтобы получить ответ от него

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Memo1.Clear; 

    IdTCPClient1.Host := '163.158.182.243'; 
    IdTCPClient1.Port := 28900; 
    IdTCPClient1.Connect; 
end; 

procedure TForm1.IdTCPClient1Connected(Sender: TObject); 
begin 
    IdTCPClient1.IOHandler.Write('001'); 
    IdTCPClient1.IOHandler.ReadStrings(Memo1.Lines, 25, IndyTextEncoding(IdTextEncodingType.encOSDefault)); 
end; 

Процедура требует параметр, чтобы указать AReadLinesCount, в противном случае программа перестает отвечать на запросы

procedure TIdIOHandler.ReadStrings(ADest: TStrings; AReadLinesCount: Integer = -1; 
    AByteEncoding: IIdTextEncoding = nil 
    {$IFDEF STRING_IS_ANSI}; ADestEncoding: IIdTextEncoding = nil{$ENDIF} 
); 

Как AReadLinesCount из полученных ответов

Answer 1

Сервер должен сообщить вашему клиенту, когда прекратить чтение. Это можно сделать двумя способами:

1. Он может отправлять количество строк перед отправкой самих линий. Сначала вы должны прочитать номер, а затем прочитать указанное количество строк.

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

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