Chat - User anzeigen

[FreakyF]

Hallo!

Ich probiere gerade einen kleinen Chat mit Delphi zu programmieren.
Soweit hat alles geklappt.
Als letztes Feature will ich nun alle zur Zeit angemeldeten User anzeigen lassen,
damit man sieht, wer alles am Chat teilnimmt.
Ich habe schon gegoogelt und ein bisschen rumprobiert, aber ich hab nichts gefunden.
Leider habe ich gar keine Idee, wie man das hinbekommen kann...

Ich habe meinen Quellcode mithochgeladen, vielleich hat ja jemand Lust und Zeit mir ein bisschen zu helfen.
Ich würde mich riesig freuen, weil dann wäre mein Chat-Projekt fertig.

[STS301]

mit indy UDP Server und Client funktioniert es mit dem Befehl Braodcast

[FreakyF]

Zitat von STS301:

mit indy UDP Server und Client funktioniert es mit dem Befehl Braodcast

Und weiter? Sagt mir leider gar nichts

[Masteric]

hi, ich habe auch schon auf die selbe Weise einen Chat programmiert, wahrscheinlich sogar aus dem selben Tutorial....

Also ich hab das mit der Wer ist online? Liste so gemacht, das jeder Client, nach dem verbinden eine Nachricht mit seinem Nickname schickt, welcher vom Server gespeichert wird, dafür habe ich noch etwas oben bei dem TNachrichten Type eingeführt, das kannst du z. B. so machen :

Delphi-Quellcode:

type  TChatNachricht = Record
        Nickname: string[255];
        Text:     string[255];
       Befehl: string[255]
      end;

da muss dann eben der Befehl z. B. anmelden sein, damit der Server und der Client ihn in die Liste aufnimmt.
Dass musst du dann abfragen, ich habe es so ähnlich gemacht, da es so nicht als Chatnachricht angezeigt wird, sondern beide, Server und Client Wissen, dass es ein interner Befehl ist.

Ich habe unten mal meine fertige, (2. Version) meines Chatprogramms angehangen, sie ist noch nicht ganz fertig, das Verschlüsseln ist noch nciht eingebaut und der Server ist bei mir ein eigenes Programm, deswegen Poste ich dir mal beide.

Gruß Masteric

[STS301]

hier ein Beispiel mit Code:
(sollte funktionieren, bin mir aber nicht ganz sicher weil mein delphi spinnt)

[FreakyF]

Zitat von STS301:

hier ein Beispiel mit Code:
(sollte funktionieren, bin mir aber nicht ganz sicher weil mein delphi spinnt)

Funktioniert bei mir leider nicht.

[FreakyF]

Zitat von Masteric:

hi, ich habe auch schon auf die selbe Weise einen Chat programmiert, wahrscheinlich sogar aus dem selben Tutorial....

Ich habe unten mal meine fertige, (2. Version) meines Chatprogramms angehangen, sie ist noch nicht ganz fertig, das Verschlüsseln ist noch nciht eingebaut und der Server ist bei mir ein eigenes Programm, deswegen Poste ich dir mal beide.

Gruß Masteric

Hi Masteric,

dein Chat ist echt super!
So ähnlich soll auch meiner werden.
Kannst du mir auch deinen Quellcode hochladen oder zuschicken, damit ich mir anschauen kann, wie du das realisiert hast?
Würd mich freuen!

Markus

[Masteric]

Auf deinen Wunsch hin, werde ich den Source mal posten
muss jedoch gestehen, dass der nicht so gut durchkommentiert ist, oder auch gar nicht, da ich das ganze Projekt schon aufgegeben hatte, bis mir durch Zufall, als ich es löschen wollte, der Fehler aufgefallen ist, der da war, dass ich auf das falsche Memo zugegriffen hab

Wenn du Fragen hast, dann schreib mir ne PM in der DP, dann erklär ich dir, was ich da gemacht habe.

nur so zur info: die coder.pas ist eine unit zur xor verschlüsselung, die ebenfalls von mir geschrieben ist, also die unit, nicht die Verschlüsselung
Naja egal, hier ist er jedenfalls:



Gruß Masteric

PS: Schaue zwischendurch mal in dem Thread vorbei, wenn du deins fertig hast, kannst du es hier ja mal posten.

[FreakyF]

Vielen vielen Dank,

ich schau mir das mal an und wenn ich Fragen habe, dann meld ich mich einfach nochmal.


Bis dann


Markus