Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

использование потоков для передачи строковой информации [D7]


alexandr ©   (2010-05-08 20:18:00) 

Всем привет!
С праздником Победы!
У меня возник вопрос, на который я не могу найти ответ, возможно, он не такой сложный для тех, кто это уже прошел. При передаче строковой информации от сервера клиентам с использованием перебора потоков клиентов в LockList и отправке информации с помощью WriteStrings с заданной цикличностью в TTimer, клиент получает информацию, но она каждый раз прибавляется к ранее высланной  информации и поток увеличивается в арифметической прогрессии. Если кто может, подскажите в каком направлении копать, чтобы пересылалась только нужная информация?  Вопроса на сайте не нашел. Прошу помочь.
Заранее спасибо.


alexandr   (2010-05-09 23:12:00) [1]

Спасибо за подсказку, перенес очистку текста strT.Text, поставил ее перед ReadStrings, проблема устранена.

procedure TClientOnRec.Execute;

begin
 strT:=TStringList.Create;
// strT.Text:='';

 While not Terminated do
  begin
     If not form1.IdTCPClient2.Connected then

     Terminate
  else
 try
     strT.Text:='';

     form1.IdTCPClient2.ReadStrings(strT,-1);


Sha   (2010-05-09 13:58:00) [2]

> alexandr ©   (08.05.10 20:18)

Надо вставить очистку переданных или принятых данных.


Сергей М.   (2010-05-08 22:29:00) [3]


> alexandr ©   (08.05.10 20:18)  


Да кто ж тебя знает что ты там понахреновертил в своем коде..

Но в 17й строке ошибка есть точно)


Плохиш   (2010-05-08 21:45:00) [4]


> Если кто может, подскажите в каком направлении копать, чтобы
> пересылалась только нужная информация?

Подозреваю, что в 17й строке кода должно быть:
sPeredavaemajaInformacija := '';


Наверх

Титульная страница Поиск, карта сайта Написать письмо