Как использовать TEncoding от Delphi XE для сохранения текста кириллицы или ShiftJis в файл?

Question

Я пытаюсь сохранить некоторые строки текста в кодировке, отличной от моей системы, такой как кириллица, к TFileStream, используя Delphi XE. Однако я не могу найти образец кода для создания закодированного файла?

Я пробовал использовать тот же код, что и TStrings.SaveToStream, однако я не уверен, что я его правильно реализовал (например, часть WriteBom) и хотел бы знать, как это будет сделано в другом месте. Вот мой код:

FEncoding := TEncoding.GetEncoding(1251); 
FFilePool := TObjectDictionary<string,TFileStream>.Create([doOwnsValues]); 

//... 

procedure WriteToFile(const aFile, aText: string); 
var 
    Preamble, Buffer: TBytes; 
begin 
    // Create the file if it doesn't exist 
    if not FFilePool.ContainsKey(aFile) then 
    begin 
    // Create the file 
    FFilePool.Add(aFile, TFileStream.Create(aFile, fmCreate)); 
    // Write the BOM 
    Preamble := FEncoding.GetPreamble; 
    if Length(Preamble) > 0 then 
    FFilePool[aFile].WriteBuffer(Preamble[0], Length(Preamble)); 
    end; 
    // Write to the file 
    Buffer := FEncoding.GetBytes(aText); 
    FFilePool[aFile].WriteBuffer(Buffer[0], Length(Buffer)); 
end; 

Заранее спасибо.

Answer 1

Если я понимаю, это довольно просто. Объявите AnsiString с сродством к кириллице 1251:

type 
    // The code page for ANSI-Cyrillic is 1251 
    CyrillicString = type AnsiString(1251); 

Затем назначьте Unicode строку в одном из них:

var 
    UnicodeText: string; 
    CyrillicText: CyrillicString; 
.... 
    CyrillicText := UnicodeText; 

Вы можете написать CyrillicText к ручью в традиционной манере:

if Length(CyrillicText)>0 then 
    Stream.WriteBuffer(CyrillicText[1], Length(CyrillicText)); 

Не должно быть спецификации для ANSI-кодированного текстового файла.

Answer 2

Не уверен, какой пример вы ищете; может быть следующее может помочь - пример преобразования Юникода строки (SL) в ANSI кириллицы:

procedure SaveCyrillic(SL: TStrings; Stream: TStream); 
var 
    CyrillicEncoding: TEncoding; 

begin 
    CyrillicEncoding := TEncoding.GetEncoding(1251); 
    try 
    SL.SaveToStream(Stream, CyrillicEncoding); 
    finally 
    CyrillicEncoding.Free; 
    end; 
end;