Главная страница
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.011 c
1-17530
Юляша
2002-04-23 21:05
2002.05.06
Активизация формы


7-17717
Slava B.
2002-02-08 23:54
2002.05.06
Векторные объекты и clipboard


1-17630
Executor
2002-04-23 09:52
2002.05.06
Как округлить.


3-17467
viru$
2002-04-11 18:57
2002.05.06
Вопрос по клиент/сервер


14-17694
Игорь Шпизель
2002-03-29 19:01
2002.05.06
CGI в Delphi ...