OEM_CHARSET, Zeichen 128-256 weg ?

[Mathias]

Ich will den kompletten ASCII-Code ausgeben.
Die Zeichen zwischen 128 und 256 kommen nicht.

Code: Alles auswählen

procedure TForm1.FormPaint(Sender: TObject);
var
  i: byte;
begin
  with Canvas.Font do begin
    Charset := OEM_CHARSET;
    Color := 0;
    Height := 0;
    Name := 'Terminal';
    Pitch := fpDefault;
    Size := 16;
    Style := [fsBold, fsItalic, fsUnderline, fsStrikeOut];
    Style := [];
  end;
  for i := 1 to 255 do begin
    Canvas.TextOut((i - 0) * 10, 10, char(i));
  end;
end;   

ich habe noch folgendes probiert, geht aber auch nicht.

Code: Alles auswählen

UTF8ToConsole(Char(i))

Unter Delphi kommen alle 256 Zeichen.

[Michl]

Hast du schon mal

Code: Alles auswählen

    Canvas.TextOut((i - 0) * 10, 10, UTF8Encode(char(i)));

probiert?

[Mathias]

Habe es gerade probiert, kommt leider ein Kompilierfehler.

Code: Alles auswählen

unit1.pas(64,38) Error: Can't determine which overloaded function to call

[Michl]

Was ist mit?:

Code: Alles auswählen

    Canvas.TextOut((i - 0) * 10, 10, UTF8Encode(AnsiString(Char(i))));  

[wp_xyz]

ansichar(i) ?

[Mathias]

Was ist mit?:

Code: Alles auswählen

    Canvas.TextOut((i - 0) * 10, 10, UTF8Encode(AnsiString(Char(i))));  

Danke, das ist die Lösung.

Somit habe ich auch die Umlaute als einzelnes Zeichen.

Code: Alles auswählen

    Canvas.TextOut(10, 40, UTF8Encode(ansistring(UTF8ToConsole('äöü'))));
    ch := UTF8ToConsole('ä')[1];
    Canvas.TextOut(10, 60, UTF8Encode(ansistring(ch)));
    ch := UTF8ToConsole('Ä')[1];
    Canvas.TextOut(20, 60, UTF8Encode(ansistring(ch)));
    ch := UTF8ToConsole('ü')[1];
    Canvas.TextOut(30, 60, UTF8Encode(ansistring(ch)));  

Ich brauche das Ganze für eine Text-Ausgabe in OpenGL.

[theo]

Ich will den kompletten ASCII-Code ausgeben.
Die Zeichen zwischen 128 und 256 kommen nicht.

ASCII definiert diese Zeichen gar nicht.
Du meinst wohl einen ANSI 8-bit Zeichensatz.

[Mathias]

Dies war wohl leider auch nichts, unter Windows geht es, aber Linux will es nicht.

Was für einen String/Zeichensatz muss ich nehmen, das Umlaute auch 8Bit sind ?
Mit dem Standard-IBM Zeichensatz geht es nicht, so wie ich es festgestellt habe.

[theo]

Dies war wohl leider auch nichts, unter Windows geht es, aber Linux will es nicht.

Hätte ich dir sagen können. Beim Thema Zeichensatz/Unicode wird immer wieder gerne gefährliches Halbwissen verbreitet und alle haben dazu eine "Meinung", selten aber eine Ahnung

Ich weiß nicht was du willst und ich weiß nicht warum du es willst, aber wenn du die ersten 256 Unicode Zeichen ausgeben willst, dann ginge das so:

Code: Alles auswählen

var
  i: Integer;
begin
  for i:=0 to $FF do Memo1.Lines.Add(UTF8Decode(WideChar(Word(i))));
end;    

[Mathias]

Geht nicht, es kommen nur die ersten 128 Zeichen richtig, der Rest ist nur '?' .

Wen ich den Font vom Memo1 auf:
Chartset=OEM_CHARSET
Name=Terminal

bringt auch nichts.

Mit

Code: Alles auswählen

Canvas.TextOut((i - 0) *7, 10, UTF8Decode(WideChar(Word(i))));  

kommt es gleich falsch.

[Michl]

Unter Windows ginge auch:

Code: Alles auswählen

uses LConvEncoding;   
 
Canvas.TextOut((i - 0) * 10, 10, CP1252ToUTF8(Char(i)));

[theo]

Geht nicht, es kommen nur die ersten 128 Zeichen richtig, der Rest ist nur '?' .

Ja, da habe ich einen Fehler gemacht.
Probier mal so:

Code: Alles auswählen

 
uses LazUTF8;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to $FF do Memo1.Lines.Add(UnicodeToUTF8(i));
end;   

[mschnell]

Ich will den kompletten ASCII-Code ausgeben.
Die Zeichen zwischen 128 und 256 kommen nicht.

(Du meinst vermutlich 128 bis 255)

Diese Zeichen gibt's bei ASCII nicht.

Und die Steuerzeichen 0 bis 31 sowie 127 kannst Du nicht "ausgeben" (womit Du vermutlich "irgendwie standardmäßig grafisch aufmalen" meinst) .

-Michael

[Mathias]

Mit UnicodeToUTF8 bin ich jetzt einiges weiter gekommen, ich kann jetzt Umlaute in meiner Animation darstellen und dies unter Win und Linux.

Ein Wehrmutstropfen, ich kann nicht direkt Draw('ä') eingeben, ich muss es mit Draw(#228) machen.

Ich habe den Befehl UTF8ToUnicode angeguckt, leider geht nicht einfach Draw(UTF8ToUnicode('ä'));

[Mathias]

Mit

Code: Alles auswählen

var UnicodeText : UnicodeString;
 
  UnicodeText := UTF8Decode(Text);   

gehts.

Wichtig ist, das UnicodeText als UnicodeString deklariert ist, bei nur String macht Linux Probleme.