Zastosowanie konsoli Unicode w Delphi 2009

Question

jaki sposób można utworzyć aplikację konsoli unicode z Delphi 2009?

Jeśli robię tak:

{$APPTYPE CONSOLE} 
uses 
    SysUtils; 
begin 
    writeln('öüğşç سيمانتت'); 
end. 

uzyskać następujące:

ougsc ??????? 

Answer 1

nie jestem pewien, że to Ty jesteś po, ale można tworzyć aplikacje konsoli Unicode we wszystkich 32-bitowych wersjach Delphi za pomocą funkcji Windows API. Próbowałem tylko z Delphi 4:

program test; 

{$APPTYPE CONSOLE} 

uses 
    Windows; 

var 
    s: WideString; 
    i: integer; 
    Written: Cardinal; 
begin 
    SetLength(s, 80); 
    for i := 1 to 80 do 
    s[i] := WideChar(48 + i); 
    WriteConsoleW(GetStdHandle(STD_OUTPUT_HANDLE), PWideChar(s), 80, Written, 
    nil); 
end. 

nie mam Delphi 2009, aby spróbować jak wprowadzanie ciągów Unicode w działa redaktor ...

Answer 2

Nie można (przynajmniej nie z biblioteki standardowej). Funkcje konsoli są jedynymi non funkcje Unicode w Delphi 2009.

Answer 3

konsoli Windows nie może wyświetlić unicode Charactes, więc spróbuj wysłać dane wyjściowe do pliku z:

my_app.exe > unicode_file.txt 

i spróbuj przeglądania unicode_file.txt z dobrym tekstem redaktor.

Answer 4

@Kabrol: Z zestawu czcionek rastrowych nie wiem zobacz dowolny z znaków, ale z Lucida Console widzę przynajmniej widechar (11 funtów) - "ğ".

Zobacz opis funkcji interfejsu API konsoli pod numerem "SetConsoleOutputCP Only Effective with Unicode Fonts" pod adresem "Console Reference".

Answer 5

Writeln w Delphi 2009 nadal używa ANSI (zobacz System TTextRec), ale możesz użyć UTF8Encode i zmienić wyjściową stronę kodową konsoli na UTF8, wywołując SetConsoleOutputCP (CP_UTF8). Będziesz potrzebował dobrej czcionki, aby wyświetlać znaki Unicode.

Answer 6

Faktycznie, istnieje sposób, aby to zrobić ze standardowym writeln() wywołuje, ale to wiąże się łatanie błąd w RTL Delphi 2009. Chodzi o to, czy jakiś kompilator Delphi magia dla writeln. W przypadku argumentów UnicodeString powoduje to wywołanie _WriteUString. Metodę tę można zobaczyć w System.pas, chociaż nie można jej wywołać bezpośrednio. W nim zobaczysz wywołanie _WriteLString, ale ta metoda otrzymuje argument AnsiString. Więc kiedy to połączenie ma miejsce, twój UnicodeString jest downcasted do AnsiString.

Rozwiązaniem jest, aby to zmienić UnicodeString-> AnsiString wrzucony do UnicodeString-> UTF8String obsady.

Teraz, kiedy ustawić konsolę do UTF-8, wszystkie znaki przejdzie nietknięty (i tak, oczywiście trzeba czcionki ze wsparciem dla znaków, które chcesz pokazać):

SetConsoleOutputCP(CP_UTF8) 

Dla tej poprawki RTL, będziesz musiał zrobić pewne sprytne podpięcie kodu. Zrobiłem to już i mój kolega zajęty jest pisaniem artykułu na ten temat. Opublikuję link, gdy będzie dostępny online.

Pozdrawiam!