VPF::(Indy) Отсылает одно сообщение за подключение

zhefran

Дата 3.10.2007, 16:02 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 237
Регистрация: 27.9.2007
Где: Винница-Киев-Ирпе нь-?, Украина

Репутация: нет
Всего: нет

За одно подключение отсылает одно сообщение, а нужно что бы писало 2-3
Код клиента

Код


TCPClient.Host:=Edit2.Text;
TCPClient.Port:=6052;
 with TCPClient do
  begin
  Connect;
  try
  //Memo1.Lines.Add(ReadLn);
  WriteLn(Edit1.Text);
  WriteLn('klop');
  finally
  Disconnect;
  end;
  end;

Код сервака

Код


 var
s:string;
begin

if AThread.Connection.Connected=true then
  try
 {  AThread.Connection.WriteLn('Work');
  WriteLn('Work');
  Memo1.Clear; }
  s:=AThread.Connection.Readln;
  Memo1.Lines.Add(s);
  finally
  AThread.Connection.Disconnect;
  end;

Можно ли это сделать? И если можно, то как?

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

zhefran

Дата 5.10.2007, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Я уже роздуплился. Оказываеться нужно было просто в серваке добавить еще столько

Код


s:=AThread.Connection.Readln;
  Memo1.Lines.Add(s);

сколько нужно или замутить цыкл на считывание.

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »