Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.06;
Скачать: CL | DM;

Вниз

Помогите пожалуйста!   Найти похожие ветки 

 
HDD ©   (2002-02-20 04:00) [0]

Клиент
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 и так до бесконечности. Помогите пожалуйста!


 
Ghost. ©   (2002-02-20 09:18) [1]

А че ты хотел ты строку эту в мемо и отправляешь такой какая она есть ты не ставь на "изменение"(процедуру)


 
BAHO ©   (2002-02-21 04:53) [2]

Да уж...
круто !!!
первый раз такое вижу...!!!
Это ш надо додуматься тако безконечный цикл замутить !!!


 
Smb   (2002-02-22 16:56) [3]

procedure TForm1.Memo1Change(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Memo1.Lines[Memo1.Lines.count -1] + #10#13);
end;



Страницы: 1 вся ветка

Текущий архив: 2002.05.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
1-17549
Катерина
2002-04-23 14:25
2002.05.06
Опять про Chart


3-17508
Евкисий
2002-04-11 20:13
2002.05.06
добавление поля в таблицу


1-17589
Zyxel
2002-04-22 16:13
2002.05.06
Types of actual and formal var parameters must be identical


3-17482
sergey32
2002-04-12 10:16
2002.05.06
Не могу запустить цикл по IBQuery


3-17472
yozhik
2002-04-09 14:34
2002.05.06
Копирование данных между двумя базами.