Когда приходит несколько пакетов в одном
Материал из DRKB
{ **** UBPFD *********** by kladovka.net.ru ****
>> Разбиение полученных данных через ClientSocket и ServerSocket, когда приходит несколько пакетов в одном.
При получении нескольких данных по socket иногда приходят два и более пакета в одном.
Здесь пример, как разбить при получении полученную строку на несколько отправленных.
Зависимости: System, ScktComp
Автор: cyborg, cyborg1979@newmail.ru, ICQ:114205759, Бузулук
Copyright: Собственное написание (Осипов Евгений Анатольевич)
Дата: 23 мая 2002 г.
********************************************** }
{ Разделитель строк, добавляется в конец отсылаемых данных,
можно написать любой, какой нравится/какой вам подойдёт }
const Delitel: string = #13#10;
{ Процедура обработки строк, S-передаваемая строка,
Socket - Передаваемый сокет откуда пришли данные }
procedure Process_Message(var S: AnsiString; var Socket: TCustomWinSocket);
begin
{ Обрабатываем здесь полученные данные S из сокета Socket }
end;
{ Обработка события по получению данных из ClientSocket,
а так же действенно и для ServerSocket }
procedure TMyForm.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
var
S1, S2: AnsiString;
I: Integer;
begin
S1 := Socket.ReceiveText; { Присваиваем S1 полученную строку из Socket }
I := 0;
repeat { Разделяем строку, если одновременно пришло несколько }
I := Pos(Delitel, S1); { Ищем разделитель Delitel в строке S1 }
if I <> 0 then { Если найден делитель, тогда ...
Если не найден, то вы не добавили в конце отсылаемой строки Delitel! }
begin
S2 := Copy(S1, 1, I-1); { Копируем одну пришедшую строку в S2 }
Delete(S1, 1, I+Length(Delitel)-1); { Удаляем уже скопированную строку }
Process_Message(S2, Socket);
{ Вызываем процедуру обработки полученных строк,
где S2 наша выделенная строка }
end;
until I = 0; { Повторять, пока будет не найден разделитель Delitel }
end;
Author: cyborg
ID: 03565