TCP Chat Fragen...

xX-Nick-Xx · 3. Juli 2016, 01:44

Guten Morgen Zusammen

Ich habe einen TCP Chat mit server Erstellt...

nun Möchte ich das Der chat in der Richbox bleibt...

ich nutze dafür:

VB.NET-Quellcode

Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.IO
Public Class Auftragsliste
Dim _client As TCPClient
Public Property Lenght As Object
Private Sub Auftragsliste_Load(sender As Object, e As EventArgs) Handles MyBase.Load, RichTextBox1.HScroll
'TCP LOAD EREIGNISS!
Try
Dim ip As String = "127.0.0.1"
Dim port As Integer = 3432
_client = New TcpClient(ip, port)
CheckForIllegalCrossThreadCalls = False
Threading.ThreadPool.QueueUserWorkItem(AddressOf ReceiveMassages)
Me.AcceptButton = Button2
Catch ex As Exception
MsgBox(ex.Message)
End Try
TextBox1.Visible = True
Button2.Visible = True
My.Settings.Setting = RichTextBox1.Text
'Chat Speichern
RichTextBox1.Text = My.Settings.Setting 'Änderung Speichern
End Sub
Private Sub ReceiveMassages(state As Object)
Try
While True
Dim ns As NetworkStream = _client.GetStream()
Dim toRecive(100000) As Byte
ns.Read(toRecive, 0, toRecive.Length)
Dim txt As String = Encoding.ASCII.GetString(toRecive)
If RichTextBox1.TextLength > 0 Then
RichTextBox1.Text &= vbNewLine & txt
Else
RichTextBox1.Text = txt
End If
End While
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
Dim ns As NetworkStream = _client.GetStream()
ns.Write(Encoding.ASCII.GetBytes(TextBox1.Text), 0, TextBox1.Text.Length)
RichTextBox1.Text = My.Settings.Setting 'Änderung Speichern
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
My.Settings.Setting = RichTextBox1.Text
End Sub
Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
RichTextBox1.Text = My.Settings.Setting 'Änderung Speichern
End Sub

Das ist der Client!

Mein Problem:
1. Er tut die gesendete nachricht nicht an die Richbox anzeigen lassen
2. Wenn ich A An B Ein Text Sende Kommt es zwar an aber sobald ich eine neue sende Löscht er sie...
Er soll sie nach dem beenden abspeichern Dafür nutze ich:

VB.NET-Quellcode

My.Settings.Setting

Tut er aber nicht...
3. Er soll Scrollen und nicht den text löschen...

Danke im vorraus

*Topic verschoben*

Pasta · 3. Juli 2016, 02:17

Mochtest du wirklich, daß jedesmal, wenn RichTextBox1 horizontal gescrollt wird, _client neu instanziiert wird ? :huh:

Speichern heißt auf englisch "save".

Und schmeiß endlich den "Microsoft.VisualBasic-Namespace" raus !

Fakiz · 3. Juli 2016, 02:39

Für eine endlose Protokolierung des Chatverlaufes wäre meiner Meinung nach eine einfache Text Datei die bessere Wahl. Und an stelle des CheckForIllegalCrossThreadCalls solltest du die RitchTextBox Invoken.

φConst · 3. Juli 2016, 03:18

Guten Abend,

wie Fakiz bereits erwähnt hat,
lösche

C#-Quellcode

CheckForIllegalCrossThreadCalls = false

und benutze Invoke.

Wieso verwendest du ein NetworkStream, und noch viel wichtiger, wieso instanziierst du diesen Stream jedes Mal?

C#-Quellcode

public partial class Auftragsliste : Form
{
public Auftragsliste()
{
InitializeComponent();
}
private TcpClient tcpClient;
private StreamReader streamReader;
private StreamWriter streamWriter;
private void Auftragsliste_Load(object sender, EventArgs e)
{
tcpClient = new TcpClient("host", 3432);
streamReader = new StreamReader(tcpClient.GetStream());
streamWriter = new StreamWriter(tcpClient.GetStream());
new Thread(new ThreadStart(() =>
{
while (tcpClient.Connected)
{
string _message = streamReader.ReadLine();
this.InvokeI(() =>
{
listBox1.Items.Add(_message);
string[] _data = new string[listBox1.Items.Count];
listBox1.Items.CopyTo(_data, 0);
File.AppendAllLines("log.txt", _data);
});
}
})).Start();
}
private void button1_Click(object sender, EventArgs e)
{
streamWriter.WriteLine("text");
streamWriter.Flush();
}
}
public static class Extension
{
public static void InvokeI(this Form _frm, Action _delegate)
{
_frm.Invoke(_delegate);
}
}

Benutze converter.telerik.com/ .

xX-Nick-Xx · 3. Juli 2016, 03:25

Erstmal danke für die antwort um die zeiot

habe nun etwas umgeschrieben...
SERVER:

VB.NET-Quellcode

