|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Интересная проблема с TcpServer & TcpClient
Доброго дня суток)) Решил написать свой маленький чатик для общения в локалке. НО, интересная штука возникла, первое сообщение с любого конца доходит спокойно, а потом начинает подвисать, т.е. из последующих 20 сообщений может быть дойдет 1 или 2 и то может быть. Перепробовал все, демки Делфи смарел, там слишком заумно, мне так не нужно. Вот собсна сам код :
Код:
procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin try tcpclient1.Open; for i:= 1 to (memo2.Lines.Count) do tcpclient1.Sendln(memo2.Lines[i]); tcpclient1.Close; except showmessage('oops'); end; memo2.Text :=''; end; И Код:
procedure TForm1.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient); begin try memo1.lines.add(clientsocket.Receiveln); except showmessage('oops'); end; end; Мож кто поможет чем-нить? |