TcpServer ----> TcpClient senden und empfangen

[jokerfacehro]

falls mir jemand weiterhelfen kann bitte posten

ich wünsche frohe Weihnachten und einen guten Rutsch

[Trödel]

Mal über den Tellerrand schauen, dann kann fündig werden: Chat.

[jokerfacehro]

hey, die seite habe ich mir vor 4 tagen schon angeschaut und
es funktioniert nicht, bei mir zumindest.
ich kriege nur synchronisationsfehler bei der demo.

falls jemand eigenerfahrung, die er mir mitteilen kann, hat, bitte posten

ich habe mir auch schon die delphi 9 demo angechaut, doch die funktioniert bei mir auch nicht. der client friert beim connecten ein, wenn er leere
zeilen erhält, das liegt am timer keine ahnung warum.

das einzige chatprogramm, was bei mir funktioniert, ist die NetChat demo
direkt von delphi. allerdings ist die auf threads aufgebaut und
benutzt auf beiden seiten server und client, was für mich keine schöne Lösungdarstellt...

ich wünsche allen hier im forum eine frohe Weihnacht und täglich grüßt das Murmeltier XD

[dominikkv]

Zitat von jokerfacehro:

wenn du lust hast, kannst du mir ja ein funktionierendes beispiel schicken

hmm...hab vor einer woche auch mal meinen ersten chat erstellt...
kannst ja mal schauen wie ich das gelöst hab
quelltext ist im anhang xD

ein paar befehle:

/cls: löscht den inhalt das chat-fensters
/auth pw: als admin identifizieren lassen (zB /auth Fisch)
/nick neuerNick: nick wechseln

nur als admin:
/rcon set +o Nick: Nick zum Admin machen
/rcon set +m Nick: Nick muten
/rcon set +k Nick: Nick kicken
-o, -m : rechte wieder nehmen

[jokerfacehro]

hey, danke für die antwort, ich schau die nächsten tage mal rein

hier ist richtig Familienfest, deshalb habe ich gerade keine zeit

so nebenbei, mit der Antifreeze komponente von indy habe ich es geschafft,
den indy chat demo 9 client zum laufen zu bringen, allderings gibt'S da immer noch eienige lustige fehler naja

Frohes Fest

[jokerfacehro]

das is en schönes Weihnachtsgeschenk xD

ich habe mir dein Quelltext doch mal kurz angeschaut.
da ich eine andere Delphi version habe ist bei mir TServerSocket nicht
direkt vorhanden.

deshalb muss ich ServerSocket1 wo anders deklariren nämlich hier:

Delphi-Quellcode:

public
ServerSocket1:TServerSocket;

denn kann ich dein proggi auch compilieren und es funktioniert.
schönes chat-programm

[jokerfacehro]

sooooooo ^^

ich habe mich jetzt auch mit TServerSocket probiert und
das ergebnis kann sich jetzt schon sehen lassen ^^

mein erster chat: ich habe ihn übers internet getestet,
funktioniert auch mit router wunderbar wenn man den port weiterleitet

[jokerfacehro]

Hallo alle miteinander,

dies ist die neueste Version meines Chats

Das beste an dieser Version ist, sie trägt alle ChatServer auf einem MasterServer zusammen.
Jetzt bekommt jeder Client immer eine Serverliste mit allen gerade laufenden Servern.

Man brauch nur noch den Server auswählen fertig
das habe ich mit einer php datei auf meinem webspace und dem WebBrowser im Proggi erledigt.

der server fragt von da seine WAN IP adresse ab, wenn das proggi startet.
wenn er dann connected, wird seine ip zu der serverliste hinzugefügt,
wer dann disconnected wird sie wieder entfernt

dann muss der client nur mal die holen
hier ist die abfrage der serverliste für den client:
http://mitglied.lycos.de/jokerfacehr...on=get_servers

wenn man die gleiche seite öfter aufruft und man will sie neuladen einfach hinten ein
URL+'&time='+TimeToStr(now); ranhängen, da jetzt neue parameter vorhanden sind.
ansonsten lädt er die seite aus dem cache

Zusätzlich wird die Verzögerungszeit mit angezeigt.

großen Dank an DominikKV
ich habe viel von deinem Beispiel Chat lernen können

so nun viel Spaß damit.

[jokerfacehro]

hier ist du die neuste version
mit admin authorisierung, natürlich admin commands und en spamschutz ^^

[jokerfacehro]

Hey ich bin es wieder

hier ist die neueste Version, ich zähl ma alles auf was man da so machen kann als client:

- serverliste aller chatserver abfragen
- blinken in der taskleiste bei neuen infos
- alle comamnds abfrage mit /cmd all
- nick ändern per command (/nick name)
- authentifizieren per command (/auth password)
- personal message per command (/pm name message)
- als admin :
> andere user status zu admin(alle rechte,
user(kann sich als admin authentifizeiren) oder trial(hat keien rechte) setzen
> muten/unmuten von usern
> kicken von usern
- speichern von port,server und name für die faulen xD
- kleine bildchen weils schöner ist

und ganz wichtig antispam funktion

server:
hat alle adminrechte kann jederzeit das rcon password zum authentifizieren ändern
und hat zusätzlich den befehl kick all ^^