Китайские символы при работе с TMEmoryStream

@Олег2000про · Регистрация: 13.11.2015

Author24 — интернет-сервис помощи студентам

Записываю текст в TMEmoryStream

Delphi

      sl:=TMemoryStream.Create;
      s:='строка';
      sl.Write(s[1],length(s));
      sl.Position:=0;

Потом отправляю SendStream.
принимаю так

Delphi

    
var ldata:string;
 
          receivel.Position:=0;
              SetLength(ldata,receivel.Size);
              receivel.Read(ldata[1], receivel.Size);
              Form2.Memo3.Text:=ldata;

В место строки приходят китайские символы

@krapotkin · 20.02.2017, 09:43

немного бесит каждый раз просить указывайте версию делфи
в версиях до 2009 char - это 1 байт
выше - char - 2 байта
поэтому записать length(s) это - не всю строку а половину
кроме того при посылке не проще взять TStringStream вместо TMemoryStream ?

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	20.02.2017, 09:43	2
	немного бесит каждый раз просить указывайте версию делфи в версиях до 2009 char - это 1 байт выше - char - 2 байта поэтому записать length(s) это - не всю строку а половину кроме того при посылке не проще взять TStringStream вместо TMemoryStream ? 0