Utf-16LE to UTF-8

[Brainenjii]

Здравствуйте,
пытаюсь запросить у wmic список установленного ПО через wmic product get name, но оно возвращает результат в UTF-16LE. Как ни бьюсь - заполучить оный в UTF-8 не получается. Как это можно сделать без iconv?
Спасибо.

[Sergei I. Gorelkin]

А что не так с Utf8Encode()?

[Brainenjii]

А не обрабатывает... Прикладываю файл с коварным UTF-16LE ^_^
P.S. АААААААААААААААА 0.о Какие-то параноидальные настройки добавления вложений!!! На все попытки - или запрещено расширение, или не удалось определить размеры изображения >_<
P.P.S. попробуйте сделать wmic /OUTPUT:\path\to\file product get name - получите ту самую кодировку...

[Sergei I. Gorelkin]

Сделал, получил. Самая натуральная utf-16le.
Дальше нужно действовать как-то так:

Код: Выделить всё

var
  istream: TStream;
  ofile: TextFile;
  buffer: array[0..1023] of widechar;
  ws: widestring;
  s: string;
begin
  istream := TFileStream.Create('имя_файла_с_utf16.txt', fmOpenRead);
  Assign(ofile, 'имя_файла_с_utf8.txt');
  repeat
    count := istream.read(buffer, sizeof(buffer));
    SetString(ws, buffer, count div sizeof(widechar));
    s := utf8encode(ws);
    write(ofile, s);
  until count < sizeof(buffer);
  istream.free;
  closeFile(ofile);
end;


[count]

procedure utf16to8(fname_in,fname_out:string);
var
istream: TStream;
ofile: TextFile;
buffer: array[0..1023] of widechar;
ws: widestring;
s: string;
count:integer;
begin
istream := TFileStream.Create(fname_in, fmOpenRead);
if not FileExists(fname_out) then FileClose(FileCreate(fname_out));
Assign(ofile, fname_out);
repeat
count := istream.read(buffer, sizeof(buffer));
SetString(ws, buffer, count div sizeof(widechar));
s := utf8encode(ws);
append(ofile);
write(ofile, s);
until count < sizeof(buffer);
istream.free;
closeFile(ofile);
end;