Как в TidTCPClient принять строку?

← →
dr Tr0jan © (2004-02-04 07:39) [0]

Как в TidTCPClient принять строку, которую передал TidTCPServer?
Я знаю, что есть такая функция TidTCPClient.ReadLn(): string;.
Но как принимать эти строки постоянно, при использовании таймера клиент наглухо виснет (да и думаю, что это не самый подходящий способ).

← →
Reindeer Moss Eater © (2004-02-04 08:44) [1]

repeat
MyString:=TidTCPClient.ReadLn;
until not постоянно;

← →
dr Tr0jan © (2004-02-04 14:15) [2]

Это то же самое, опять клиент наглухо виснет.

← →
Reindeer Moss Eater © (2004-02-04 14:17) [3]

Никакой клиент не виснет.
Клиент постоянно принимает строки.

← →
Manulo © (2004-02-04 15:30) [4]

добавь на форму IdAnteFreeze. Должно попустить

← →
Александр из Минска © (2004-02-04 21:20) [5]

Согласен с Reindeer Moss Eater, в Demos\Internet\Chat\Client всё нормально берёт, даже используя таймер.

← →
dr Tr0jan © (2004-02-05 02:44) [6]

2 Reindeer Moss Eater ©:

>Никакой клиент не виснет.
Клиент постоянно принимает строки.

Ну я это и имею ввиду, вот только ни в какие окна клиента ничё прописать нельзя.

2 Manulo ©:

Спасибо, попробую!

2 Александр из Минска ©:

разве в Delphi 7 есть такая папка, чё-то я не видел.

← →
dr Tr0jan © (2004-02-05 02:44) [7]

Удалено модератором
Примечание: Дубль...

← →
Reindeer Moss Eater © (2004-02-05 10:31) [8]

Ну я это и имею ввиду, вот только ни в какие окна клиента ничё прописать нельзя.

В исходном вопросе ни слова ни про какие окна нет.

← →
dr Tr0jan © (2004-02-05 14:58) [9]

2 Reindeer Moss Eater ©:

> В исходном вопросе ни слова ни про какие окна нет.

При использовании таймера клиент наглухо виснет. А клиент постороен на окнах.

Звиняйте времени проверить антифриз не было, может завтра проверю.

Вопрос:

...Но как принимать эти строки постоянно, при использовании таймера клиент наглухо виснет ...

Ответ:

repeat
MyString:=TidTCPClient.ReadLn;
until not постоянно;

Таймера нет, и строки принимаются постоянно.
Если что-то в вопросе подразумевалось еще, то я тоже в свою очередь подразумевал, что спрашивающий знаком с многопоточностью в Windows и вспомогательными классами используемой библиотеки

dr Tr0jan © (04.02.04 07:39):

function ReadLn(ATerminator: string = LF; const ATimeout: Integer = IdTimeoutDefault; AMaxLineLength: Integer = -1): string;

чтобы не висло в таймере делай ReadLn с таймаутом например 5 ms.

Как в TidTCPClient принять строку? Найти похожие ветки