Hope I got your attention with the subject ;)
After having had help on the list I managed to write UTF8 text to the
Windows Vista console using 2.6
However, my test program (see attachment) fails on trunk.
See
http://lazarus.freepascal.org/index.php/topic,17548
for discussion (initially about other problem)
Also had a look at
http://www.mail-archive.com/fpc-devel@lists.freepascal.org/msg26232.html
This works in FPC 2.7.1:
WriteConsole(GetStdHandle(STD_OUTPUT_HANDLE),@s[1],length(s),bw,nil);
... but seems to be Windows-only.
What am I missing and what is the easiest cross-platform way to
output/accept UTF8 text to/from the console?
Should I set the console codepage back to the one in use before the
program ran? Should I also mess with SetConsoleCP and/or SetTextCodePage?
Thanks,
Reinier
program uniconsole;
// Works on Windows Vista x64 with Lucida console font and x86 FPC 2.6.1
// prints garbled output on FPC trunk
{$mode objfpc}{$H+}
{$APPTYPE CONSOLE}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}cthreads,{$ENDIF}cwstring,{$ENDIF}
{$IFDEF WINDOWS}
Windows, ctypes,
{$ENDIF}
Classes;
var
{$IFDEF WINDOWS}
CurrentOutputCP: cuint;
{$ENDIF}
UTF8TestString: String; //I can use UTF8String here as well, no difference
begin
{$IFDEF WINDOWS}
// see
//
http://msdn.microsoft.com/en-us/library/windows/desktop/ms686036%28v=vs.85%29.aspx
CurrentOutputCP:=GetConsoleOutputCP;
SetConsoleOutputCP(CP_UTF8);
//Note: no use of input console: SetConsoleCP and GetConsoleCP?
//Probably the delphi way of saying {$codepage utf8}; doesn't have any effect
//SetTextCodePage(Out, CP_UTF8); //no effect
{$ENDIF}
// File encoded as UTF8 without BOM; speciyfing {$codepage utf8} on top doesn't
help/change anything
// The next line should print rose, wodka (Cyrillic) and ouzo (Greek)
UTF8TestString:= 'rosé, водка and ο�ζο';
writeln ('UTF8 test: ' + UTF8TestString);
{$IFDEF WINDOWS}
// reset console
SetConsoleOutputCP(CurrentOutputCP);
{$ENDIF}
end. _______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
