Ich hab es jetzt mit
Delphi-Quellcode:
procedure TForm1.TcpServer1Accept(sender: TObject;
ClientSocket: TCustomIpClient);
var
s: string;
nick: string;
DataThread: TClientDataThread;
begin
if clientsocket.remotehost = form10.listbox1.items.text then
begin
exit
end
else
begin
und dazu beim senden noch
Delphi-Quellcode:
procedure TForm1.SendenClick(Sender: TObject);
begin
TcpClient1.RemoteHost := edtRemoteHost.Text;
TcpClient1.RemotePort := edtRemotePort.Text;
if TcpClient1.Connect then
begin
TcpClient1.Sendln(edtnickname.Text);
TcpClient1.Sendln(memSend.text);
TcpClient1.Disconnect;
memsend.lines.Clear;
end
else
begin
TcpClient1.Disconnect;
memrecv.Lines.Add('FEHLER! - Der Empfänger ist offline!');
memsend.lines.Clear;
end
end;
Das so geändert nun kann ich eine nachricht schreiben wnen ich eine weitere schreibe stürzt das ganz Programmm ab...
Wiemache ich eine Schleife in anderer "Richtung" (if not?)