|
Registriert seit: 7. Jun 2007
Ort: Enger
104 Beiträge
Delphi 7 Enterprise
|
Re: Chat Funktion
23. Jul 2008, 13:30
also viel umändern musst du da nicht...
setz mal die procedure vor
"procedure TForm1.ChatClick(Sender: TObject); "
und ersetze
"form1.ServerSocket1.Socket.SendText(edit5.tex t); "
durch
"message_broadcast(form1.ServerSocket1.Socket, edit5.Text);"
Grüße,
Björn
|