Как же работать с этим TStream?

[Ship_1]

Здравствуйте!
Суть вот в чём.
Есть строка в непонятной кодировке (когда-то пытался с этим разобраться, но до конца так и не дошёл, предпринял вторую попытку)
Декодировал её через онлайн, сохранил оба варианта в текстовый файл, через тотал коммандер глянул шестнадцатеричный вид строки. Эксперимент показал, что в непонятной кодировке байты попарно переставлены местами, а строка берётся этими парами перепутанных байт. В результате размер нормальной строки равен двойному размеру кодированной.
Сохранить в текстовый файл получилось через

SaveStrList.SaveToFile('CodeSimv.txt', TEncoding.Unicode);

(SaveStrList - TStringList)
Решил таким путём сохранить в TStream, но как работать с ним не понимаю. В результате пока насобирал такой код:

procedure TForm1.Button4Click(Sender: TObject);
var
  Stream1:TStream;
  SaveStrList:TStringList;
  a:Integer;
begin
  Stream1:=TMemoryStream.Create;
  SaveStrList:=TStringList.Create;
  SaveStrList.Add(Edit1.Text);
  SaveStrList.SaveToStream(Stream1, TEncoding.Unicode);
  a := Stream1.Size;
  SaveStrList.LoadFromStream(Stream1);
  ShowMessage(IntToStr(a)+#13+IntToStr(length(SaveStrList.Text)));
  SaveStrList.Free;
  Stream1.Free;
end;

Программа, почему-то, показывает, что a = 128 а length(SaveStrList.Text) = 0. Как с этим быть и как докопаться до байт, чтобы переставить их местами обратно?

[p51x]

После записи перед чтением не установили позицию стрима в 0 и читаете в конце, а там естественно 0 символов.

[Alex11223]

Что за строка-то?

[Pavia]

а строка берётся этими парами перепутанных байт.

изучите как числа хранятся в компьютере. Есть два подхода старшими разрядами в перёд и второй младшими.Есть от Intel, а есть от Motorola
https://ru.wikipedia.org/wiki/%D0%9F...82%D0%BE%D0%B2

. Как с этим быть и как докопаться до байт, чтобы переставить их местами обратно?

Заведите массив. Считайте свою строку в массив и далее работайте с массивом.

var row:array of Byte;
begin
...
SetLength(row, stream.Size);
stream.ReadBuffer(@row[0], stream.Size);

Про форматы строк 2-х байтовые это либо Unicode или Utf-16.

[Ship_1]

p51x Помогло. Не думал, что в этом случае надо всё равно на начало перемещать, а не только для Read...
Alex11223 строка

屜浯獰牯敫琳⹬潣慬峏尰ㄳ㈭ㄶ峎퇏峑술컏템퇢 忱弰ㄳ㈭ㄶ⃎쿑弨퇑���⥜퇢忱弰ㄳ㈭ㄶ ⃎쿑

В результате получаю нормальную строку таким путём:

procedure TForm1.Button4Click(Sender: TObject);
var
  Stream1:TStream;
  SaveStrList:TStringList;
  i:Integer;
  TmpStr, TmpS:String;
begin
  Stream1:=TMemoryStream.Create;
  SaveStrList:=TStringList.Create;
  SaveStrList.Add(Edit1.Text);
  SaveStrList.SaveToStream(Stream1, TEncoding.Unicode);
  Stream1.Seek(1,soFromBeginning);
  SaveStrList.LoadFromStream(Stream1);
  TmpStr:=SaveStrList.Text;
  TmpS:='';
  for i:=1 to (Length(TmpStr)-1) div 2 do
  begin
    TmpS:=TmpS+TmpStr[i*2+1]+TmpStr[i*2];
  end;
  Edit4.Text:=TmpS;
  SaveStrList.Free;
  Stream1.Free;
end;

В Edit1 входная строка из иероглифов, в Edit4 результирующая.
Если в

Stream1.Seek(1,soFromBeginning);

вместо 1 ставлю 0, получаю на выходе опять те же иероглифы. Если в

for i:=1 to (Length(TmpStr)-1) div 2 do

ставлю от 0, от получаю в Edit4 "ю" и всё.
В принципе, в данном виде меня бы всё устраивало, но интересуют два вопроса: нормально ли такое преобразование (или можно как-то лучше) и как без потока понять: строка на входе нормальная или из иероглифов?
Шестнадцатиричный код показывает, что первый символ FF, второй FE. Как-то по ним, видимо, но можно ли их проверить без потоков?

Pavia в конец потом надо добавить?

SetLength(row, 0);

Есть два подхода старшими разрядами в перёд и второй младшими.

Big Indian и Small Indian - это не про это?

[Alex11223]

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

Шестнадцатиричный код показывает, что первый символ FF, второй FE

Это BOM https://ru.wikipedia.org/wiki/%D0%9C...82%D0%BE%D0%B2

FFFE это Little Endian, FEFF — Big Endian.

То есть видимо там UTF-16 LE.

Скорее всего можно просто присвоить в WideString.

[Ship_1]

  TWS:=WideString(Edit1.Text);
  Edit4.Text:=TWS;

Так? Получает те же иероглифы.
А как получить BOM строки TmpStr? Если просто TmpStr[1] - это же будет просто первый иероглиф, и, как понимаю, без этого BOM...

P.S. Спасибо всем за ссылки, где можно почитать дополнительную информацию!

[Pavia]

Ship_1

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

Pavia в конец потом надо добавить?

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

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

Big Indian и Small Indian - это не про это?

Да про них.

Забыл спросить какая версия Delphi у вас?
Если XE то там

var
  Encoding:TEncoding;
  Unicode:TEncoding;
  Text:String;
  Stream:TBytesStream;
  Bytes:Tbytes;
begin
     Stream:=TBytesStream.Create;
     Stream.LoadFromFile(FileIn);

     Stream.Seek(0,soBeginning);
     Encoding:=Nil;
     Unicode:=TEncoding.Unicode.Create;
     TEncoding.GetBufferEncoding(Stream.Bytes, Encoding, Unicode);
     Text:=Encoding.GetString(Stream.Bytes);

[Ship_1]

Pavia Да, в данном случае XE. Но, если не сложно, хотелось бы знать как и для Delphi7 это можно сделать. Сейчас использовал XE потому что в D7, как понимаю, нет TEncoding.
И у меня текст не из файла берётся...

Stream.LoadFromFile(FileIn);

У меня это кусок из текста будет...

[Ship_1]

Pavia, попробовал с массивом. Но компилятор выдал ошибку:

[DCC Error] Unit1.pas(212): E2197 Constant object cannot be passed as var parameter

(на строчке "ReadBuffer")