| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите пожалуйста! [D6, Win2k]
HDD © (2002-02-20 04:00:00)Клиент
procedure TForm1.Memo1Change(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Memo1.Lines[Memo1.Lines.count -1]);
end;
Сервер
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
brgin
Form2.Memo1.Lines.Add(Socket.ReceiveText);
end;
Проблема такая когда я пишу в мемо1 клиента хотябы одну букву и автоматически начинает идти строка rrrrrrrrrrrrrrrrrrrrrrr и так до бесконечности. Помогите пожалуйста!
Smb (2002-02-22 16:56:00) [1]
procedure TForm1.Memo1Change(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Memo1.Lines[Memo1.Lines.count -1] + #10#13);
end;
BAHO (2002-02-21 04:53:00) [2]Да уж...
круто !!!
первый раз такое вижу...!!!
Это ш надо додуматься тако безконечный цикл замутить !!!
Ghost. (2002-02-20 09:18:00) [3]А че ты хотел ты строку эту в мемо и отправляешь такой какая она есть ты не ставь на "изменение"(процедуру)
| |
