Hey,
Ich hab folgendes problem.
Ich habe ein "chat program" von einem TUT-gemacht und da steht das hier drin bei ServerSocket.OnClientConnect
Delphi-Quellcode:
procedure TFrmServer.ServerSocketClientConnect (Sender: TObject; Socket: TCustomWinSocket);
var Nachricht: TChatNachricht;
var I: Integer;
begin
MemStatus.Lines.Add ('Status: Neuer Client verbunden');
Nachricht.NickName := 'Server';
Nachricht.Text := 'test';
Socket.SendBuf (Nachricht, SizeOf(Nachricht));
with ServerSocket.Socket do begin
Nachricht.Nickname := 'Server';
Nachricht.Text := 'Jetzt ' + IntToStr(ActiveConnections) + ' Teilnehmer';
for I := 0 to ActiveConnections-2 do
Connections[I].SendBuf (Nachricht, SizeOf(Nachricht))
end; {with}
end;
Geht auch, aber wenn ich da selber etwas senden will per ButtonClick dann gehts aufeinmal nicht, hier der code:
Delphi-Quellcode:
procedure TFrmServer.Button1Click(Sender: TObject);
var
Nachricht: TChatNachricht;
haha: TCustomWinSocket;
begin
Nachricht.NickName := 'Server';
Nachricht.Text := 'haha';
haha.SendBuf(Nachricht, SizeOf(Nachricht));
end;
Wieso geht es oben und hier nicht?