Hallo ersteinmal!
Bin nun vor ca. 1 Woche in die Delphi-Programmierung eingestiegen und habe nun ein Problem bei einem Chat-CLienten den ich entwickelt habe.
In den Communitys, zu denen man sich mittels dem Clienten verbinden kann, werden Emoticons mit einer Raute plus den jeweiligen Emoname definiert (z.b. #winki > Winkendes Emoticon).
Nun habe ich bei meiner Eingabezeile des Clienten folgendes Problem...
Es wird immer nur ein Emoticon richtig umgesetzt, bei jedem weiteren, dass ich innerhalb eines Post über die Eingabezeile abschicke, wird die Raute entfernt und nur der Emoname in den Chat geschickt.
Beispiel:
Eingabe in der Eingabezeile: #winki huhu <chattername>, möchtest du ein #bier
Ergebnis im Chat schaut dann so aus: <winkendes Emoticon> huhu <chattername>, möchtest du ein bier
Hier der Code, den ich zum abschicken des eingegebenen Textes nutze:
Delphi-Quellcode:
if Key = #13 then // Wird nur ausgeführt, wenn Text mit "Enter" bestätigt wird
begin
inhalt:=GetHTML('http://' + serverip + '/chat.php?sid=' + sid + '&message=' + Eingabe.Text); // Text aus Eingabezeile wird an den Chatserver geschickt
Eingabe.Text:=''; // Eingabezeile wird auf null gesetzt
Key:=#0; // Unterdrückt den Windows-Beep
end;
Wie kann ich es nun bewerkstelligen, dass auch das zweite Emoticon ordnungsgemäss an den Chatserver übergeben wird?
Ich hoffe ihr könnt mir da weiterhelfen.