Public Class Form1
Private server As TCPController
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
server = New TCPController
TextBox1.Text = "==Server Gestartet==" & vbCrLf
AddHandler server.MessageReceived, AddressOf OnlineReceived
'Ok... ALL HASBEEN DONE
'LETS TRY IT
End Sub
Private Delegate Sub UpdateTextDelegate(TB As TextBox, txt As String)
'ITS WILL UPDATE THE TEXTBOX
Private Sub UpdateTextBox(TB As TextBox, txt As String)
If TB.InvokeRequired Then
'using delegate for this
TB.Invoke(New UpdateTextDelegate(AddressOf UpdateTextBox), New Object() {TB, txt})
Else
If txt IsNot Nothing Then TB.AppendText(txt & vbCrLf)
End If
End Sub
Private Sub OnlineReceived(sender As TCPController, Data As String)
UpdateTextBox(TextBox1, Data)
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
server.isListening = False
'its for close the server is listening
End Sub
' I THING WI MUST CLOSE THE LISTENING IF WE CLOSED THE FORM / SERVER WITH EVENT FORM CLOSING
End Class

Client:

VB.NET-Quellcode

Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.IO
Public Class Auftragsliste
Private client As TcpCONFIG
Private Sub Auftragsliste_Load(sender As Object, e As EventArgs) Handles MyBase.Load
client = New TcpCONFIG("127.0.0.1", 8080) 'ITS FOR YOU SERVER IP ADRESS AND PORT NUMMER
If client.client.Connected Then Label1.Text = "Verbunden!!!"
End Sub
Private Sub SendMessage()
If client.client.Connected = True Then client.send(TextBox1.Text)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
SendMessage()
TextBox1.Clear()
TextBox1.Focus()
End Sub
Private Sub Auftragsliste_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
If client.client.Connected = True Then
client.clientData.Close()
client.client.Close()
End If
End Sub
End Class

Funktioniert auch... ich muss nur noch machen das der chat gespeichert wird...
Das ne Richbox das geschriebene anzeigt...
Das er speichert Wenn man auf save drückt...
und Das er es wieder anzeigt wenn man connected...

Ps: ist es möglich das Client 1 schreibt und CLient 2 danach connected und das davor geschriebene sieht?!

wenn ja wie?!

φConst · 3. Juli 2016, 03:39

Ps: ist es möglich das Client 1 schreibt und CLient 2 danach connected und das davor geschriebene sieht?!

Ja,
du erstellst eine Klasse Client, in der ein StreamWriter und ein StreamReader definiert sind, und je zwei Methoden die Senden und Empfangen.

Der Server, der in einem anderen Thread als dem GUI-Thread lauscht, akzeptiert die eingehende Verbindung des Clients, fügt den Client in eine List<Client> und generiert einen neuen
Thread der dem eingegangen Client lauscht:

SOLANGE WAHR

EINGEHENDR TCPCLIENT = SERVER.ACCEPTTCPCLIENT
CLIENT = NEW CLIENT(TCPCLIENT)
=> NEW STREAMREADER; STREAMWRITER

LIST<CLIENT>.ADD(CLIENT)

GENERIERE NEUEN THREAD
=> SOLANGE TCPCLIENT VERBUNDEN
EMPFANGE
=> WENN EMPFANGEN GEHE LISTE DURCH UND SENDE JEDEM DIE EINGEGANGENE NACHRICHT

ENDE

Zur Richtextbox: Was hindert dich daran eine ListBox zu verwenden?

C#-Quellcode

listBox1.Items.Add(_message);
string[] _data = new string[listBox1.Items.Count];
listBox1.Items.CopyTo(_data, 0);
File.AppendAllLines("log.txt", _data);

Statt Settings, benutze doch einfach eine log.txt.. wenn du es im %appdata% Ordner speichern willst , benutze Environment.GetFolderPath(SpecialFolder.CommonApplicationData)

xX-Nick-Xx · 3. Juli 2016, 03:45

Wissen über die ListBox hindert mich

VB.NET-Quellcode

_message.Items.Add(_message)
Dim _data As String() = New String(_message.Items.Count - 1) {}
_message.Items.CopyTo(_data, 0)
File.AppendAllLines("log.txt", _data)

Irgendwas is da falsch

?!

φConst · 3. Juli 2016, 03:55

VB.NET-Quellcode

ListBox1.Items.Add("")
Dim _data(ListBox1.Items .Count) As String
ListBox1.Items.CopyTo(_data, 0)
File.AppendAllLines("log.txt", _data)

Du musst erst eine ListBox generieren (Toolbox) und System.IO importieren.

xX-Nick-Xx · 3. Juli 2016, 04:02

Okay... erledigt alles ok...

Nur passiert da nix in der listbox

War das für den server oder Client gedacht?

Fakiz · 3. Juli 2016, 12:56

Was ist denn nun _message ein String oder eine ListBox?

