Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 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.033 c
11-1064797055
SerB
2003-09-29 04:57
2004.04.25
Лучшее - враг хорошего?


1-1081437162
Михаил__
2004-04-08 19:12
2004.04.25
Combobox


14-1080855099
Knight
2004-04-02 01:31
2004.04.25
Вроде мелкий тест... а в точку


3-1080637161
DimonNew
2004-03-30 12:59
2004.04.25
dbExpress


3-1080507561
vladkat
2004-03-29 00:59
2004.04.25
Изучаю SQL. Как добавить запись в таблице с полем-массивом





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский