1. Нужно конвертировать строку в двоичные данные:
Код:
Procedure StringToStream(s: string; MS: TStream);
Var
b: byte;
i: integer;
begin
i := 1;
while i <= length(s) do
begin
b := strtoint('$' + copy(s, i, 2));
MS.Write(b, 1);
inc(i, 2);
end;
end;
2. Двоичные данные - XML текст, упакованный ZLIB
_________________
Как правильно задавать вопросы на форуме поддержкиПредоставление услуг с 1.01.2020Если я пишу "исправил", "сделал" и т.д., это значит что собрана новая сборка и выложена на сайт. Нужно обновить программу чтобы получить исправления.