@φConst Warum so umständlich?

VB.NET-Quellcode

ListBox1.Items.Add("")
Dim _data(ListBox1.Items .Count) As String
ListBox1.Items.CopyTo(_data, 0)
File.AppendAllLines("log.txt", _data)

alternativ

VB.NET-Quellcode

File.AppendAllText("log.txt", ListBox1.Items(ListBox1.Items .Count-1).ToString())

Ps: Laden des Chatverlaufes

VB.NET-Quellcode

ListBox1.Items.Clear()
ListBox1.Items.AddRange(System.IO.File.ReadAllLines("log.txt"))

φConst · 3. Juli 2016, 17:36

Visual Basic-Quellcode

ListBox1.Items(ListBox1.Items .Count-1).ToString()

.. na klar *lachen* .. danke.
Ich dachte der TE will den ganzen Chatverlauf speichern, wenn er auf ein Button klickt.

@TE

C#-Quellcode

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.IO;
using System.Net;
using System.Net.Sockets;
using System.Threading;
namespace VBParadiseEasyTCPChat
{
public class Server
{
public IPEndPoint IPePRemote { get; set; }
public bool KeepAlive { get; set; }
public string WelcomeMessage = "Hello client $User";
private TcpListener tcpListener;
private Thread listenerThread;
private List<Client> clientList = new List<Client>();
private List<string> chatLog = new List<string>();
public Server(string _ip, int _port)
{
// Den Listener an ein Socket anbinden.
IPePRemote = new IPEndPoint(IPAddress.Parse(_ip), _port);
tcpListener = new TcpListener(IPePRemote);
// Den Listener in einem neuen Thread starten
listenerThread = new Thread(() =>
{
tcpListener.Start();
while (KeepAlive)
{
// Thread so lange anhalten bis eine eingehende Verbindung besteht.
var _tcpClient = tcpListener.AcceptTcpClient();
// Neue Client-Klasse instanziieren und eingehenden TcpClient als Parameter dem Konstruktor übergeben.
Client _c = new Client(_tcpClient);
//Optional: Eine Willkommensnachricht die auf den Username des Clients wartet.
_c.Send(WelcomeMessage.Replace("$User", _c.Receive().Split('=')[1]));
// Den Chat-Log dem neuen Client senden und mit "old" markieren.
for (int i = 0; i < chatLog.Count; i++)
{
_c.Send("[old]: " + chatLog[i]);
}
// Neuen Client in die Client-List hinzufügen.
clientList.Add(_c);
// Einen neuen parametrisierten Thread starten und den neuen Client übergebn.
new Thread(new ParameterizedThreadStart((object _c0) =>
{
// Boxing -Unboxing.
Client _client = (Client)_c0;
// Solange Client verbunden ist
while (_client.tcpClient.Connected)
{
// ...versuche Nachricht zu lesen und sie der Methode sendToAll übergeben.
try
{
string _incoming = _client.Receive();
sendToAll(_incoming);
}
catch
{
//...sonst informiere die anderen Benutzer über das Verlassen eines Clients ( Receive() wirft ein Error wenn der Stream geschlossen wird )
clientList.Remove(_client);
sendToAll("User has left!");
}
}
})).Start(_c);
}
});
}
public void Start()
{
KeepAlive = true;
listenerThread.Start();
}
private void sendToAll(string _message)
{
// Sendet die eingegangene Nachricht an alle Clients in der Client-List
for (int i = 0; i < clientList.Count; i++)
{
clientList[i].Send(_message);
}
chatLog.Add(_message);
}
}
// Klasse zur Verwaltung der Clients
public class Client
{
private StreamWriter sWriter;
private StreamReader sReader;
public TcpClient tcpClient;
public Client(TcpClient _c)
{
tcpClient = _c;
sWriter = new StreamWriter(tcpClient.GetStream());
sReader = new StreamReader(tcpClient.GetStream());
}
public void Send(string _message)
{
sWriter.WriteLine(_message);
sWriter.Flush();
}
public string Receive()
{
return sReader.ReadLine();
}
}
}

Das wäre der Server .. und der Client,

C#-Quellcode

tcpClient = new TcpClient("192.168.0.215", 8000);
streamReader = new StreamReader(tcpClient.GetStream());
streamWriter = new StreamWriter(tcpClient.GetStream());
new Thread(new ThreadStart(() =>
{
streamWriter.WriteLine("user=" + Environment.UserName);
streamWriter.Flush();
while (tcpClient.Connected)
{
string _message = streamReader.ReadLine();
this.InvokeI(() =>
{
_chatlb.Items.Add(_message);
});
}
})).Start();

Das soll als Anregung fungieren.

TCP Chat Fragen...

TCP Chat Fragen...

VB.NET-Quellcode

VB.NET-Quellcode

C#-Quellcode

C#-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

C#-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Visual Basic-Quellcode

C#-Quellcode

C#-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben