einen Farbwert senden und empfangen ?

[City Light]

Hallo

Ich baue gerade an ein Chat! und benutzte FastNet TNMMsg & TNMMSGServ
Eine frage ist es möglich ein Farbwert zu senden also so das der andere teilnehmer im seinen Fenster die schrift von meinen Farbwert sehen kann

[iaby]

ich könnte mir vorstellen, dass du den farbwert zunächst in einen string umwandelst und ihn dann übers netz sendest. später machst du daraus wieder einen farbwert!
allerdings weis ich nicht, wie man den in einen string umwandeln kann

[Robert]

Ähm - naja, wie wär's damit...

Delphi-Quellcode:

function colrToStr(col:TColor):STRING;
var 
  r,g,b:byte;
  lCol:LONGINT;
begin
  lCol:=ColorToRGB(col);
  r:=GetRColor(lCol);
  g:=GetGColor(lCol);
  b:=GetBColor(lCol);
  result:=Format('#%.2x%.2x%.2x',[r,g,b]);
end;

Zur Erklärung:

ColorToRGB wandelt das Delphi-TColor Modell in das Windows-Color-Modell um (nur zur Sicherheit). GetXColor liefert den Farbcode der Farbkomponent X (R,G,B) - diese werden in den Variablen R,G & B gespeichert. Letzten Endes gibt Format den String formatiert aus (in diesem Fall: RGB-code).


Copyright!?
Gibt's nich

Verwendung:
für den Chat vielleicht noch Commandos unterteilen: /msg für Messages, /col zum Farbwechsel, u.s.w. ...


Haut rein!