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

Вниз

работа с TClient/TServerSocket   Найти похожие ветки 

← →
4ward   (2004-02-27 14:23) [0]

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

---

← →
Verg ©   (2004-02-27 14:33) [1]

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

---

← →
TButton ©   (2004-02-27 18:34) [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;


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

---

← →
TButton ©   (2004-02-27 18:46) [3]

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.022 c