コンソール画面のバッファにUnicode文字列を書き込むにはどうすればいいですか？

Question

は標準出力デバイスからハンドルを（hStdOutここ）を考えると、私は、コンソールアプリケーションから任意の文字列の書き込みには、以下の2つの手順を使用します。

抜粋：

procedure Send(const s: string); 
var 
    len: cardinal; 
begin 
    len:=Length(s); 
    WriteFile(hStdOut,s[1],len,len,nil); 
end; 

procedure SendLn(const s: string); 
begin 
    Send(s + #13#10); 
end; 

を私のトラブル：

この文は、私が期待どおりの文字列を正しく表示しません：

SendLn('The harder they come...'); 

私の質問：

はWriteFileの「WideStringの」オーバーロードがありますか私は、コンソールスクリーンバッファにアクセスする他のUnicode対応機能を検討する必要がありますか？

Answer 1

1つの問題は、バイト文字ではなく、バイトの長さを指定する必要があることです。したがってLengthではなくByteLengthを使用してください。現在、あなたが渡しているものはlenで、バッファのバイトサイズの半分です。

nNumberOfBytesToWriteとlpNumberOfBytesWrittenパラメータに同じ変数を使用しないでください。あなたのstdoutはUTF-16でエンコードされたテキストを期待されている場合

procedure Send(const s: string); 
var 
    NumberOfBytesToWrite, NumberOfBytesWritten: DWORD; 
begin 
    NumberOfBytesToWrite := ByteLength(s); 
    if NumberOfBytesToWrite>0 then 
    WriteFile(hStdOut, s[1], NumberOfBytesToWrite, NumberOfBytesWritten, nil); 
end; 

上記の罰金です。そうでない場合は、ANSIテキストが必要な場合はAnsiStringに切り替える必要があります。

標準出力デバイスに送信する必要がある内容は、どのようなテキストエンコードが期待されているかによってわかりますが、わかりません。

最後に、これがあなたが書いているコンソールであれば、単にWriteConsoleを使うべきです。