Показать отправителя и приоритет сообщения idUDPServer + idUDPClient

[le7o]

Есть программа в которой реализована отправка сообщений, как сделать так что бы была возможность дополнительно передать имя отправившего и приоритет, IP в сети раздаются по DHCP?

P.s.: Пока посещают мысли парсить входящие сообщение, а отправителя и приоритет указывать в начале сообщения...

Что пока есть:

Отправка сообщения:

procedure TForm1.sButton1Click(Sender: TObject);
begin
  IdUDPClient1.Send('1'+#13#10+'2'+#13#10+smemo1.Lines.Text, IndyTextEncoding_UTF8);
end;

Вместо 1 и 2 планируется соответственно: отправитель и приоритет.

Получение сообщения:

procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);
var
  s: String;
begin
s:= BytesToString(AData, IndyTextEncoding_UTF8);

if Pos('1', s) = 1 then
begin
    Delete(s, 1, 3);
    slabel1.caption:='Приоритет = 1';
    sMemo2.Lines.Add(ABinding.PeerIP+' - ' + s);
end
else
  sMemo2.Lines.Add('не указан приоритет');

ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, BytesToString(AData), Id_IPv4, IndyTextEncoding_UTF8);
end;

[Stilet]

Пока посещают мысли парсить входящие сообщение, а отправителя и приоритет указывать в начале сообщения...

Ну логично.
Я бы сделал (т.е. я вообще-то так и делаю сейчас) так:

IdUDPClient1.Send('Приоритет=1'#13#10'Юзер='+Base64Encode(UserName)+#13#10+'Текст='+Base64Encode(smemo1.Lines.Text), IndyTextEncoding_UTF8);

Где Base64Encode() функция кодирования в Base64.

На сервере соответственно:

procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);
begin
with TStringList.Create do begin
 text:= BytesToString(AData, IndyTextEncoding_UTF8);
 slabel1.caption:='Приоритет: '+Values['Приоритет'];
 sMemo2.Lines.Add(ABinding.PeerIP+' - ' + Base64Decode(Values['Юзер']));
 sMemo2.Lines.Add(Base64Decode(Values['Текст']));
 Free;
end;
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, BytesToString(AData), Id_IPv4, IndyTextEncoding_UTF8);
end;

Base64Decode() - функция декодирования.

[le7o]

Да, спасибо...
Сначала думал использовать record, но Ваше решение гораздо лучше...

[Stilet]

Да не за что )
Можно и record-ить, просто как-то не модно что ли...

[le7o]

Последний вопрос Base64 Вы используете от Synapse, или у Вас самописные функции с использованием indy?

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

Да не за что )
Можно и record-ить, просто как-то не модно что ли...

[Stilet]

Самописка с Delphiworld. Но можно любую.

[le7o]

Спасибо, попробую поискать...

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

Самописка с Delphiworld. Но можно любую.

[Stilet]

INDY юзай, не стесняйся. Там либо Base64 либо URIEncode() на твой вкус. Я и то и другое использую в зависимости от удобств. Но больше Base64.

[le7o]

Решил юзать стандартный (System.NetEncoding.TNetEncoding) класс поставляемый с RAD XE начиная с XE7 ...

На форумах встречал много тем по base64 для XE версий Delphi - может кому и пригодится:

uses System.NetEncoding;

кодирование:

 
sMemo4.Lines.Add(TNetEncoding.Base64.Encode(sMemo3.Text));

декодирование:

 
sMemo3.Lines.Add(TNetEncoding.Base64.Decode(sMemo4.Text));

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

INDY юзай, не стесняйся. Там либо Base64 либо URIEncode() на твой вкус. Я и то и другое использую в зависимости от удобств. Но больше Base64.