Kleiner Chat

[.chicken]

Also habe um mich besser mit dem Netzwerk zurechtzufinden und etwas damit rumzuspielen einen kleinen Chat geschrieben!

Er funktioniert mit den TServer- und TClientSocket-Komponenten, benutzt aber trotzdem die IdHTTP und IdIPWatch-Komponenten von Indy.

Is wie gesagt nix großes!

Ich hoffe der Quelltext ist nicht zu unübersichtlich geworden ^^

Also bin für konstruktive Kritik offen

Edit: Aktuelle Änderungen

Features (letztes Update - 30.04.07):
- jeder kann einen Server erstellen
- jeder Client kann eine Farbe wählen
- Farben ein-/ausstellbar
- nach Verlassen des Servers wird ein ChatLog angelegt und in einer .txt-Datei gespeichert
- Sound beim Tippen und beim Erhalten einer Nachricht, wenn der Chat nicht aktiv ist
- Sound ein-/ausstellbar
- über den Befehl '/me xxx' Aktionen ausführbar (alter Befehl '*xxx*' nichtmehr verfügbar)
- Privatunterhaltungen (getrennt durch TabSheets)
- jeder Name ist einzigartig, d.h. ist ein Name schon vergeben, muss ein neuer gewählt werden
- kein Fehler mehr wenn dem Programm der Zugriff zum Internet verweigert wird
- Passwort-Funktion

Gefixt (02.05.07):
- beim Verlassen eines Clients wird er wieder aus den Userlisten der anderen gelöscht


Also, bitte sagt mir eure Meinungen

Edit: Mir sind noch einige Fehler beim Löschen von Clients aufgefallen. Wird bei Zeiten gefixt!

[scrat1979]

Zitat von .chicken:

Hm ok also die Fehler sind mir bekannt, versuche sie zu fixen und bin auch dabei zu
Aber wie kriege ich denn raus, ob der andere gerade tippt?

Vielleicht hat jemand eine bessere Lösung, aber meine wäre mit Hilfe eines Timers zu machen:

1. Wenn ein User BEGINNT zu tippen (if timer.enabled = false) dann Timer.enabled auf true setzen (z.B. 5000 msek als Intervall)
und Nachricht an Server ("username=typing"). Serverseitig in Userliste anzeigen.

2. Wenn User weitertippt, dann Timer zurücksetzen (if timer.enbled = true then....)

3. Bei OnTimer-Ereignis Nachricht an Server (s. 1.) und Timer disablen (User hat 5 sek. keine Taste mehr gedrückt -> typing aus)

4. Wenn Nachricht weggeschickt Timer natürlich auch wieder disablen.

Das wäre mein kleiner Gedankenanstoß und müsste rel. leicht zu implementieren sein. Also Timer Clientseitig durch OnKeyDown o.ä. auslösen und am SErver nur die Nachricht des Clients (s.o.) auswerten.

Grüsse,

SCRaT

[xZise]

Ergänzend könnte man, wenn die 5 Skeunden rum sind, und es sich noch was im Edit befindet, dass eine Message geschickt wird, dass er "Wartet"... oder überlegt...

[.chicken]

Ok, das werde ich bei Zeiten auch versuchen zu integrieren, aber vorerst hoffe ich, dass der Fehler jetzt gefixt wurde!
Wenn ihr es mal testen würdet

[Ajin]

Hallo!

Ich finde das Programm echt prima! Mich würde interessieren ob man diese Technik internet faähig machen kann. Also chatten übers www statt nur im LAN. Was müsste man da anpassen?

[patti]

Ist zwar etwas OT, aber in der Delphi-Library gibt es ein Tutorial mit TClientSocket und TServerSocket, in dem es heißt, dass es auch internetfähig ist, solange sich der Server nicht hinter einem (DSL-)Router befindet. Allerdings braucht man die öffentliche IP-Adresse des "Server-Rechners" (steht ziemlich weit unten im ersten Post).
Evtl. wäre das Programm von .chicken auch internetfähig.

P@Tti