Форум: "Сети";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];
Вниз
работа с 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.035 c
