Consolenanwendung mit Farbe

[Aljoscha]

Hi.
Ich suche eine Möglichkeit wie ich den Text in meiner Consolenanwendung farbig darstellen kann.
Es wird meine erste Consolenanwendung, also ich bin absoluter Anfänger darin :)
Wäre nett wenn mir jemand helfen kann (unter c und dos [also bei batch etc] gehts ja auch ).

[Olli]

Ist etwas älter und auch nicht mehr so schön ... aber was soll's -> http://assarbad.net/stuff/tutorials/...sample_svc.zip (dort die consolehlp.PAS)

EDIT: :wall: Link korrigiert
EDIT2: Verdammt, mein Mirror ist nicht aktuell ... na supi ... :wall:

[barf00s]

SetConsoleAttribute()

[Aljoscha]

Uff das ging ja schnell :)
Danke euch beiden :)
Aber olli sicher das dein link geht?

//edit:
und @ barf00s
Kannst du mir einen Beispielaufruf geben?
Wie gesagt ich bin völlig neu :(
Und bei Google so wie in der Hilfe stand nichts :s
(zumindest habe ich es nicht gesehen).

[malo]

Zitat:

Zitat von Aljoscha

Aber olli sicher das dein link geht?

Versuch mal den Link hier. Ich habs nicht geprüft, dürfte aber stimmen... ;)

[Aljoscha]

Geht danke :)

//edit:
Allerdings kann ich damit garnichts anfangen :s
Was macht das programm denn überhaupt?
Testservice?
Sry ich bin eben blutiger Anfänger :(

[Olli]

Zitat:

Zitat von Aljoscha

Geht danke :)

//edit:
Allerdings kann ich damit garnichts anfangen :s
Was macht das programm denn überhaupt?
Testservice?
Sry ich bin eben blutiger Anfänger :(

Es ist eine Unit, die die entsprechenden Funktionen enthält, wie sie früher in Pascal in der Unit CRT verfügbar waren. Es gibt Leute, die lieber auf vertraute Sachen aufbauen. Daher existiert diese Unit.
Der korrekte Link: http://assarbad.net/stuff/tutorials/...sample_svc.zip (dort die consolehlp.PAS)

@malo: Danke :wall: ... ich nu wieder, bloß wegen meinem lokalen Mirror :wall:

EDIT: Naja, ihr wißt schon ... mein lokaler Mirror nicht aktuell ... :wall:

[Aljoscha]

ok danke :)
Und kann mir jemand den Aufruf von dieser Funtion hier noch erklären?

Delphi-Quellcode:

SetConsoleAttribute()

[Olli]

Das sind übrigens die beiden fraglichen Funktionen aus meiner Unit:

Delphi-Quellcode:

function TextAttribute(): Word;
var
  csbi: _CONSOLE_SCREEN_BUFFER_INFO;
begin
  if GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), csbi) then
    result := csbi.wAttributes
  else
    result := 0;
end;

procedure SetTextAttribute(attr: Word);
begin
  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), attr);
end;

SetConsoleAttribute() existiert nicht - heißt SetConsoleTextAttribute().

EDIT: Bah, was habe ich einstmals für häßliche Formatierungen benutzt ... *brrr*

[barf00s]

mein Fehler ;)
aber da hätte man auch von selbst drauf kommen _können_...

thx olli

[Olli]

Zitat:

Zitat von barf00s

mein Fehler ;)
aber da hätte man auch von selbst drauf kommen _können_...

Locker bleiben. Wozu gibt es denn soviele Mitglieder in der DP ;) ... keiner ist perfekt. Auch ich hatte erst auf MSDN verweisen wollen mit der Funktion, bis ich bemerkte, daß "Text" fehlt.

[Aljoscha]

Ach ja danke :)

[Aljoscha]

Ich habe nun alles farbig (danke dafür!),
doch habe ich immernoch eine Verständnisfrage...
Hintergrund ist das ich einen Server bauen will auf den man mit Telnet connecten kann.
Der Telnet Client soll Strings vom Server empfangen, welche farbig sind.
Wie stelle ich das jetzt an.
(Reine Verständnisfrage... aber gehen tut es, ich habe es mal mit Perl gesehen).
Ich kann ja nur Strings senden :s
Also müsste doch im Telnet Client die Farbinterpretation integriert sein.
Aber wie steuer ich diese an?

[Olli]

Soweit ich weiß, wird dies, wenn dann, mit Escape-Sequenzen erledigt. Allerdings ist die Implementation wohl auch vom Terminaltyp abhängig, welcher "emuliert" werden soll. In den gängigen RFCs sollten sich Informationen dazu finden.