Delphi7 и (Windows-1251, UTF-16) как сдружить?

[Ship_1]

Надеюсь, это реально сделать какой-нибудь умной самописной функцией, которую кто-нибудь знает? Или ещё как-то по-хитрому... Или хоть юнитом каким-нибудь.... Главное, чтоб без установки компонентов. В самом крайнем случае могла бы прокатить dll, если уж по-другому совсем никак. Потому что по-простому, видимо, нельзя, т.к. в интернете мне так и не удалось найти как это сделать.
На всякий случай сама задача: есть принтер сетевой, у которого есть веб-интерфейс, у которого есть страница с очередью. Проблема в том, что в очереди иногда появляются строки в этой кодировке. В самом веб-интерфейсе они отображаются "иероглифами", но средствами интернет-декодеров удалось понять, что это Windows-1251, UTF-16. Как такое можно отобразить в Delphi 7?
Пример:

㐭ㄴ峎죑尳⸠퇲⃐峝ㅜ���⻏탑⸳
㄰⸱ⴱ㜮ㄩ就㈠쇠㈸⸰ ⃑⃭

[Аватар]

WideCharToMultiByte kernel32.dll если что. Можно и самому написать тщательно изучив устройство utf16. Что будешь делать если там не ансиишные символы, типа китайско-турецких или еще чего?
а Windows-1251 это есть однобайтная кириллическая ансистринг, cp1251 еще, д7 без проблем ее понимает и с ней работает

[Ship_1]

2cyr.com про эти символы пишет: "Исходная кодировка: Windows-1251, отображаемая как: UTF-16". Я, вообще-то, толком не пойму даже как это понять. То ли cp1251, отображаемая в UTF-16 выглядит иероглифами, то ли иероглифы, декодированные через cp1251 и выведенные как UTF-16 выглядят как нормальный текст.
Что-то нашёл функцию, но не пойму что к чему...

function UnicodeToAnsiString(const ws: WideString; codePage: Word): AnsiString;
 overload;
var
 l: integer;
begin
 if ws = '' then
   Result := ''
 else
 begin
   l := WideCharToMultiByte(codePage,
     WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,
     @ws[1], -1, nil, 0, nil, nil);
   SetLength(Result, l - 1);
   if l > 1 then
     WideCharToMultiByte(codePage,
       WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,
       @ws[1], -1, @Result[1], l - 1, nil, nil);
 end;
end;

при коде 1200 (UTF-16 отсюда) ничего не выводит. При 1251 выводит то же, что и вообще без этой функции

яю-441О\СИ3\ .тСдаяиР Э\тскада а\1эяэяэяП.СР3.( 011.1-.7)11\ 2аБкл а820.

А должно быть

4-14\ОИС\3. Стадия Р\Эстакада 1\яэяэяэ.ПРС.3 (10.1-17.1)\12 Балка 28.0м. Схема напрягаемого армировани

P.S. Строку получаю из файла

  TmpStrL:=TStringList.Create;
  TmpStrL.LoadFromFile('CodeText.txt');

и беру TmpStrL[0], в которой это и записал.

[Vapaamies]

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

P.S. Строку получаю из файла

  TmpStrL:=TStringList.Create;
  TmpStrL.LoadFromFile('CodeText.txt');

и беру TmpStrL[0], в которой это и записал.

Хоть убей, не могу представить, как в этом случае в строке оказываются иероглифы. В Delphi 7 это невозможно. Как вариант, строка приходит частично или полностью битой, поэтому если получилось восстановить -- надо благодарить бога.

Зато я знаю, как эти иероглифы получить:

const
  A: AnsiString = '4-14\ОИС\3. Стадия Р\Эстакада 1\яэяэяэ.ПРС.3 (10.1-17.1)\12 Балка 28.0м. Схема напрягаемого армировани'#0;
begin
  MessageBoxW(0, Pointer(A), nil, 0);
end;

[Аватар]

А тот CodeText.txt сюда вложением можно?

[Ship_1]

Сообщение от Аватар

А тот CodeText.txt сюда вложением можно?

Загрузил, заодно и со скрином как это выглядит в веб-интерфейсе.
И даже заодно фрагмент html сохранённого. Только поменял расширение на txt, т.к. html тут в разрешённых не присутствует.

[Аватар]

В Фрагмент.txt точно не utf16

[Ship_1]

Если его в html переименовать и открыть браузером, то появится тот самый вид.
Ну 2cyr именно как "Исходная кодировка: Windows-1251, отображаемая как: UTF-16" позволил отобразить его в правильном виде...

[Vapaamies]

var
  Source: WideString;
  P, Head, Tail, Limit: PWideChar;
  S, Decoded: AnsiString;
  I: Integer;
begin
  with TFileStream.Create('T:\Фрагмент.txt', fmOpenRead or fmShareDenyWrite) do
  try
    SetLength(S, Size);
    ReadBuffer(S[1], Length(S));
  finally
    Free;
  end;
  Source := Utf8Decode(S);
  P := Pointer(Source);
  if P <> nil then
  begin
    Limit := P + Length(Source);
    while (P^ < WideChar($8000)) and (P < Limit) do
      Inc(P);
    if P < Limit then
    begin
      Head := P;
      Inc(P);
      while (P^ <> '<') and (P < Limit) do // берем до начала </font>
        Inc(P);
      if P < Limit then
      begin
        Tail := P;
        SetString(Decoded, PAnsiChar(Head), (Tail - Head) * SizeOf(WideChar));
        ShowMessage(Decoded);
      end;
    end;
  end;
end;

[Vapaamies]

Написал второй вариант, для второго файла. Так и не смог понять, почему он вторую строку не определяет по переводу строки:

var
  Source: WideString;
  P, Head, Tail, Limit: PWideChar;
  S, Decoded: AnsiString;
  I: Integer;
begin
  with TFileStream.Create('T:\CodeText.txt', fmOpenRead or fmShareDenyWrite) do
  try
    SetLength(Source, Size div SizeOf(WideChar));
    ReadBuffer(Source[1], Length(Source));
  finally
    Free;
  end;
  P := Pointer(Source);
  if P <> nil then
  begin
    Inc(P);
    Limit := P + Length(Source);
    Head := P;
    while P < Limit do
    begin
      while (P^ <> #13) and (P^ <> #10) and (P < Limit) do
        Inc(P);
      Tail := P;
      if Head^ >= WideChar($20FF) then
        SetString(Decoded, PAnsiChar(Head), (Tail - Head) * SizeOf(WideChar))
      else
      begin
        SetLength(Decoded, Tail - Head);
        WideCharToMultiByte(CP_ACP, 0, Head, Tail - Head, Pointer(Decoded), Length(Decoded), nil, nil);
      end;
      ShowMessage(Decoded);
      if (P^ = #13) and (P[1] = #10) then
        Inc(P);
      Inc(P);
      Head := P;
    end;
  end;
end;

В целом же могу сказать, что это больше похоже на утечку памяти в программе, поскольку данные только похожи на осмысленные, а на самом деле перемешаны, и среди текста встречаются двоичные коды. При утечках остатки текста могут оставаться в памяти, поскольку компиляторы обычно распределяют данные с выравниванием, из-за чего текст сохраняется в мертвом пространстве, а в некоторых местах прерывается двоичными данными.