Socket.SendText проблема

[Vohakisa]

Сообщение от Terran

В Делфи не встречал такой функции. Можете написать сами или допустим после каждой строки добавлять какой-нибудь символ и потом по нему и разделять назад данные.

+1. В своё время делал так. Если отсылал несколько строк допустим из БД несколько записей, то значение полей разделял символом "/", а строку символом ";" и отправлял клиенту как единую строку, а клиент уже у себя в цикле разбивал полученную строку.

[kotte33]

Сообщение от Terran

В Делфи не встречал такой функции. Можете написать сами или допустим после каждой строки добавлять какой-нибудь символ и потом по нему и разделять назад данные.

Я недавно встретил подобную функцию в делфи, гораздо упрощает работу в "пакетном" режиме и имя ей ExtractStrings:


Код на передачу (Packet - переменная типа string, слепляется из 4 переменных тоже типа string):

Packet:=code+#11+TextSit+#11+StrT+#11+StrD; //формирование пакета для передачи
for n:=0 to ServerSocket1.Socket.ActiveConnections-1 do ServerSocket1.Socket.Connections[n].SendText(ansistring(Packet));

Процедура на расшифровку:

procedure TMainForm.DecodePacket(Packet:string); //Расшифровка пакета
begin
PacketList.Clear; //Очистка списка
ExtractStrings([#11], [' '], PChar(Packet), PacketList);
Code:=PacketList[0];     //Код ситуации
TextSit:=PacketList[1];  //Текстовка сообщения
ST:=PacketList[2];       //Строка состояния таблицы
SD:=PacketList[3];       //Строка отметок диспетчеров
end;

В данном случае PacketList - глобальная переменная типа TStringList, созданная в начале работы программы и обязательно уничтоженная по выходы из нее (если уж совсем разжеванно):

...
var PacketList:TstringList;
...

procedure TMainForm.FormCreate(Sender: TObject);
begin
...
PacketList := TStringList.Create(); //Создать пакетный список
...
end;


procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
...
PacketList.Free(); //Очистить из памяти пакетный список 
...
end;

В данном случае я использовал системный символ с кодом #11 для разделения строк, но можно использовать любой другой и даже комбинацию этих символов (#10#13 например).
PS: за работу кода ручаюсь на 95% т.к. программа пока в бета-версии))

Особенность данного использования в том, что нужно контролировать "строки на вход", то бишь если отправлять 4 строки и третья будет пустой, то расшифровка в итоге даст 3 строки ВООБЩЕ, т.е. пустую строку он проскакивает. Следовательно перед отправкой надо проверять элементы пакета на размер, если на том конце <NULL> очень страшные последствия может принести ))