HTML-Farbwert in Color umwandeln?

[Opa Knack]

Hallo,

zu diesem Thema gibt es zwar schon einige Antworten, aber leider nicht die, die ich suche:

Ich möchte eine HTML-Farbeingabe (z. B. #000080), die in einem Editfeld gemacht wird, in einen TColor-Farbwert umrechnen und die RGB-Werte ermitteln. Dabei soll überprüft werden, ob der eingegebene Wert überhaupt umsetzbar ist (so dass z. B. #ZZZZZZ nicht verarbeitet wird). Nebenbei kann die Eingabe in Form von #000080 oder 000080 vorliegen und sollte in beiden Fällen akzeptiert werden, ebenso sollte Groß- und Kleinschreibung akzeptiert werden.

Egal, was ich bisher versucht habe, irgendwie bekomme ich das einfach nicht hin.

Hat jemand einen Tipp für mich, ob es dafür einen Befehl oder eine Funktion gibt?

Danke
Opa

[SirThornberry]

Delphi-Quellcode:

function HTMLColorToTColor(AHTMLColor: String): TColor;
begin
  if pos('#', AHTMLColor) <> 1 then
    AHtmlColor := '#' + AHTMLColor;
  AHTMLColor := StringReplace(AHTMLColor, '#', '$', [rfReplaceAll]);
  if length(AHTMLColor) = 7 then
  begin
    try
      result := RGB(strtoint(copy(AHTMLColor, 1, 3)),
                    strtoint('$' + copy(AHTMLColor, 4, 2)),
                    strtoint('$' + copy(AHTMLColor, 6, 2)));
    except
      result := clBlack;
    end;
  end else result := clBlack;
end;

Eine andere Variante wäre einfach die ersten beiden HexZeischen mit den letzten beiden Hex-Zeischen zu tauschen und dann einfach mit

Delphi-Quellcode:

StrToInt(StringReplace(AHTMLColor, '#', '$', [rfReplaceAll]));

die farbe nehmen. Wenn dabei ein Fehler auftritt stimmt das format auch nicht

[Opa Knack]

Hallo,

Danke für den Tipp. Nun nur noch eine Frage: Wenn nun statt eines gültigen HEX-Strings z. B. ZZZZZZ eingegeben wird, meldet das Programm einen Fehler und bricht ab. Kann man das Eingabefeld "filtern", so dass nur die gültigen Zeichen (0-9, A-F) akzeptiert werden?

Danke
Opa

[Binärbaum]

Wenn du als Eingabefeld eine TEdit-Komponente verwendest, kann man über die OnKeyPress- und OnKeyDown-Ereignisse die nicht zulässigen Werte abfangen.

MfG
Binärbaum

[Opa Knack]

Hallo,

Super, das klappt alles hervorragend.

Nun nur noch ein kleineres Problem: Nun wird zwar eine Hex-Eingabe im Editfeld umgewandelt, doch nach jeder Umwandlung wird auf Eingabe eines weiteren Zeichens erst einmal der clBlack-Farbwert zurückgegeben. Wenn ich also z. B. #000080 eingebe, wird mir Blau zurückgegeben, wenn ich dann die Eingabe markiere und einen anderen Wert eingeben will, wird automatisch auf Schwarz gesetzt und ich kann die Eingabe nochmal vornehmen. Die Umwandlung funktioniert also in diesem Sinne nur jedes 2te Mal.

Ich habe nun schon auf alle mir erdenklichen Arten versucht, die Funktion ein wenig zu manipulieren, aber den Fehler kriege ich einfach nicht raus (Source ist unverändert geblieben) :stupid: .

Weiß jemand, woran das liegen könnte?

Danke
Opa

[Binärbaum]

Das liegt wahrschienlich an der Funktion von SirThornberry. Wie man im obigen Quelltext erkennen kann, wird von dieser Funktion clBlack (d.h. der Wert für die Farbe schwarz) zurückgegeben, falls ein Fehler auftritt oder das Format nicht korrekt ist. Da aber nach Eingabe eines weiteren Zeichens Letzteres kurzfristig der Fall ist (d.h. solange die Eingabe unvollständig ist), wird also schwarz zurückgegeben.

MfG
Binärbaum

[Opa Knack]

Hallo,

genau daran liegt es (ich habe mal den Wert auf clRed geändert, woraufhin immer alles Rot wurde). Die Frage ist nur, wie man diesen Fehler umgehen kann...? Ich nage hier langsam die Tischkante rund, trotzdem bin ich noch nicht dahinter gekommen, was ich nun tun kann :-)

Danke
Opa

[Binärbaum]

Du müsstest, bevor du den Text vom Edit-Feld an die Funktion übergibst, überprüfen, ob der Text auch 6 Zeichen bzw. 7 Zeichen (mit #) lang ist und erst dann an die Funktion übergeben. Somit wird verhindert, dass zwischendurch ein "unfertiger" Wert (z.B. '#803' statt '#8030FF') an die Funktion übergeben wird und alles schwarz (oder rot) ist.

MfG
Binärbaum

[Opa Knack]

Hallo,

ich habe das Problem inzwischen dadurch gelöst, dass ich den "Fehlerwert" einfach auf die Farbe des TShapes gesetzt habe, und dass ich das Edit mit einem OnChange-Event ergänzt habe, welcher nur die Tasten 0-9, a-f, A-F und # zuläßt.

Nun habe ich aber noch ein Problem, bei dem ich nicht weiterkomme:

Wenn nun in dem Editfeld #000000 eingegeben wird, wird dies wie jeder andere gültige Hexwert akzeptiert. Wenn aber 00#0000 eingegeben wird, oder ##00000, oder jede andere sinnlose Kombination der zugelassenen Zeichen, bekomme ich natürlich eine Fehlermeldung zu sehen.

Ich denke mal, das Sinnvollste wäre, wenn ich entweder vor der Rückgabe des Farbwertes eben diesen auf Korrektheit prüfe und dem Ergebnis entsprechend entweder die Rückgabe fortführe oder die Funktion abbreche, oder wenn eine Maske auf das Editfeld gelegt werden könnte, welche die Form #xxxxxx vorgibt. Bei beiden Lösungsansätzen komme ich aber leider nicht weiter... :oops:

Sind diese Ideen richtig (und wenn ja: Wie kann ich das umsetzen), oder hat jemand einen besseren Einfall?

Danke
Opa

[Binärbaum]

Zitat:

Zitat von Opa Knack

Hallo,

ich habe das Problem inzwischen dadurch gelöst, dass ich den "Fehlerwert" einfach auf die Farbe des TShapes gesetzt habe, und dass ich das Edit mit einem OnChange-Event ergänzt habe, welcher nur die Tasten 0-9, a-f, A-F und # zuläßt.

Genau so habe ich das vorhin auch gemeint. :)
Um jetzt noch die Korrektheit der Eingabe zu prüfen, muss man prüfen, ob das #-Zeichen mehrmals oder nur einmal, aber dafür nicht am Anfang vorkommt. das könnte in etwa so aussehen:

Delphi-Quellcode:

if length(Edit1.Text)>0 then begin
 if ((pos('#', Edit1.Text)>1) or (pos('#', copy(Edit1.Text, 2, length(Edit1.text)))>=1)) then
  ShowMessage('Eingabe ist ungültig!')
 else begin
  ///Eingabe OK
   machwas;
 end; 
end
else Showmessage('String ist leer');

(Ungetestet!)

MfG
Binärbaum