dotNETportal.cz

Dobrý den. Na port jiného počítače bych potřeboval přenést větší množství textu (cca 70283 bajtů to má v txt souboru). Pokud se to snažím poslat pomocí protokolu UDP, tak to řve, že je to větší, než velikost UDP datagramu. Tak teď nevím, jak na to, mám zkusit TCP přenos a nebo ten text rozdělit, poslat přes UDP (tak, jak to dělám u menších textů) a pak na cílovém PC zase sloučit?

Předem děkuji za rady.

S TCP protokolem v .NET nemám žádné zkušenosti, zkusím kouknout po příkladech. A TCP je schopen celý balík dat přenést najednou a já nic nemusím kouskovat?

Přečtěte si můj o TCP/IP, je tam chování TCP protokolu popsané:

http://vbnet.cz/serial--5-kreslici_tabul...

Další možnost by byla použít .NET Remoting (který běží nad TCP protokolem) se kterým se pracuje poměrně jednoduše.

Tak jsem si jen tak na zkoušku naprogramoval klient a server a dělá mi to divné věci, většinou mi z klienta na server příjde dlouhý text celý, ale stává se, že někdy dorazí jen část.

Klient:

Dim strSendData As String = IO.File.ReadAllText(Application.StartupPath & "\test.xml")
tcp.Connect(RemoteIP, RemotePORT)
Dim networkStream As NetworkStream = tcp.GetStream()
Dim sendBytes As [Byte]() = System.Text.Encoding.ASCII.GetBytes(strSendData)
networkStream.Write(sendBytes, 0, sendBytes.Length)
tcp.Close()

server:

Dim tcpListener As New System.Net.Sockets.TcpListener(43333)
tcpListener.Start()
Dim tcpClient As System.Net.Sockets.TcpClient = tcpListener.AcceptTcpClient()
tcpListener.Stop()
Dim networkStream As System.Net.Sockets.NetworkStream = tcpClient.GetStream()
Dim bytes(256000) As Byte
networkStream.Read(bytes, 0, 256000)
Dim clientdata As String = System.Text.Encoding.ASCII.GetString(bytes)
RichTextBox1.Text = clientdata
tcpClient.Close()
tcpListener.Start()

Co dělám špatně?

tak proc to nekdy (vetsinou) projde bezproblemu cele a nekdy jen cast?

Protože záleží na řadě okolností - zatížení procesoru, sítě atp. Data se přijímají v jiném vlákně a proto se toho stihne pokaždé jinak. Mohu Vás ještě poprosit, zda nezkusíte psát s diakritikou a dodržovat velká písmena? Přeci jenom tento dialog má posloužit i ostatním.

Jasně... takže to předělám tak, že klient si text rozdělí na jednotlivé části a v cyklu jej začne vysílat na server, server začne data přímat a cpát je do stringu a také testovat obsah dat a pokud se v přijatém řetězci bude vyskytovat řetězec obsahující identifikátor konce celého textu, spojení se ukončí. Jen mě zajímá ještě pár věcí... když to začnu vysílat po částech v cyklu, nemůže na serveru dojít k tomu, že něco bude vynecháno z důvodu třeba náhlého vytížení procesoru nějakou jinou aplikací?

A ještě se chci zeptat, na jak velké části je vhodné posílaný velký XML soubor rozdělit.

Tak jsem klienta předělal tak, že mi celý velký text posílá po malých částech, ale asi někde dělám něco špatně, protože když si nechám vypsat to, co dostane server, tak se mi vždy vypíše jen ta první část. Asi mám problém na serveru, nevím. Přikládám kód serveru (zjednodušený).

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    ThreadReceive = New System.Threading.Thread(AddressOf ReceiveMessages)
    ThreadReceive.Start()
    ContinueListen = True
End Sub

Sub ReceiveMessages(ByVal at As System.IAsyncResult)
    tcpListener = New System.Net.Sockets.TcpListener(System.Net.IPAddress.Any, 43333)
    tcpListener.Start()
    Do While ContinueListen = True
        tcpClient = tcpListener.AcceptTcpClient
        networkStream = tcpClient.GetStream()
        Dim bytes(1024) As Byte
        networkStream.Read(bytes, 0, 1024)
        Dim clientdata As String = System.Text.Encoding.ASCII.GetString(bytes)
        Debug.Print(clientdata)
        networkStream.Close()
    Loop
End Sub

Prostě to vypíše jen první část, pak, jakoby už přestal přímat data. Koukal jsem na seriál o kreslící tabuli, ale z toho jsem byl jelen.

Poradí někdo prosím?