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

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

работа с TClient/TServerSocket [D7, WinXP]

4ward ©   (2004-02-27 14:23:00) 

отсылаю SendText'ом на сервере подряд несколько сообщений на один и тот же клиент. при приёме на клиентской стороне принимается конкатенация отправленных строк. как сделать, чтобы строки приходили по одной?
З.Ы. Заранее извиняюсь за ламерский вопрос

---

TButton   (2004-02-27 18:46:00) [1]

маленькое примечание в конце каждой строки прилепляй #13#10 (или наоборот)... точно не помню... это общепринятое.

---

TButton   (2004-02-27 18:34:00) [2]

парсить строки... счас функцию кину.

function ParseString(s: string): TStringList;
var
 list:TStringList;
 ss:string;
 i:integer;
begin
 list:=TStringList.Create;
 list.Clear;
 ss:='';
 result:=list;
 if s='' then exit;
 for i:=1 to Length(s) do
 begin
   if Ord(s[i])>31
     then ss:=ss+s[i]
     else if s[i]=Chr(13) then
     begin
       list.Add(ss);
       ss:='';
     end;
 end;
 result:=list;
end;


если интересно могу весь модуль для парсинга (самодельный) изложить.

---

Verg   (2004-02-27 14:33:00) [3]

На приеме дробить принимаемый потокпо строкам, зная их разделители.

---

Наверх