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!

[.chicken]

Aso, wenn du Offline bist oder was meinste? Ja da muss ich noch ne Abfrage einbauen oder so...

[Sko]

Ne, meine Firewall hatte gefragt ob der Chat sich mit dem I-Net verbinden darf, da hab ich mal versuchsweise auf Nein geklickt.

[.chicken]

Aso...hm wie verhinder ich da denn dann die Ausgabe einer Fehlermeldung?

[Sko]

Du könntest z. B. das Ermitteln der I-Net-IP in einen try-except-Block packen und im except-Teil eben statt der IP einen leeren String oder einen String mit einer Fehlermeldung oder sowas ausgeben. Könnte ungefähr so aussehen:

Delphi-Quellcode:

[...]
try
  Form.WanIPLabel.Caption := 'WAN IP: ' + Form.IdHTTP1.Get('<AdressezumIP-Script>');
except
  Form.WanIPLabel.Caption := 'WAN IP: -');
end;
[...]

[scrat1979]

Hallo .chicken,

im großen und ganzen eine tolle Sache. Ich hätte noch zwei Anmerkungen und einen Fehler gefunden...

1.) Dateien an User versenden wäre noch schön (wenn nicht zu aufwendig)

2.) Private Messages zwischen den Usern wäre ebenfalls schön

2.) Stelle ich mehrere Verbindungen zu einem Server her und disconnecte wieder, dann simmt die
Anzahl der Verbindungen (angezeigt beim Server) nicht mehr. Beim Connecten wird die Zahl hingegen korrekt um eins erhöht.

Weiter so. Grüsse,

SCRaT

[.chicken]

Ok, Änderungen und Vorschläge werden soweit wie möglich geändert/hinzugefügt.

Das mit Dateien versenden is allerdings n bissl schwer glaub ich aber mal sehen

[.chicken]

Ok, alles aktualisiert!
Wenn ich heut Nacht noch mehr Zeit hab wirds nochn bissl verbessert, eure Meinungen bitte

[.chicken]

Nochn kleines Update!

[scrat1979]

Hallo .chicken,

Wird immer besser Mir ist nur ein "kleiner" Fehler aufgefallen (Leider lässt er sich zwar häufig auslösen, jedoch nicht immer). Connecte ich mit 2 Clients zu einem Server und beende dann die beiden Serververbindungen, erscheint eine "Access Violation" Fehlermeldung. Beim Reconnect benötigt man neue Nicks, da die alten schon vergeben sind. Hoffe Du findest den Fehler!

Aah, eines noch. Es wäre schön wenn bei einem Verbindungsversuch zu einem nicht vorhandenem Server (false IP / offline) eine kleine Meldung erscheint. Entweder als Dialog oder im Chatfenster.

EDIT: Noch ein Vorschlag von mir. In vielen IM kann man sehen, wenn das "Gegenüber" eine Nachricht eingibt (typing...). Eventuell könntest Du das noch integrieren

LIebe Grüsse,

SCRaT

[.chicken]

Hm ok also die Fehler sind mir bekannt, versuche sie zu fixen und bin auch dabei zu versuchen das Design ein bisschen zu "pimpen" ^^
Find ich etwas öde so.

Aber wie kriege ich denn raus, ob der andere gerade tippt?