Thema: Delphi TCP Chat Rückmeldungen

Einzelnen Beitrag anzeigen

Benutzerbild von Aenogym
Aenogym

Registriert seit: 7. Mär 2004
Ort: Schwerin
1.089 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: TCP Chat Rückmeldungen

  Alt 31. Jul 2006, 14:39
(pushen ist erst nach 24 stunden hier erlaubt - also das schrieben von zwei beiträgen hintereinander
und: ich bin auch arbeit, weshalb ich nicht permanent ins foru schaue )

aber nun zum code:

ClientSocket.Sendln('Nachricht'); wobei ClientSocket vom Typ TCustomIpClient ist.

ablaufen kann das ganze so:
dein client verbindet sich mit dem server. beim server wird das Ereignis OnAccept ausgelöst. darin wird dir im parameter ClientSocket ein objekt übergeben, mit dem du den client ansprechen kannst. dieses objekt musst du dir für spätere verwendung speichern (zB. in einem array ablegen).
der client besitzt das Ereignis OnReceive, das jedes mla ausgeführt wird, wenn er daten zum server sendet. sobald dieses ereignis ausgelöst wird, nimmst du dir die darin übergebene nachricht und schickst sie per .Sendln() an alle anderen clients, die du dir zuvor gespeichert hast.

aeno
Steffen Rieke
Was nicht buzzt, wird buzzend gemacht!
http://blog.base-records.de
http://www.base-records.de
  Mit Zitat antworten Zitat